Changeset 10922 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcsub.F90
- Timestamp:
- 2019-05-02T17:10:39+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/TOP/trcsub.F90
r10425 r10922 82 82 CONTAINS 83 83 84 SUBROUTINE trc_sub_stp( kt )84 SUBROUTINE trc_sub_stp( kt, Kmm ) 85 85 !!------------------------------------------------------------------- 86 86 !! *** ROUTINE trc_stp *** … … 92 92 !!------------------------------------------------------------------- 93 93 INTEGER, INTENT( in ) :: kt ! ocean time-step index 94 INTEGER, INTENT( in ) :: Kmm ! ocean time-level index 94 95 ! 95 96 INTEGER :: ji, jj, jk ! dummy loop indices … … 282 283 ENDIF 283 284 ! 284 CALL trc_sub_ssh( kt ) ! after ssh & vertical velocity285 CALL trc_sub_ssh( kt, Kmm ) ! after ssh & vertical velocity 285 286 ! 286 287 ENDIF … … 445 446 446 447 447 SUBROUTINE trc_sub_ssh( kt )448 SUBROUTINE trc_sub_ssh( kt, Kmm ) 448 449 !!---------------------------------------------------------------------- 449 450 !! *** ROUTINE trc_sub_ssh *** … … 464 465 !!---------------------------------------------------------------------- 465 466 INTEGER, INTENT(in) :: kt ! time step 467 INTEGER, INTENT(in) :: Kmm ! ocean time-level index 466 468 ! 467 469 INTEGER :: ji, jj, jk ! dummy loop indices … … 484 486 ! 485 487 !!gm BUG here ! hdivn will include the runoff divergence at the wrong timestep !!!! 486 CALL div_hor( kt )! Horizontal divergence & Relative vorticity488 CALL div_hor( kt, Kmm ) ! Horizontal divergence & Relative vorticity 487 489 ! 488 490 z2dt = 2._wp * rdt ! set time step size (Euler/Leapfrog)
Note: See TracChangeset
for help on using the changeset viewer.