- Timestamp:
- 2013-09-12T15:24:58+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3996_CMCC6_topbc/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3996_CMCC6_topbc/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r4011 r4026 247 247 WRITE(numout,*) 248 248 ENDIF 249 IF( .NOT.ln_trcdmp .AND. .NOT.ln_trcdmp_clo ) THEN !== deallocate data structure ==!250 ! (data used only for initialisation)251 IF(lwp) WRITE(numout,*) 'trc_dta: deallocate data arrays as they are only use to initialize the run'252 DEALLOCATE( sf_dta(1)%fnow ) ! arrays in the structure253 IF( sf_dta(1)%ln_tint ) DEALLOCATE( sf_dta(1)%fdta )254 !255 ENDIF256 249 ENDIF 257 250 ! -
branches/2013/dev_r3996_CMCC6_topbc/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r4011 r4026 130 130 ztrcdta(:,:,:) = sf_trcdta(jl)%fnow(:,:,:) 131 131 trn(:,:,:,jn) = ztrcdta(:,:,:) * tmask(:,:,:) 132 IF( .NOT.ln_trcdmp .AND. .NOT.ln_trcdmp_clo ) THEN !== deallocate data structure ==! 133 ! (data used only for initialisation) 134 IF(lwp) WRITE(numout,*) 'trc_dta: deallocate data arrays as they are only used to initialize the run' 135 DEALLOCATE( sf_trcdta(jl)%fnow ) ! arrays in the structure 136 IF( sf_trcdta(jl)%ln_tint ) DEALLOCATE( sf_trcdta(jl)%fdta ) 137 ! 138 ENDIF 132 139 ENDIF 133 140 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.