Changeset 5758 for branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90

Timestamp:

2015-09-24T08:31:40+02:00 (9 years ago)

Author:

gm

Message:

#1593: LDF-ADV, step II.1: phasing the improvements/simplifications of diffusive trend (see wiki)

File:

• branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90 (modified) (5 diffs)

branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c3d.h90

@@ -26 +26 @@
       !!       ??? explanation of the default is missing
       !!----------------------------------------------------------------------
-      USE ldftra_oce, ONLY :   aht0
+      USE ldftra, ONLY :   rn_aht_0
       USE iom
       !!
@@ -193 +193 @@
       !! ** Method  :   blah blah blah ....
       !!----------------------------------------------------------------------
-      USE ldftra_oce, ONLY:   aht0
+      USE ldftra, ONLY:   rn_aht_0
       USE iom
       !!
@@ -248 +248 @@
       
       IF( jp_cfg == 4 )   THEN
-         zahmeq = 5.0 * aht0
+         zahmeq = 5.0 * rn_aht_0
          zahmm  = min( 160000.0, ahm0)
          zemax = MAXVAL ( e1t(:,:) * e2t(:,:), tmask(:,:,1) .GE. 0.5 )
@@ -273 +273 @@
 
       IF( jp_cfg == 2 )   THEN
-         zahmeq     = aht0
+         zahmeq     = rn_aht_0
          zahmm      = ahm0
          zahm0(:,:) = ahm0
@@ -279 +279 @@
 
       IF( jp_cfg == 1 )   THEN
-         zahmeq     = aht0  ! reduced to aht0 on equator; set to ahm0 if no tropical reduction is required
+         zahmeq     = rn_aht_0  ! reduced to aht0 on equator; set to ahm0 if no tropical reduction is required
          zahmm      = ahm0
          zahm0(:,:) = ahm0