Changeset 3680 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

Timestamp:

2012-11-27T15:42:24+01:00 (11 years ago)

Author:

rblod

Message:

First commit of the final branch for 2012 (future nemo_3_5), see ticket #1028

File:

• branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trcwri.F90 (modified) (2 diffs)

branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

@@ -18 +18 @@
    USE dianam      ! Output file name
    USE trcwri_pisces
+   USE trcwri_cfc
+   USE trcwri_c14b
+   USE trcwri_my_trc
 
    IMPLICIT NONE
@@ -69 +72 @@
       ! write the tracer concentrations in the file
       ! ---------------------------------------
-      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
+      IF( lk_pisces  )   CALL trc_wri_pisces     ! PISCES 
+      IF( lk_cfc     )   CALL trc_wri_cfc        ! surface fluxes of CFC
+      IF( lk_c14b    )   CALL trc_wri_c14b       ! surface fluxes of C14
+      IF( lk_my_trc  )   CALL trc_wri_my_trc     ! MY_TRC  tracers
       !
    END SUBROUTINE trc_wri_trc