Changeset 3295 for trunk/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

Timestamp:

2012-01-30T16:49:07+01:00 (12 years ago)

Author:

cetlod

Message:

trunk:A few additional diagnostics added in PISCES

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trcwri.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

@@ -17 +17 @@
    USE iom         ! I/O manager
    USE dianam      ! Output file name
+   USE trcwri_pisces
 
    IMPLICIT NONE
@@ -68 +69 @@
       ! write the tracer concentrations in the file
       ! ---------------------------------------
-      DO jn = 1, jptra
-         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
-         CALL iom_put( cltra, trn(:,:,:,jn) )
-      END DO
+      IF( lk_pisces )  THEN
+         CALL trc_wri_pisces
+      ELSE
+         DO jn = 1, jptra
+            cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
+            CALL iom_put( cltra, trn(:,:,:,jn) )
+         END DO
+      ENDIF
       !
    END SUBROUTINE trc_wri_trc