Changeset 2997 for branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

Timestamp:

2011-10-25T20:14:21+02:00 (13 years ago)

Author:

cetlod

Message:

branch dev_LOCEAN_2011 : minor corrections to ensure PISCES restartability

File:

• branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 (modified) (2 diffs)

branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -47 +47 @@
       !!              Update the passive tracers
       !!-------------------------------------------------------------------
-      INTEGER, INTENT( in ) ::  kt  ! ocean time-step index
-      INTEGER               ::  jk  !
+      INTEGER, INTENT( in ) ::  kt      ! ocean time-step index
+      INTEGER               ::  jk, jn  ! dummy loop indices
+      REAL(wp)              ::  ztrai
       CHARACTER (len=25)    ::  charout
       !!-------------------------------------------------------------------
@@ -90 +91 @@
          !
       ENDIF
+      !
+      ztrai = 0._wp                                                   !  content of all tracers
+      DO jn = 1, jptra
+         ztrai = ztrai + glob_sum( trn(:,:,:,jn) * cvol(:,:,:)   )
+      END DO
+      IF( lwp ) WRITE(numstr,9300) kt,  ztrai / areatot
+9300  FORMAT(' iter :',i4,'    global content :',e18.10)
 
    END SUBROUTINE trc_stp