- Timestamp:
- 2018-08-02T14:05:33+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRA/traadv_fct.F90
r9901 r10024 311 311 IF( l_hst ) CALL dia_ar5_hst( jn, 'adv', ztrdx(:,:,:), ztrdy(:,:,:) ) 312 312 ! 313 DEALLOCATE( ztrdx, ztrdy, ztrdz )314 313 ENDIF 315 314 IF( l_ptr ) THEN ! "Poleward" transports 316 315 zptry(:,:,:) = zptry(:,:,:) + zwy(:,:,:) ! <<< add anti-diffusive fluxes 317 316 CALL dia_ptr_hst( jn, 'adv', zptry(:,:,:) ) 318 DEALLOCATE( zptry )319 317 ENDIF 320 318 ! 321 319 END DO ! end of tracer loop 320 ! 321 IF( l_trd .OR. l_hst ) THEN 322 DEALLOCATE( ztrdx, ztrdy, ztrdz ) 323 ENDIF 324 IF( l_ptr ) THEN 325 DEALLOCATE( zptry ) 326 ENDIF 322 327 ! 323 328 END SUBROUTINE tra_adv_fct
Note: See TracChangeset
for help on using the changeset viewer.