Changeset 9173 for branches/NERC/dev_r5518_GO6_Carb_Fail_from_GO6_8356/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

Timestamp:

2018-01-03T14:19:47+01:00 (6 years ago)

Author:

jpalmier

Message:

JPALM -- merge with GO6_package 9114-9163 -- help test up-to-date suite

File:

• branches/NERC/dev_r5518_GO6_Carb_Fail_from_GO6_8356/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90 (modified) (2 diffs)

branches/NERC/dev_r5518_GO6_Carb_Fail_from_GO6_8356/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

@@ -49 +49 @@
    USE agrif_opa_interp
 #endif
+
 
    IMPLICIT NONE
@@ -340 +341 @@
       DO jn = 1, kjpt      
          DO jk = 1, jpkm1
-            zfact = 1._wp / r2dtra(jk)
+            zfact  = 0.5_wp / p2dt(jk)
             zfact1 = atfp * p2dt(jk)
             zfact2 = zfact1 / rau0