INTERFACE:
subroutine init_3d_ncdf(fn,title,starttime)DESCRIPTION:
USES:
use netcdf use exceptions use ncdf_common use ncdf_3d use domain, only: ioff,joff use domain, only: imin,imax,jmin,jmax,kmax use domain, only: vert_cord use m3d, only: calc_temp,calc_salt #ifdef SPM use suspended_matter, only: spm_save #endif #ifdef GETM_BIO use bio_var, only: numc,var_names,var_units,var_long #endif #ifdef _FABM_ use getm_fabm, only: model,fabm_calc,output_none #endif use getm_version IMPLICIT NONEINPUT PARAMETERS:
character(len=*), intent(in) :: fn,title,starttimeDEFINED PARAMETERS:
logical, parameter :: init3d=.true.REVISION HISTORY:
LOCAL VARIABLES:
integer :: err integer :: n,rc integer :: scalar(1),f3_dims(3),f4_dims(4) REALTYPE :: fv,mv,vr(2) character(len=80) :: history,ts