Changeset 4990 for trunk/NEMOGCM/NEMO/TOP_SRC/trcini.F90
- Timestamp:
- 2014-12-15T17:42:49+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r4607 r4990 143 143 144 144 tra(:,:,:,:) = 0._wp 145 146 145 IF( ln_zps .AND. .NOT. lk_c1d ) & ! Partial steps: before horizontal gradient of passive 147 & CALL zps_hde( nit000, jptra, trn, gtru, gtrv) ! tracers at the bottom ocean level146 & CALL zps_hde( nit000, jptra, trn, pgtu=gtru, pgtv=gtrv, sgtu=gtrui, sgtv=gtrvi ) ! tracers at the bottom ocean level 148 147 149 148 ! … … 192 191 USE trcnxt , ONLY: trc_nxt_alloc 193 192 USE trczdf , ONLY: trc_zdf_alloc 194 USE trd mod_trc_oce, ONLY: trd_mod_trc_oce_alloc195 #if defined key_trdm ld_trc196 USE trdm ld_trc , ONLY: trd_mld_trc_alloc193 USE trdtrc_oce , ONLY: trd_trc_oce_alloc 194 #if defined key_trdmxl_trc 195 USE trdmxl_trc , ONLY: trd_mxl_trc_alloc 197 196 #endif 198 197 ! … … 204 203 ierr = ierr + trc_nxt_alloc() 205 204 ierr = ierr + trc_zdf_alloc() 206 ierr = ierr + trd_ mod_trc_oce_alloc()207 #if defined key_trdm ld_trc208 ierr = ierr + trd_m ld_trc_alloc()205 ierr = ierr + trd_trc_oce_alloc() 206 #if defined key_trdmxl_trc 207 ierr = ierr + trd_mxl_trc_alloc() 209 208 #endif 210 209 !
Note: See TracChangeset
for help on using the changeset viewer.