- Timestamp:
- 2018-10-17T11:13:02+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_DMP_TOOLS/NEMOGCM/TOOLS/DMP_TOOLS/src/utils.F90
r4739 r10199 46 46 LOGICAL :: ln_zero_top_layer = .false. 47 47 LOGICAL :: ln_custom = .false. 48 LOGICAL :: ln_readdistcoast = .false. 48 49 49 50 NAMELIST/nam_dmp_create/cp_cfg, cp_cfz, jp_cfg, lzoom, ln_full_field, & 50 51 ln_med_red_seas, ln_old_31_lev_code, ln_coast, & 51 52 ln_zero_top_layer, ln_custom, & 52 pn_surf, pn_bot, pn_dep, nn_hdmp, jperio 53 pn_surf, pn_bot, pn_dep, nn_hdmp, jperio, ln_readdistcoast 53 54 54 55 CONTAINS … … 72 73 CALL check_nf90( nf90_inq_varid( ncin, 'vmask', vmask_id ), 'Cannot get variable ID for vmask') 73 74 CALL check_nf90( nf90_inq_varid( ncin, 'fmask', fmask_id ), 'Cannot get variable ID for fmask') 74 CALL check_nf90( nf90_inq_varid( ncin, 'gdept _0', gdept_id ), 'Cannot get variable ID for gdept_0')75 CALL check_nf90( nf90_inq_varid( ncin, 'gdept', gdept_id ), 'Cannot get variable ID for gdept_0') 75 76 CALL check_nf90( nf90_inq_varid( ncin, 'gphit', gphit_id ), 'Cannot get variable ID for gphit') 76 77 CALL check_nf90( nf90_inq_varid( ncin, 'gphiu', gphiu_id ), 'Cannot get variable ID for gphiu')
Note: See TracChangeset
for help on using the changeset viewer.