Routines for opening, reading and writing external files
REVISION HISTORY:
author: Tony Craig, NCARINTERFACE:
module ice_read_writeUSES:
use ice_model_size use ice_domain use ice_mpi_internal
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, NCARUSES:
INPUT/OUTPUT PARAMETERS:
integer (kind=int_kind), intent(in) :: nu,nbits character (*) :: filename
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, NCARUSES:
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
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, NCARUSES:
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