Changeset 7083 for branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/TOP_SRC/trcini.F90
- Timestamp:
- 2016-10-25T12:12:41+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_MEDUSA_extra_CMIP6_diags/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r6731 r7083 125 125 IF( ln_trc_ini(jn) ) THEN ! update passive tracers arrays with input data read from file 126 126 jl = n_trc_index(jn) 127 CALL trc_dta( nit000, sf_trcdta(jl) ) ! read tracer data at nit000 128 trn(:,:,:,jn) = sf_trcdta(jl)%fnow(:,:,:) * tmask(:,:,:) * rf_trfac(jl) 129 ! 127 CALL trc_dta( nit000, sf_trcdta(jl), rf_trfac(jl) ) ! read tracer data at nit000 128 trn(:,:,:,jn) = sf_trcdta(jl)%fnow(:,:,:) 130 129 IF( .NOT.ln_trcdmp .AND. .NOT.ln_trcdmp_clo ) THEN !== deallocate data structure ==! 131 130 ! (data used only for initialisation)
Note: See TracChangeset
for help on using the changeset viewer.