Fortran: Module Interface Encapsulate 3D netCDF quantities (Source File: ncdf_3d.F90)

INTERFACE:

    module ncdf_3d

DESCRIPTION:

USES:

    use output
    IMPLICIT NONE

PUBLIC 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.0

REVISION HISTORY:

    Original author(s): Karsten Bolding & Hans Burchard