Changeset 7869 for branches/UKMO/dev_r5518_medusa_fix_restart/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

Timestamp:

2017-04-04T12:21:15+02:00 (7 years ago)

Author:

marc

Message:

Moved GTRU & GTRV into dump and only call ZPS_HDE in TRC_INIT at start-up.

File:

• branches/UKMO/dev_r5518_medusa_fix_restart/NEMOGCM/NEMO/TOP_SRC/trcrst.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_medusa_fix_restart/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

@@ -109 +109 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~'
 
+      ! GTRU/PGU & GTRV/PGV are needed in TRALDF_ISO for calculation of tracers
+      DO jn = 1, jptra
+         CALL iom_get( numrtr, jpdom_autoglo, 'gtru_'//ctrcnm(jn),   &
+                       gtru(:,:,jn) )
+         CALL iom_get( numrtr, jpdom_autoglo, 'gtrv_'//ctrcnm(jn),   &
+                       gtrv(:,:,jn) )
+      END DO
+! tmp - marc
+      write(numout,*) 'bbb222. gtrv(6,13,7)=',gtrv(6,13,7)
+!
+
       ! READ prognostic variables and computes diagnostic variable
       DO jn = 1, jptra
@@ -133 +144 @@
       !
       CALL iom_rstput( kt, nitrst, numrtw, 'rdttrc1', rdttrc(1) )   ! surface passive tracer time step
+
+      ! GTRU/PGU & GTRV/PGV are needed in TRALDF_ISO for calculation of tracers
+      DO jn = 1, jptra
+         CALL iom_rstput( kt, nitrst, numrtw, 'gtru_'//ctrcnm(jn), &
+                          gtru(:,:,jn) )
+         CALL iom_rstput( kt, nitrst, numrtw, 'gtrv_'//ctrcnm(jn), &
+                          gtrv(:,:,jn) )
+      END DO
+
       ! prognostic variables 
       ! --------------------