- Timestamp:
- 2016-04-27T16:01:22+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r6486 r6498 61 61 INTEGER :: jk, jn, jl ! dummy loop indices 62 62 CHARACTER (len=25) :: charout 63 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrcdta ! 4D workspace64 63 !!--------------------------------------------------------------------- 65 64 ! … … 121 120 IF( ln_trcdta .AND. nb_trcdta > 0 ) THEN ! Initialisation of tracer from a file that may also be used for damping 122 121 ! 123 CALL wrk_alloc( jpi, jpj, jpk, ztrcdta ) ! Memory allocation124 !125 122 DO jn = 1, jptra 126 123 IF( ln_trc_ini(jn) ) THEN ! update passive tracers arrays with input data read from file 127 124 jl = n_trc_index(jn) 128 CALL trc_dta( nit000, sf_trcdta(jl) ,rf_trfac(jl)) ! read tracer data at nit000129 ztrcdta(:,:,:) = sf_trcdta(jl)%fnow(:,:,:)130 trn(:,:,:,jn) = ztrcdta(:,:,:) * tmask(:,:,:)125 CALL trc_dta( nit000, sf_trcdta(jl) ) ! read tracer data at nit000 126 trn(:,:,:,jn) = sf_trcdta(jl)%fnow(:,:,:) * tmask(:,:,:) * rf_trfac(jl) 127 ! 131 128 IF( .NOT.ln_trcdmp .AND. .NOT.ln_trcdmp_clo ) THEN !== deallocate data structure ==! 132 129 ! (data used only for initialisation) … … 138 135 ENDIF 139 136 ENDDO 140 CALL wrk_dealloc( jpi, jpj, jpk, ztrcdta )137 ! 141 138 ENDIF 142 139 !
Note: See TracChangeset
for help on using the changeset viewer.