Changeset 10946 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/ZDF/zdfphy.F90
- Timestamp:
- 2019-05-08T10:56:14+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/ZDF/zdfphy.F90
r10883 r10946 220 220 221 221 222 SUBROUTINE zdf_phy( kt, Kbb, Kmm )222 SUBROUTINE zdf_phy( kt, Kbb, Kmm, Krhs ) 223 223 !!---------------------------------------------------------------------- 224 224 !! *** ROUTINE zdf_phy *** … … 233 233 !!---------------------------------------------------------------------- 234 234 INTEGER, INTENT(in) :: kt ! ocean time-step index 235 INTEGER, INTENT(in) :: Kbb, Kmm ! ocean time level indices235 INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! ocean time level indices 236 236 ! 237 237 INTEGER :: ji, jj, jk ! dummy loop indice … … 264 264 CASE( np_TKE ) ; CALL zdf_tke( kt, Kbb, Kmm, zsh2, avm_k, avt_k ) ! TKE closure scheme for Kz 265 265 CASE( np_GLS ) ; CALL zdf_gls( kt, Kbb, Kmm, zsh2, avm_k, avt_k ) ! GLS closure scheme for Kz 266 CASE( np_OSM ) ; CALL zdf_osm( kt, Kbb, Kmm 266 CASE( np_OSM ) ; CALL zdf_osm( kt, Kbb, Kmm, Krhs, avm_k, avt_k ) ! OSMOSIS closure scheme for Kz 267 267 ! CASE( np_CST ) ! Constant Kz (reset avt, avm to the background value) 268 268 ! ! avt_k and avm_k set one for all at initialisation phase … … 283 283 ENDIF 284 284 ! 285 IF( ln_zdfevd ) CALL zdf_evd( kt, avm, avt ) !* convection: enhanced vertical eddy diffusivity285 IF( ln_zdfevd ) CALL zdf_evd( kt, Kmm, Krhs, avm, avt ) !* convection: enhanced vertical eddy diffusivity 286 286 ! 287 287 ! !* double diffusive mixing
Note: See TracChangeset
for help on using the changeset viewer.