Changeset 15506

Timestamp:

2021-11-15T11:33:30+01:00 (2 years ago)

Author:

jcastill

Message:

Change name of namelist parameters in namzdf_mldzint

File:

• NEMO/branches/UKMO/NEMO_4.0.4_CO9_package-mix-lyr/src/OCE/ZDF/zdfmxl.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_CO9_package-mix-lyr/src/OCE/ZDF/zdfmxl.F90

@@ -451 +451 @@
 
       CHARACTER(len=1) :: cmld
+
+      TYPE(MXL_ZINT) :: sn_mld1, sn_mld2, sn_mld3, sn_mld4, sn_mld5
       TYPE(MXL_ZINT), SAVE, DIMENSION(MAX_DIAG) ::   mld_diags
 
-      NAMELIST/namzdf_mldzint/ nn_mld_diag, mld_diags
+      NAMELIST/namzdf_mldzint/ nn_mld_diag, sn_mld1, sn_mld2, sn_mld3, sn_mld4, sn_mld5
 
       !!----------------------------------------------------------------------
@@ -469 +471 @@
          WRITE(cmld,'(I1)') MAX_DIAG 
          IF( nn_mld_diag > MAX_DIAG )   CALL ctl_stop( 'STOP', 'zdf_mxl_ini: Specify no more than ', 'cmld', ' MLD definitions' )
+
+         mld_diags(1) = sn_mld1
+         mld_diags(2) = sn_mld2
+         mld_diags(3) = sn_mld3
+         mld_diags(4) = sn_mld4
+         mld_diags(5) = sn_mld5
 
          cmld_zint=.false.