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
END MODULE MODE_IO_FIELD_WRITE