Changeset 4996 for trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcwri_c14b.F90

Timestamp:

2014-12-22T12:56:38+01:00 (9 years ago)

Author:

cetlod

Message:

trunk : New diagnostics in PISCES model, see ticket #1424

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcwri_c14b.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcwri_c14b.F90

@@ -37 +37 @@
       DO jn = jp_c14b0, jp_c14b1
          cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer
-         IF( lk_vvl ) THEN
-            CALL iom_put( cltra, trn(:,:,:,jn) * fse3t_n(:,:,:) )
-         ELSE
-            CALL iom_put( cltra, trn(:,:,:,jn) )
-         ENDIF
+         CALL iom_put( cltra, trn(:,:,:,jn) )
       END DO
       !