Changeset 2997 for branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/TOP_SRC/trcini.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/trcini.F90 (modified) (3 diffs)

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

@@ -94 +94 @@
       IF( lk_my_trc  ) THEN   ;   CALL trc_ini_my_trc       ! MY_TRC  tracers
       ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'
+      ENDIF
+
+      IF( lwp ) THEN
+         !
+         CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE., narea )
+         !
       ENDIF
 
@@ -153 +159 @@
          WRITE(numout,*) '          *** Total volume of ocean                = ', areatot
          WRITE(numout,*) '          *** Total inital content of all tracers '
+         WRITE(numout,*)
          DO jn = 1, jptra
-            WRITE(numout,*) ' tracer nb : ', jn, '  name : ', ctrcnm(jn), ' initial content :', trai(jn)
+            WRITE(numout,9000) jn, TRIM( ctrcnm(jn) ), trai(jn)
          ENDDO
          WRITE(numout,*)
       ENDIF
-
+      WRITE(numout,*)
       IF(ln_ctl) THEN            ! print mean trends (used for debugging)
          CALL prt_ctl_trc_init
@@ -165 +172 @@
          CALL prt_ctl_trc( tab4d=trn, mask=tmask, clinfo=ctrcnm )
       ENDIF
+9000  FORMAT(' tracer nb : ',i2,'      name :',a10,'      initial content :',e18.10)
       !
    END SUBROUTINE trc_init