Changeset 15745 for NEMO/branches/UKMO/tools_r4.0-HEAD_dev_DMP_TOOLS/DMP_TOOLS/src/utils.F90

Timestamp:

2022-03-08T18:55:08+01:00 (2 years ago)

Author:

dbruciaferri

Message:

modifications for restoring upper 300 m to EN4

File:

• NEMO/branches/UKMO/tools_r4.0-HEAD_dev_DMP_TOOLS/DMP_TOOLS/src/utils.F90 (modified) (3 diffs)

NEMO/branches/UKMO/tools_r4.0-HEAD_dev_DMP_TOOLS/DMP_TOOLS/src/utils.F90

@@ -19 +19 @@
   REAL(wp), DIMENSION(:,:),   ALLOCATABLE :: gphif, glamf
   REAL(wp), DIMENSION(:,:),   ALLOCATABLE :: tmask, umask, vmask, fmask
+  REAL(wp), DIMENSION(:,:),   ALLOCATABLE :: dcst
   REAL(wp), DIMENSION(:,:),   ALLOCATABLE :: gdept
   REAL(wp), DIMENSION(:,:),   ALLOCATABLE :: resto
@@ -37 +38 @@
   REAL(KIND=8) :: pn_bot = 1
   REAL(KIND=8) :: pn_dep = 1000         
+  REAL(KIND=8) :: pn_cst = 1000
+  REAL(KIND=8) :: rn_k = 50
   INTEGER  :: nn_hdmp = 0                          ! damping option
   INTEGER  :: jperio = 0                          ! damping option
@@ -46 +49 @@
   LOGICAL :: ln_zero_top_layer = .false.
   LOGICAL :: ln_custom = .false.
+  LOGICAL :: ln_exp = .true.
 
-  NAMELIST/nam_dmp_create/cp_cfg, cp_cfz, jp_cfg, lzoom, ln_full_field, &
+  NAMELIST/nam_dmp_create/cp_cfg, cp_cfz, jp_cfg, lzoom, ln_full_field,  &
                           ln_med_red_seas, ln_old_31_lev_code, ln_coast, &
-                          ln_zero_top_layer, ln_custom, &
-                          pn_surf, pn_bot, pn_dep, nn_hdmp, jperio
+                          ln_zero_top_layer, ln_custom, ln_exp,          &
+                          pn_surf, pn_bot, pn_dep, rn_k, pn_cst, nn_hdmp, jperio
 
   CONTAINS