Changeset 4996 for trunk/NEMOGCM/NEMO/TOP_SRC/C14b

Timestamp:

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

Author:

cetlod

Message:

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

Location:

trunk/NEMOGCM/NEMO/TOP_SRC/C14b

Files:

• trcsms_c14b.F90 (modified) (1 diff)
• trcwri_c14b.F90 (modified) (1 diff)

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

@@ -290 +290 @@
       ENDIF
       !    
-      IF( ln_diatrc ) THEN
-         IF( lk_iomput ) THEN
-            CALL iom_put( "qtrC14b"  , qtr_c14  )
-            CALL iom_put( "qintC14b" , qint_c14 )
-            CALL iom_put( "fdecay"   , zdecay   )
-          ELSE
+      IF( lk_iomput ) THEN
+        CALL iom_put( "qtrC14b"  , qtr_c14  )
+        CALL iom_put( "qintC14b" , qint_c14 )
+        CALL iom_put( "fdecay"   , zdecay   )
+      ELSE
+         IF( ln_diatrc ) THEN
             trc2d(:,:  ,jp_c14b0_2d     ) = qtr_c14 (:,:)
             trc2d(:,:  ,jp_c14b0_2d + 1 ) = qint_c14(:,:)
             trc3d(:,:,:,jp_c14b0_3d     ) = zdecay  (:,:,:)
-          ENDIF
+         ENDIF
       ENDIF
 

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
       !