INTERFACE:
subroutine init_mean_ncdf(fn,title,starttime)DESCRIPTION:
USES:
use netcdf use exceptions use ncdf_common use ncdf_mean 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 GETM_BIO use bio_var, only: numc,var_names,var_units,var_long #endif #ifdef _FABM_ use getm_fabm, only: model,fabm_pel,output_none #endif use getm_version IMPLICIT NONEINPUT PARAMETERS:
character(len=*), intent(in) :: fn,title,starttimeDEFINED PARAMETERS:
logical, parameter :: init3d=.true.REVISION HISTORY:
Original author(s): Adolf Stips & Karsten Bolding Revision 1.1 2004/03/29 15:38:10 kbk possible to store calculated mean fieldsLOCAL VARIABLES:
integer :: n integer :: err integer :: scalar(1),f3_dims(3),f4_dims(4) REALTYPE :: fv,mv,vr(2) character(len=80) :: history,tts