Set of wrappers to write binary I/OUSES:
use shr_kind_mod, only: r8 => shr_kind_r8
#if (defined SPMD)
use spmdMod , only : masterproc, mpicom, MPI_REAL8, MPI_INTEGER, &
MPI_LOGICAL
use spmdGathScatMod, only : scatter_data_from_master, gather_data_to_master
#else
use spmdMod , only : masterproc
#endif
use decompMod , only : map_sn2dc, map_dc2sn
use abortutils , only : endrun
use clmtype , only : nameg, namel, namec, namep, lndrof, ocnrof
PUBLIC TYPES:
implicit none savePUBLIC MEMBER FUNCTIONS:
public :: readin, wrtout ! read and write bindary I/O
interface readin
module procedure readin_1darray_int
module procedure readin_2darray_int
module procedure readin_1darray_real
module procedure readin_2darray_real
end interface
interface wrtout
module procedure wrtout_1darray_int
module procedure wrtout_2darray_int
module procedure wrtout_1darray_real
module procedure wrtout_2darray_real
end interface
REVISION HISTORY:
Created by Mariana Vertenstein