4.24 Fortran: Module Interface ice_read_write - routines for opening, reading and writing external files (Source File: ice_read_write.F)

Routines for opening, reading and writing external files

REVISION HISTORY:

   author: Tony Craig, NCAR

INTERFACE:

       module ice_read_write

USES:

       use ice_model_size
       use ice_domain 
       use ice_mpi_internal

4.24.1 ice_open - opens an unformatted file for reading

INTERFACE:

       subroutine ice_open(nu,filename,nbits)

DESCRIPTION:

Opens an unformatted file for reading
nbits indicates whether the file is sequential or direct access

REVISION HISTORY:

   author: Tony Craig, NCAR

USES:

INPUT/OUTPUT PARAMETERS:

       integer (kind=int_kind), intent(in) :: nu,nbits
       character (*) :: filename

4.24.2 ice_read - reads an unformatted file

INTERFACE:

       subroutine ice_read(nu,nrec,work,atype,scatter)

DESCRIPTION:

Reads an unformatted file
work is a real array, atype indicates the format of the data

REVISION HISTORY:

   author: Tony Craig, NCAR

USES:

INPUT/OUTPUT PARAMETERS:

       integer (kind=int_kind), intent(in) :: nu,nrec
       real (kind=dbl_kind) ::  work(ilo:ihi,jlo:jhi)
       character (len=4) atype  ! real,int
       logical (kind=log_kind) :: scatter

4.24.3 ice_write - writes an unformatted file

INTERFACE:

       subroutine ice_write(nu,nrec,work,atype,gather)

DESCRIPTION:

Writes an unformatted file
work is a real array, atype indicates the format of the data

REVISION HISTORY:

   author: Tony Craig, NCAR

USES:

INPUT/OUTPUT PARAMETERS:

       integer (kind=int_kind), intent(in) :: nu,nrec
       real (kind=dbl_kind) ::  work(ilo:ihi,jlo:jhi)
       character (len=4) atype  ! real,int
       logical (kind=log_kind) :: gather