Changeset 9939 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/module_example

Timestamp:

2018-07-13T09:28:50+02:00 (6 years ago)

Author:

gm

Message:

#1911 (ENHANCE-04): RK3 branche phased with MLF@9937 branche

Location:

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3

Files:

• . (copied) (copied from NEMO/trunk)
• src/OCE/module_example (modified) (2 diffs)

NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/module_example

@@ -93 +93 @@
       INTEGER  ::   ji, jj, jk       ! dummy loop arguments  (DOCTOR : start with j, but not jp)
       INTEGER  ::   itoto, itata     ! temporary integers    (DOCTOR : start with i
-      REAL(wp) ::   zmlmin, zbbrau   ! temporary scalars     (DOCTOR : start with z)
+      REAL(wp) ::   zmlmin, zbbrho   ! temporary scalars     (DOCTOR : start with z)
       REAL(wp) ::   zfact1, zfact2   ! do not use continuation lines in declaration
       REAL(wp), DIMENSION(jpi,jpj) ::   zwrk_2d   ! 2D workspace
@@ -101 +101 @@
 
       zmlmin = 1.e-8                             ! Local constant initialization
-      zbbrau =  .5 * ebb / rau0
-      zfact1 = -.5 * rdt * efave
-      zfact2 = 1.5 * rdt * ediss
+      zbbrho =  .5 * ebb / rho0
+      zfact1 = -.5 * rn_Dt * efave
+      zfact2 = 1.5 * rn_Dt * ediss
 
       SELECT CASE ( npdl )                       ! short description of the action