Changeset 10922 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP
- Timestamp:
- 2019-05-02T17:10:39+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP/trcadv.F90
r10880 r10922 116 116 ! 117 117 IF( ln_ldfeiv .AND. .NOT. ln_traldf_triad ) & 118 & CALL ldf_eiv_trp( kt, nittrc000, zun, zvn, zwn, 'TRC' ) ! add the eiv transport118 & CALL ldf_eiv_trp( kt, nittrc000, zun, zvn, zwn, 'TRC', Kmm ) ! add the eiv transport 119 119 ! 120 120 IF( ln_mle ) CALL tra_mle_trp( kt, nittrc000, zun, zvn, zwn, 'TRC' ) ! add the mle transport -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP/trcldf.F90
r10068 r10922 51 51 CONTAINS 52 52 53 SUBROUTINE trc_ldf( kt )53 SUBROUTINE trc_ldf( kt, Kmm ) 54 54 !!---------------------------------------------------------------------- 55 55 !! *** ROUTINE tra_ldf *** … … 59 59 !!---------------------------------------------------------------------- 60 60 INTEGER, INTENT( in ) :: kt ! ocean time-step index 61 INTEGER, INTENT( in ) :: Kmm ! ocean time-level index 61 62 ! 62 63 INTEGER :: ji, jj, jk, jn … … 97 98 CALL tra_ldf_iso ( kt, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi, trb, trb, tra, jptra, 1 ) 98 99 CASE ( np_lap_it ) ! laplacian : triad iso-neutral operator (griffies) 99 CALL tra_ldf_triad( kt, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi, trb, trb, tra, jptra, 1 )100 CALL tra_ldf_triad( kt, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi, trb, trb, tra, jptra, 1 , Kmm ) 100 101 CASE ( np_blp , np_blp_i , np_blp_it ) ! bilaplacian: all operator (iso-level, -neutral) 101 CALL tra_ldf_blp ( kt, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi, trb , tra, jptra, nldf_trc )102 CALL tra_ldf_blp ( kt, nittrc000,'TRC', zahu, zahv, gtru, gtrv, gtrui, gtrvi, trb , tra, jptra, nldf_trc, Kmm ) 102 103 END SELECT 103 104 ! -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/TRP/trctrp.F90
r10884 r10922 73 73 ENDIF 74 74 ! 75 CALL trc_ldf ( kt )! lateral mixing75 CALL trc_ldf ( kt, Kmm ) ! lateral mixing 76 76 #if defined key_agrif 77 77 IF(.NOT. Agrif_Root()) CALL Agrif_Sponge_trc ! tracers sponge -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcstp.F90
r10905 r10922 87 87 IF( l_trcdm2dc ) CALL trc_mean_qsr( kt ) 88 88 ! 89 IF( nn_dttrc /= 1 ) CALL trc_sub_stp( kt ) ! averaging physical variables for sub-stepping89 IF( nn_dttrc /= 1 ) CALL trc_sub_stp( kt, Kmm ) ! averaging physical variables for sub-stepping 90 90 ! 91 91 IF( MOD( kt , nn_dttrc ) == 0 ) THEN ! only every nn_dttrc time step -
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.