Changeset 10799 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/step.F90
- Timestamp:
- 2019-03-25T09:38:58+01: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
r10789 r10799 277 277 !!jc2: dynnxt must be the latest call. e3t_b are indeed updated in that routine 278 278 CALL tra_nxt ( kstp ) ! finalize (bcs) tracer fields at next time step and swap 279 CALL dyn_nxt ( kstp , Nm1, Np1, uu(:,:,:,Nnn), vv(:,:,:,Nnn), e3t(:,:,:,Nnn), e3u(:,:,:,Nnn), e3v(:,:,:,Nnn)) !279 CALL dyn_nxt ( kstp ) ! 280 280 CALL ssh_swp ( kstp ) ! swap of sea surface height 281 ! 282 ! Swap time levels 283 IF( .NOT. (neuler == 0 .AND. kstp == nit000) ) THEN 284 Nrhs = Nm1 285 Nm1 = Nnn 286 Nnn = Np1 287 Np1 = Nrhs 288 ENDIF 289 ! 290 ! Update temporary pointers 291 CALL update_pointers() 292 ! 293 ! Note that 2-time-level indices don't need to be swapped because both "before" and "now" fields are derived in dom_vvl_sf_swp 294 IF(.NOT.ln_linssh) CALL dom_vvl_sf_swp( kstp, Nm1, Nnn, Nm1_2lev, Nnn_2lev ) ! interpolate vertical scale factors for Nnn time level 281 IF(.NOT.ln_linssh) CALL dom_vvl_sf_swp( kstp ) ! interpolate vertical scale factors for Nnn time level 295 282 ! 296 283 IF( ln_diahsb ) CALL dia_hsb ( kstp ) ! - ML - global conservation diagnostics
Note: See TracChangeset
for help on using the changeset viewer.