Changeset 8475 for branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.F90

Timestamp:

2017-08-31T14:15:56+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- trdtrc --add vertical integrated trends

File:

• branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.F90 (modified) (1 diff)

branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.F90

@@ -113 +113 @@
                   ztrtrd(:,:,jk,jn) = ( ( tra(:,:,jk,jn) - trb(:,:,jk,jn) ) / r2dt(jk) ) - ztrtrd(:,:,jk,jn)
                END DO
-               CALL trd_tra( kt, 'TRC', jn, jptra_zdf, ztrtrd(:,:,:,jn) )
             END DO
          ENDIF 
+         DO jn = 1, jptra
+            CALL trd_tra( kt, 'TRC', jn, jptra_zdf, ztrtrd(:,:,:,jn) )
+         END DO
          CALL wrk_dealloc( jpi, jpj, jpk, jptra, ztrtrd )
       ENDIF