- Timestamp:
- 2017-04-13T16:21:08+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90
r7753 r7910 49 49 INTEGER, INTENT( in ) :: kt ! ocean time-step 50 50 CHARACTER (len=22) :: charout 51 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztrtrd51 REAL(wp), DIMENSION(jpi,jpj,jpk,jptra) :: ztrtrd 52 52 !!---------------------------------------------------------------------- 53 53 ! … … 60 60 61 61 IF( l_trdtrc ) THEN 62 CALL wrk_alloc( jpi, jpj, jpk, jptra, ztrtrd ) ! temporary save of trends63 62 ztrtrd(:,:,:,:) = tra(:,:,:,:) 64 63 ENDIF … … 91 90 CALL trd_tra( kt, 'TRC', jn, jptra_bbl, ztrtrd(:,:,:,jn) ) 92 91 END DO 93 CALL wrk_dealloc( jpi, jpj, jpk, jptra, ztrtrd ) ! temporary save of trends94 92 ENDIF 95 93 !
Note: See TracChangeset
for help on using the changeset viewer.