- Timestamp:
- 2018-04-23T10:44:07+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90
r9124 r9490 22 22 USE oce ! ocean dynamics and tracers 23 23 USE dom_oce ! ocean space and time domain 24 USE ldfdyn ! lateral diffusion: eddy viscosity coef.24 ! USE ldfdyn ! lateral diffusion: eddy viscosity coef. 25 25 USE phycst ! physical constants 26 26 USE zdfmxl ! mixed layer depth … … 43 43 LOGICAL , PUBLIC :: l_ldfslp = .FALSE. !: slopes flag 44 44 45 LOGICAL , PUBLIC :: ln_traldf_iso = .TRUE. !: iso-neutral direction 46 LOGICAL , PUBLIC :: ln_traldf_triad = .FALSE. !: griffies triad scheme 47 48 LOGICAL , PUBLIC :: ln_triad_iso = .FALSE. !: pure horizontal mixing in ML 49 LOGICAL , PUBLIC :: ln_botmix_triad = .FALSE. !: mixing on bottom 50 REAL(wp), PUBLIC :: rn_sw_triad = 1._wp !: =1 switching triads ; =0 all four triads used 51 REAL(wp), PUBLIC :: rn_slpmax = 0.01_wp !: slope limit 45 LOGICAL , PUBLIC :: ln_traldf_iso = .TRUE. !: iso-neutral direction (nam_traldf namelist) 46 LOGICAL , PUBLIC :: ln_traldf_triad = .FALSE. !: griffies triad scheme (nam_traldf namelist) 47 LOGICAL , PUBLIC :: ln_dynldf_iso !: iso-neutral direction (nam_dynldf namelist) 48 49 LOGICAL , PUBLIC :: ln_triad_iso = .FALSE. !: pure horizontal mixing in ML (nam_traldf namelist) 50 LOGICAL , PUBLIC :: ln_botmix_triad = .FALSE. !: mixing on bottom (nam_traldf namelist) 51 REAL(wp), PUBLIC :: rn_sw_triad = 1._wp !: =1 switching triads ; =0 all four triads used (nam_traldf namelist) 52 REAL(wp), PUBLIC :: rn_slpmax = 0.01_wp !: slope limit (nam_traldf namelist) 52 53 53 54 LOGICAL , PUBLIC :: l_grad_zps = .FALSE. !: special treatment for Horz Tgradients w partial steps (triad operator) … … 749 750 ! 750 751 IF( ln_traldf_triad ) THEN ! Griffies operator : triad of slopes 751 IF(lwp) WRITE(numout,*) ' Griffies (triad) operator initialisation'752 IF(lwp) WRITE(numout,*) ' ==>>> triad) operator (Griffies)' 752 753 ALLOCATE( triadi_g(jpi,jpj,jpk,0:1,0:1) , triadj_g(jpi,jpj,jpk,0:1,0:1) , & 753 754 & triadi (jpi,jpj,jpk,0:1,0:1) , triadj (jpi,jpj,jpk,0:1,0:1) , & … … 757 758 ! 758 759 ELSE ! Madec operator : slopes at u-, v-, and w-points 759 IF(lwp) WRITE(numout,*) ' Madec operator initialisation'760 IF(lwp) WRITE(numout,*) ' ==>>> iso operator (Madec)' 760 761 ALLOCATE( omlmask(jpi,jpj,jpk) , & 761 762 & uslp(jpi,jpj,jpk) , uslpml(jpi,jpj) , wslpi(jpi,jpj,jpk) , wslpiml(jpi,jpj) , &
Note: See TracChangeset
for help on using the changeset viewer.