INTERFACE:
module ncdf_3dDESCRIPTION:
USES:
use output IMPLICIT NONEPUBLIC DATA MEMBERS:
integer :: ncid=-1 integer :: x_dim,y_dim,z_dim integer :: time_dim integer :: time_id integer :: hcc_id,h_id integer :: elev_id,u_id,v_id integer :: taubx_id,tauby_id integer :: uu_id,vv_id,w_id #ifdef _MOMENTUM_TERMS_ integer :: tdv_u_id integer :: adv_u_id integer :: vsd_u_id integer :: hsd_u_id integer :: cor_u_id integer :: epg_u_id integer :: ipg_u_id integer :: tdv_v_id integer :: adv_v_id integer :: vsd_v_id integer :: hsd_v_id integer :: cor_v_id integer :: epg_v_id integer :: ipg_v_id #endif #if defined(CURVILINEAR) integer :: uurot_id,vvrot_id #endif integer :: salt_id=-1 integer :: temp_id=-1 integer :: sigma_t_id=-1 integer :: rad_id=-1 integer :: tke_id,num_id,nuh_id,eps_id integer :: SS_id,NN_id #ifdef SPM integer :: spmpool_id,spm_id #endif #ifdef GETM_BIO integer, allocatable :: bio_ids(:) #endif #ifdef _FABM_ integer, allocatable, dimension(:) :: fabm_ids,fabm_ids_diag,fabm_ids_ben,fabm_ids_diag_hz #endif integer :: nm3dS_id,nm3dT_id,nm2dS_id,nm2dT_id integer :: pm3dS_id,pm3dT_id,pm2dS_id,pm2dT_id integer :: nm3d_id,nm2d_id !DEFINED PARAMETERS REALTYPE, parameter :: hh_missing =-9999.0 REALTYPE, parameter :: elev_missing =-9999.0 REALTYPE, parameter :: vel_missing =-9999.0 REALTYPE, parameter :: tau_missing =-9999.0 REALTYPE, parameter :: salt_missing =-9999.0 REALTYPE, parameter :: temp_missing =-9999.0 REALTYPE, parameter :: rho_missing =-9999.0 REALTYPE, parameter :: rad_missing =-9999.0 REALTYPE, parameter :: tke_missing =-9999.0 REALTYPE, parameter :: nuh_missing =-9999.0 REALTYPE, parameter :: num_missing =-9999.0 REALTYPE, parameter :: eps_missing =-9999.0 REALTYPE, parameter :: SS_missing =-9999.0 REALTYPE, parameter :: NN_missing =-9999.0 #ifdef SPM REALTYPE, parameter :: spmpool_missing=-9999.0 REALTYPE, parameter :: spm_missing =-9999.0 #endif #if (defined(GETM_BIO) || defined(_FABM_)) REALTYPE, parameter :: bio_missing=-9999.0 #endif REALTYPE, parameter :: nummix_missing=-9999.0REVISION HISTORY:
Original author(s): Karsten Bolding & Hans Burchard