Changeset 8549

Timestamp:

2017-09-20T13:07:27+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- trdtrc -- fix tran_xt_vvl for ATF trend

File:

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

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

@@ -315 +315 @@
       IF( kt == kit000 )  THEN
          IF(lwp) WRITE(numout,*)
-         IF(lwp) WRITE(numout,*) 'tra_nxt_vvl : time stepping ', cdtype
+         IF(lwp) WRITE(numout,*) 'tra_nxt_vvl : time stepping', cdtype
          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~'
       ENDIF
@@ -341 +341 @@
       DO jn = 1, kjpt      
          DO jk = 1, jpkm1
-            !! zfact = 1._wp / r2dtra(jk)
-            zfact = 0.5_wp *p2dt(jk)
+            zfact  = 0.5_wp / p2dt(jk)
             zfact1 = atfp * p2dt(jk)
             zfact2 = zfact1 / rau0