Changeset 10905 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/step.F90
- Timestamp:
- 2019-04-29T13:50:19+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/step.F90
r10884 r10905 232 232 ! Passive Tracer Model 233 233 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 234 CALL trc_stp ( kstp ) ! time-stepping234 CALL trc_stp ( kstp, Nbb, Nnn, Nrhs, Naa ) ! time-stepping 235 235 #endif 236 236 … … 335 335 END SUBROUTINE stp 336 336 337 SUBROUTINE update_pointers 337 SUBROUTINE update_pointers( Kbb, Kmm, Kaa ) 338 338 !!---------------------------------------------------------------------- 339 339 !! *** ROUTINE update_pointers *** … … 344 344 !! ** Method : 345 345 !!---------------------------------------------------------------------- 346 347 ub => uu(:,:,:,Nbb); un => uu(:,:,:,Nnn); ua => uu(:,:,:,Naa) 348 vb => vv(:,:,:,Nbb); vn => vv(:,:,:,Nnn); va => vv(:,:,:,Naa) 346 INTEGER, INTENT( in ) :: Kbb, Kmm, Kaa ! time level indices 347 348 ub => uu(:,:,:,Kbb); un => uu(:,:,:,Kmm); ua => uu(:,:,:,Kaa) 349 vb => vv(:,:,:,Kbb); vn => vv(:,:,:,Kmm); va => vv(:,:,:,Kaa) 349 350 wn => ww(:,:,:) 350 351 hdivn => hdiv(:,:,:) 351 352 352 tsb => ts(:,:,:,:, Nbb); tsn => ts(:,:,:,:,Nnn); tsa => ts(:,:,:,:,Naa)353 354 e3t_b => e3t(:,:,:, Nbb); e3t_n => e3t(:,:,:,Nnn); e3t_a => e3t(:,:,:,Naa)355 e3u_b => e3u(:,:,:, Nbb); e3u_n => e3u(:,:,:,Nnn); e3u_a => e3u(:,:,:,Naa)356 e3v_b => e3v(:,:,:, Nbb); e3v_n => e3v(:,:,:,Nnn); e3v_a => e3v(:,:,:,Naa)353 tsb => ts(:,:,:,:,Kbb); tsn => ts(:,:,:,:,Kmm); tsa => ts(:,:,:,:,Kaa) 354 355 e3t_b => e3t(:,:,:,Kbb); e3t_n => e3t(:,:,:,Kmm); e3t_a => e3t(:,:,:,Kaa) 356 e3u_b => e3u(:,:,:,Kbb); e3u_n => e3u(:,:,:,Kmm); e3u_a => e3u(:,:,:,Kaa) 357 e3v_b => e3v(:,:,:,Kbb); e3v_n => e3v(:,:,:,Kmm); e3v_a => e3v(:,:,:,Kaa) 357 358 358 359 e3f_n => e3f(:,:,:) 359 360 360 e3w_b => e3w (:,:,:, Nbb); e3w_n => e3w (:,:,:,Nnn)361 e3uw_b => e3uw(:,:,:, Nbb); e3uw_n => e3uw(:,:,:,Nnn)362 e3vw_b => e3vw(:,:,:, Nbb); e3vw_n => e3vw(:,:,:,Nnn)363 364 gdept_b => gdept(:,:,:, Nbb); gdept_n => gdept(:,:,:,Nnn)365 gdepw_b => gdepw(:,:,:, Nbb); gdepw_n => gdepw(:,:,:,Nnn)361 e3w_b => e3w (:,:,:,Kbb); e3w_n => e3w (:,:,:,Kmm) 362 e3uw_b => e3uw(:,:,:,Kbb); e3uw_n => e3uw(:,:,:,Kmm) 363 e3vw_b => e3vw(:,:,:,Kbb); e3vw_n => e3vw(:,:,:,Kmm) 364 365 gdept_b => gdept(:,:,:,Kbb); gdept_n => gdept(:,:,:,Kmm) 366 gdepw_b => gdepw(:,:,:,Kbb); gdepw_n => gdepw(:,:,:,Kmm) 366 367 gde3w_n => gde3w(:,:,:) 367 368
Note: See TracChangeset
for help on using the changeset viewer.