mode_io_field_write.F90

MODULE MODE_IO_FIELD_WRITE
USE MODD_IO,         ONLY: TFILEDATA
USE MODD_FIELD, ONLY: TFIELDDATA
CONTAINS
SUBROUTINE IO_FIELD_WRITE(TPFILE,TZFIELD,PFIELD)
    !
    !*      0.1   Declarations of arguments
    !
    TYPE(TFILEDATA),           INTENT(IN) :: TPFILE
    TYPE(TFIELDDATA), INTENT(IN)          :: TZFIELD
    REAL, DIMENSION(:,:,:),    INTENT(IN) :: PFIELD   ! array containing the data field
    !
    CALL ABORT
END SUBROUTINE IO_FIELD_WRITE
!
SUBROUTINE IO_FIELD_WRITE_PHY(D,TPFILE,TZFIELD,PFIELD)
    USE MODD_DIMPHYEX, ONLY: DIMPHYEX_t
    !
    !*      0.1   Declarations of arguments
    !
    TYPE(DIMPHYEX_t),          INTENT(IN) :: D
    TYPE(TFILEDATA),           INTENT(IN) :: TPFILE
    TYPE(TFIELDDATA), INTENT(IN)          :: TZFIELD
    REAL, DIMENSION(D%NIT,D%NJT,D%NKT),    INTENT(IN) :: PFIELD   ! array containing the data field
    !
    CALL ABORT
END SUBROUTINE IO_FIELD_WRITE_PHY
!
END MODULE MODE_IO_FIELD_WRITE