Ignore:
Timestamp:
2017-08-31T14:15:56+02:00 (3 years ago)
Author:
jpalmier
Message:

JPALM — trdtrc —add vertical integrated trends

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_GO6_package_trdtrc/NEMOGCM/NEMO/TOP_SRC/TRP/trczdf.F90

    r8470 r8475  
    113113                  ztrtrd(:,:,jk,jn) = ( ( tra(:,:,jk,jn) - trb(:,:,jk,jn) ) / r2dt(jk) ) - ztrtrd(:,:,jk,jn) 
    114114               END DO 
    115                CALL trd_tra( kt, 'TRC', jn, jptra_zdf, ztrtrd(:,:,:,jn) ) 
    116115            END DO 
    117116         ENDIF  
     117         DO jn = 1, jptra 
     118            CALL trd_tra( kt, 'TRC', jn, jptra_zdf, ztrtrd(:,:,:,jn) ) 
     119         END DO 
    118120         CALL wrk_dealloc( jpi, jpj, jpk, jptra, ztrtrd ) 
    119121      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.