- Timestamp:
- 2013-02-10T20:11:06+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r3733 r3793 1304 1304 ! 1305 1305 INTEGER :: ji, jj, jk, jn ! Dummy loop indices 1306 CHARACTER (len=35) :: charout 1306 1307 REAL(wp) :: ztra, zflx 1307 1308 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: ztrtrd … … 1333 1334 END DO 1334 1335 END DO 1335 ! save the non-local tracer flux trends for diagnostic 1336 IF( l_trdtrc ) ztrtrd(:,:,:) = tra(:,:,:,jn) - ztrtrd(:,:,:) 1337 CALL trd_tra( kt, 'TRC', jn, jptra_trd_zdf, ztrtrd(:,:,:,jn) ) 1336 ! 1337 IF( l_trdtrc ) THEN ! save the non-local tracer flux trends for diagnostic 1338 ztrtrd(:,:,:) = tra(:,:,:,jn) - ztrtrd(:,:,:) 1339 CALL trd_tra( kt, 'TRC', jn, jptra_trd_zdf, ztrtrd(:,:,:) ) 1340 ENDIF 1338 1341 ! 1339 1342 END DO … … 1341 1344 IF( ln_ctl ) THEN 1342 1345 WRITE(charout, FMT="(' kpp')") ; CALL prt_ctl_trc_info(charout) 1343 CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=c lname, clinfo2='trd' )1346 CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=ctrcnm, clinfo2='trd' ) 1344 1347 ENDIF 1345 1348 !
Note: See TracChangeset
for help on using the changeset viewer.