Changeset 11070 for branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis3/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

Timestamp:

2019-06-03T15:04:56+02:00 (5 years ago)

Author:

rrenshaw

Message:

code fixes

File:

• branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis3/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90 (modified) (4 diffs)

branches/UKMO/AMM15_v3_6_STABLE_package_reanalysis3/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90

@@ -43 +43 @@
    &  hmld_tref,       &   
 #if defined key_karaml
-   &  hmld_kara,       &
+   &  hmld_zint,       &
    &  ln_kara,         &
 #endif   
@@ -108 +108 @@
                                       !: 1) hmld      - Turbocline/mixing depth                           [W points]
                                       !: 2) hmlp      - Density criterion (0.01 kg/m^3 change from 10m)   [W points]
-                                      !: 3) hmld_kara - Kara MLD                                          [Interpolated]
+                                      !: 3) hmld_zint - Kara MLD                                          [Interpolated]
                                       !: 4) hmld_tref - Temperature criterion (0.2 K change from surface) [T points]
 
@@ -518 +518 @@
 #if defined key_karaml
                   IF ( ln_kara ) THEN
-                     z_mld = hmld_kara
+                     z_mld = hmld_zint
                   ELSE
                      CALL ctl_stop("Kara mixed layer not calculated as ln_kara=.false.")
@@ -1279 +1279 @@
 !
 !           ! change salinity down to mixed layer depth
-!                 mld=hmld_kara(ji,jj)
+!                 mld=hmld_zint(ji,jj)
 !
 !           ! prevent small mld