Changeset 5760 for branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO
- Timestamp:
- 2015-09-24T10:00:39+02:00 (9 years ago)
- Location:
- branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.F90
r4990 r5760 114 114 USE zdftke 115 115 USE zdfgls 116 USE zdfkpp117 116 !!---------------------------------------------------------------------- 118 117 ! … … 123 122 ! 124 123 ! Force implicit schemes 125 IF( lk_zdftke .OR. lk_zdfgls .OR. lk_zdfkpp ) nzdf = 1 ! TKE, GLS or KPPphysics126 IF( ln_dynldf_iso 127 IF( ln_dynldf_hor .AND. ln_sco 124 IF( lk_zdftke .OR. lk_zdfgls ) nzdf = 1 ! TKE or GLS physics 125 IF( ln_dynldf_iso ) nzdf = 1 ! iso-neutral lateral physics 126 IF( ln_dynldf_hor .AND. ln_sco ) nzdf = 1 ! horizontal lateral physics in s-coordinate 128 127 ! 129 128 IF( lk_esopa ) nzdf = -1 ! Esopa key: All schemes used -
branches/2015/dev_r5721_CNRS9_NOC3_LDF/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r5758 r5760 19 19 20 20 !!---------------------------------------------------------------------- 21 !! tra_zdf_imp : Update the tracer trend with the diagonal vertical part of the mixing tensor.22 !!---------------------------------------------------------------------- 23 USE oce 24 USE dom_oce 25 USE zdf_oce 26 USE trc_oce 27 USE domvvl 28 USE ldftra 29 USE ldfslp 30 USE zdfddm 31 USE traldf_ iso_triad! active tracers: Method of Stabilizing Correction21 !! tra_zdf_imp : Update the tracer trend with the diagonal vertical part of the mixing tensor. 22 !!---------------------------------------------------------------------- 23 USE oce ! ocean dynamics and tracers variables 24 USE dom_oce ! ocean space and time domain variables 25 USE zdf_oce ! ocean vertical physics variables 26 USE trc_oce ! share passive tracers/ocean variables 27 USE domvvl ! variable volume 28 USE ldftra ! lateral mixing type 29 USE ldfslp ! lateral physics: slope of diffusion 30 USE zdfddm ! ocean vertical physics: double diffusion 31 USE traldf_triad ! active tracers: Method of Stabilizing Correction 32 32 ! 33 USE in_out_manager 34 USE lbclnk 35 USE lib_mpp 36 USE wrk_nemo 37 USE timing 33 USE in_out_manager ! I/O manager 34 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 35 USE lib_mpp ! MPP library 36 USE wrk_nemo ! Memory Allocation 37 USE timing ! Timing 38 38 39 39 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.