- Timestamp:
- 2020-04-07T18:34:56+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.2_ENHANCE-02_ISF_nemo/src/OCE/step.F90
r12143 r12706 155 155 IF( l_ldftra_time .OR. l_ldfeiv_time ) CALL ldf_tra( kstp ) ! and/or eiv coeff. 156 156 IF( l_ldfdyn_time ) CALL ldf_dyn( kstp ) ! eddy viscosity coeff. 157 158 157 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 159 158 ! Ocean dynamics : hdiv, ssh, e3, u, v, w … … 189 188 IF(.NOT.ln_linssh) CALL dom_vvl_sf_nxt( kstp, kcall=2 ) ! after vertical scale factors (update depth average component) 190 189 ENDIF 191 CALL dyn_zdf ( kstp ) ! vertical diffusion 192 193 IF( ln_dynspg_ts ) THEN 190 CALL dyn_zdf ( kstp ) ! vertical diffusion 191 IF( ln_dynspg_ts ) THEN ! vertical scale factors and vertical velocity need to be updated 194 192 CALL wzv ( kstp ) ! now cross-level velocity 195 193 IF( ln_zad_Aimp ) CALL wAimp ( kstp ) ! Adaptive-implicit vertical advection partitioning 196 194 ENDIF 195 197 196 198 197 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> … … 206 205 IF( ln_floats ) CALL flo_stp ( kstp ) ! drifting Floats 207 206 IF( ln_diacfl ) CALL dia_cfl ( kstp ) ! Courant number diagnostics 208 IF( lk_diahth )CALL dia_hth ( kstp ) ! Thermocline depth (20 degres isotherm depth)207 CALL dia_hth ( kstp ) ! Thermocline depth (20 degres isotherm depth) 209 208 IF( ln_diadct ) CALL dia_dct ( kstp ) ! Transports 210 209 CALL dia_ar5 ( kstp ) ! ar5 diag 210 IF( ln_diaptr ) CALL dia_ptr ! Poleward adv/ldf TRansports diagnostics 211 211 IF( ln_diaharm ) CALL dia_harm( kstp ) ! Tidal harmonic analysis 212 212 CALL dia_wri ( kstp ) ! ocean model: outputs … … 245 245 CALL tra_ldf ( kstp ) ! lateral mixing 246 246 247 !!gm : why CALL to dia_ptr has been moved here??? (use trends info?)248 IF( ln_diaptr ) CALL dia_ptr ! Poleward adv/ldf TRansports diagnostics249 !!gm250 247 CALL tra_zdf ( kstp ) ! vertical mixing and after tracer fields 251 248 IF( ln_zdfnpc ) CALL tra_npc ( kstp ) ! update after fields by non-penetrative convection
Note: See TracChangeset
for help on using the changeset viewer.