Changeset 6041 for branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90
- Timestamp:
- 2015-12-14T10:06:06+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/C1D/step_c1d.F90
r5412 r6041 18 18 #endif 19 19 USE dyncor_c1d ! Coriolis term (c1d case) (dyn_cor_1d ) 20 USE dynnxt _c1d! time-stepping (dyn_nxt routine)20 USE dynnxt ! time-stepping (dyn_nxt routine) 21 21 USE dyndmp ! U & V momentum damping (dyn_dmp routine) 22 22 USE restart ! restart … … 82 82 IF( lk_zdftke ) CALL zdf_tke( kstp ) ! TKE closure scheme for Kz 83 83 IF( lk_zdfgls ) CALL zdf_gls( kstp ) ! GLS closure scheme for Kz 84 IF( lk_zdfkpp ) CALL zdf_kpp( kstp ) ! KPP closure scheme for Kz85 84 IF( lk_zdfcst ) THEN ! Constant Kz (reset avt, avm[uv] to the background value) 86 85 avt (:,:,:) = rn_avt0 * tmask(:,:,:) … … 93 92 ENDIF 94 93 IF( ln_zdfevd ) CALL zdf_evd( kstp ) ! enhanced vertical eddy diffusivity 95 96 94 IF( lk_zdftmx ) CALL zdf_tmx( kstp ) ! tidal vertical mixing 97 98 IF( lk_zdfddm .AND. .NOT. lk_zdfkpp ) & 99 & CALL zdf_ddm( kstp ) ! double diffusive mixing 100 95 IF( lk_zdfddm ) CALL zdf_ddm( kstp ) ! double diffusive mixing 101 96 CALL zdf_mxl( kstp ) ! mixed layer depth 102 97 … … 128 123 IF( ln_traqsr ) CALL tra_qsr( kstp ) ! penetrative solar radiation qsr 129 124 IF( ln_tradmp ) CALL tra_dmp( kstp ) ! internal damping trends- tracers 130 IF( lk_zdfkpp ) CALL tra_kpp( kstp ) ! KPP non-local tracer fluxes131 125 CALL tra_zdf( kstp ) ! vertical mixing 132 126 CALL eos( tsn, rhd, rhop, gdept_0(:,:,:) ) ! now potential density for zdfmxl … … 145 139 CALL dyn_cor_c1d( kstp ) ! vorticity term including Coriolis 146 140 CALL dyn_zdf ( kstp ) ! vertical diffusion 147 CALL dyn_nxt _c1d( kstp ) ! lateral velocity at next time step141 CALL dyn_nxt ( kstp ) ! lateral velocity at next time step 148 142 149 143 !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Note: See TracChangeset
for help on using the changeset viewer.