- Timestamp:
- 2019-12-11T17:15:54+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/step.F90
r12150 r12193 196 196 IF(.NOT.ln_linssh) CALL dom_vvl_sf_nxt( kstp, Nbb, Nnn, Naa, kcall=2 ) ! after vertical scale factors (update depth average component) 197 197 ENDIF 198 CALL dyn_zdf( kstp, Nbb, Nnn, Nrhs, uu, vv, Naa ) ! vertical diffusion ==> after 199 200 IF( ln_dynspg_ts ) THEN 201 CALL wzv ( kstp, Nbb, Nnn, ww, Naa ) ! now cross-level velocity 202 IF( ln_zad_Aimp ) CALL wAimp ( kstp, Nnn ) ! Adaptive-implicit vertical advection partitioning 198 CALL dyn_zdf ( kstp, Nbb, Nnn, Nrhs, uu, vv, Naa ) ! vertical diffusion 199 IF( ln_dynspg_ts ) THEN ! vertical scale factors and vertical velocity need to be updated 200 CALL wzv ( kstp, Nbb, Nnn, ww, Naa ) ! now cross-level velocity 201 IF( ln_zad_Aimp ) CALL wAimp ( kstp, Nnn ) ! Adaptive-implicit vertical advection partitioning 203 202 ENDIF 204 203 … … 212 211 ! diagnostics and outputs 213 212 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 214 IF( ln_floats ) CALL flo_stp ( kstp, Nbb, Nnn ) ! drifting Floats 215 IF( ln_diacfl ) CALL dia_cfl ( kstp, Nnn ) ! Courant number diagnostics 216 IF( lk_diahth ) CALL dia_hth ( kstp, Nnn ) ! Thermocline depth (20 degres isotherm depth) 217 IF( ln_diadct ) CALL dia_dct ( kstp, Nnn ) ! Transports 218 CALL dia_ar5 ( kstp, Nnn ) ! ar5 diag 219 IF( ln_diaharm ) CALL dia_harm( kstp, Nnn ) ! Tidal harmonic analysis 220 CALL dia_wri ( kstp, Nnn ) ! ocean model: outputs 213 IF( ln_floats ) CALL flo_stp ( kstp, Nbb, Nnn ) ! drifting Floats 214 IF( ln_diacfl ) CALL dia_cfl ( kstp, Nnn ) ! Courant number diagnostics 215 CALL dia_hth ( kstp, Nnn ) ! Thermocline depth (20 degres isotherm depth) 216 IF( ln_diadct ) CALL dia_dct ( kstp, Nnn ) ! Transports 217 CALL dia_ar5 ( kstp, Nnn ) ! ar5 diag 218 CALL dia_ptr ( kstp, Nnn ) ! Poleward adv/ldf TRansports diagnostics 219 IF( ln_diaharm ) CALL dia_harm( kstp, Nnn ) ! Tidal harmonic analysis 220 CALL dia_wri ( kstp, Nnn ) ! ocean model: outputs 221 221 ! 222 222 IF( ln_crs ) CALL crs_fld ( kstp, Nnn ) ! ocean model: online field coarsening & output … … 253 253 CALL tra_ldf ( kstp, Nbb, Nnn, ts, Nrhs ) ! lateral mixing 254 254 255 !!gm : why CALL to dia_ptr has been moved here??? (use trends info?) 256 IF( ln_diaptr ) CALL dia_ptr( Nnn ) ! Poleward adv/ldf TRansports diagnostics 257 !!gm 258 CALL tra_zdf ( kstp, Nbb, Nnn, Nrhs, ts, Naa ) ! vert. mixing & after tracer ==> after 255 CALL tra_zdf ( kstp, Nbb, Nnn, Nrhs, ts, Naa ) ! vertical mixing and after tracer fields 259 256 IF( ln_zdfnpc ) CALL tra_npc ( kstp, Nnn, Nrhs, ts, Naa ) ! update after fields by non-penetrative convection 260 257
Note: See TracChangeset
for help on using the changeset viewer.