Changeset 4294 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DOM
- Timestamp:
- 2013-11-20T18:04:09+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r4292 r4294 44 44 45 45 !!* Namelist nam_vvl 46 LOGICAL , PUBLIC :: ln_vvl_zstar = .FALSE.! zstar vertical coordinate47 LOGICAL , PUBLIC :: ln_vvl_ztilde = .FALSE.! ztilde vertical coordinate48 LOGICAL , PUBLIC :: ln_vvl_layer = .FALSE.! level vertical coordinate49 LOGICAL , PUBLIC :: ln_vvl_ztilde_as_zstar = .FALSE.! ztilde vertical coordinate50 LOGICAL , PUBLIC :: ln_vvl_zstar_at_eqtor = .FALSE.! ztilde vertical coordinate51 LOGICAL , PUBLIC :: ln_vvl_kepe = .FALSE.! kinetic/potential energy transfer46 LOGICAL , PUBLIC :: ln_vvl_zstar ! zstar vertical coordinate 47 LOGICAL , PUBLIC :: ln_vvl_ztilde ! ztilde vertical coordinate 48 LOGICAL , PUBLIC :: ln_vvl_layer ! level vertical coordinate 49 LOGICAL , PUBLIC :: ln_vvl_ztilde_as_zstar ! ztilde vertical coordinate 50 LOGICAL , PUBLIC :: ln_vvl_zstar_at_eqtor ! ztilde vertical coordinate 51 LOGICAL , PUBLIC :: ln_vvl_kepe ! kinetic/potential energy transfer 52 52 ! ! conservation: not used yet 53 REAL(wp) :: rn_ahe3 = 0.0_wp! thickness diffusion coefficient54 REAL(wp) :: rn_rst_e3t = 30._wp! ztilde to zstar restoration timescale [days]55 REAL(wp) :: rn_lf_cutoff = 5.0_wp! cutoff frequency for low-pass filter [days]56 REAL(wp) :: rn_zdef_max = 0.9_wp! maximum fractional e3t deformation57 LOGICAL , PUBLIC :: ln_vvl_dbg = .FALSE.! debug control prints53 REAL(wp) :: rn_ahe3 ! thickness diffusion coefficient 54 REAL(wp) :: rn_rst_e3t ! ztilde to zstar restoration timescale [days] 55 REAL(wp) :: rn_lf_cutoff ! cutoff frequency for low-pass filter [days] 56 REAL(wp) :: rn_zdef_max ! maximum fractional e3t deformation 57 LOGICAL , PUBLIC :: ln_vvl_dbg ! debug control prints 58 58 59 59 !! * Module variables … … 851 851 !!---------------------------------------------------------------------- 852 852 INTEGER :: ioptio 853 INTEGER :: ios 853 854 854 855 NAMELIST/nam_vvl/ ln_vvl_zstar, ln_vvl_ztilde, ln_vvl_layer, ln_vvl_ztilde_as_zstar, & … … 857 858 !!---------------------------------------------------------------------- 858 859 859 REWIND ( numnam ) ! Read Namelist nam_vvl : vertical coordinate 860 READ ( numnam, nam_vvl ) 860 REWIND( numnam_ref ) ! Namelist nam_vvl in reference namelist : 861 READ ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901) 862 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist', lwp ) 863 864 REWIND( numnam_cfg ) ! Namelist nam_vvl in configuration namelist : Parameters of the run 865 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 866 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp ) 867 WRITE ( numond, nam_vvl ) 861 868 862 869 IF(lwp) THEN ! Namelist print
Note: See TracChangeset
for help on using the changeset viewer.