New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10199 for branches/UKMO/dev_r5518_DMP_TOOLS/NEMOGCM/TOOLS/DMP_TOOLS/src/utils.F90 – NEMO

Ignore:
Timestamp:
2018-10-17T11:13:02+02:00 (5 years ago)
Author:
jenniewaters
Message:

Alllow a distance to coast file to be read in. Also modify code to prevent multiple calculations of the surface distance to coast.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_DMP_TOOLS/NEMOGCM/TOOLS/DMP_TOOLS/src/utils.F90

    r4739 r10199  
    4646  LOGICAL :: ln_zero_top_layer = .false. 
    4747  LOGICAL :: ln_custom = .false. 
     48  LOGICAL :: ln_readdistcoast = .false. 
    4849 
    4950  NAMELIST/nam_dmp_create/cp_cfg, cp_cfz, jp_cfg, lzoom, ln_full_field, & 
    5051                          ln_med_red_seas, ln_old_31_lev_code, ln_coast, & 
    5152                          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 
    5354 
    5455  CONTAINS  
     
    7273     CALL check_nf90( nf90_inq_varid( ncin, 'vmask', vmask_id ), 'Cannot get variable ID for vmask') 
    7374     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') 
    7576     CALL check_nf90( nf90_inq_varid( ncin, 'gphit', gphit_id ), 'Cannot get variable ID for gphit') 
    7677     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.