Changeset 1328 for trunk/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90
- Timestamp:
- 2009-02-20T11:30:06+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90
r1264 r1328 74 74 !!---------------------------------------------------------------------- 75 75 USE oce_trc , zftu => ua, & ! use ua as workspace 76 & zf su=> va ! use va as workspace76 & zftv => va ! use va as workspace 77 77 !! 78 78 INTEGER, INTENT( in ) :: kt ! ocean time-step index … … 88 88 89 89 REAL(wp), DIMENSION(jpi,jpj,jpk) :: & 90 z ftv, zgtbu, zgtbv ! temporary workspace90 zgtbu, zgtbv ! temporary workspace 91 91 92 92 #if defined key_trcldf_eiv … … 127 127 ! ! =========== 128 128 IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn) ! save trends 129 130 ztagu = 0.e0 ; ztagv = 0.e0 131 129 130 zgtbu(:,:,:) = 0. ; zgtbv(:,:,:) = 0. 132 131 ! Horizontal passive tracer gradient 133 132 DO jk = 1, jpk … … 323 322 END DO ! tracer loop 324 323 ! ! =========== 324 IF( l_trdtrc ) THEN 325 DEALLOCATE( ztrtrd ) 326 # if defined key_trcldf_eiv 327 DEALLOCATE( ztrtrd_xei ) 328 DEALLOCATE( ztrtrd_yei ) 329 # endif 330 ENDIF 325 331 326 332 IF( ln_ctl ) THEN ! print mean trends (used for debugging)
Note: See TracChangeset
for help on using the changeset viewer.