- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90
r3820 r4147 34 34 PUBLIC zdf_bfr_init ! called by opa.F90 35 35 36 ! 37 INTEGER , PUBLIC :: nn_bfr = 0! = 0/1/2/3 type of bottom friction (PUBLIC for TAM)38 REAL(wp), PUBLIC :: rn_bfri1 = 4.0e-4_wp! bottom drag coefficient (linear case) (PUBLIC for TAM)39 REAL(wp), PUBLIC :: rn_bfri2 = 1.0e-3_wp! bottom drag coefficient (non linear case) (PUBLIC for TAM)40 REAL(wp), PUBLIC :: rn_bfeb2 = 2.5e-3_wp! background bottom turbulent kinetic energy [m2/s2] (PUBLIC for TAM)41 REAL(wp), PUBLIC :: rn_bfrien = 30._wp! local factor to enhance coefficient bfri (PUBLIC for TAM)42 LOGICAL , PUBLIC :: ln_bfr2d = .false.! logical switch for 2D enhancement (PUBLIC for TAM)43 LOGICAL , PUBLIC :: ln_loglayer = .false.! switch for log layer bfr coeff. (PUBLIC for TAM)44 REAL(wp), PUBLIC :: rn_bfrz0 = 0.003_wp! bottom roughness for loglayer bfr coeff (PUBLIC for TAM)45 LOGICAL , PUBLIC :: ln_bfrimp = .false.! logical switch for implicit bottom friction36 ! !!* Namelist nambfr: bottom friction namelist * 37 INTEGER , PUBLIC :: nn_bfr ! = 0/1/2/3 type of bottom friction (PUBLIC for TAM) 38 REAL(wp), PUBLIC :: rn_bfri1 ! bottom drag coefficient (linear case) (PUBLIC for TAM) 39 REAL(wp), PUBLIC :: rn_bfri2 ! bottom drag coefficient (non linear case) (PUBLIC for TAM) 40 REAL(wp), PUBLIC :: rn_bfeb2 ! background bottom turbulent kinetic energy [m2/s2] (PUBLIC for TAM) 41 REAL(wp), PUBLIC :: rn_bfrien ! local factor to enhance coefficient bfri (PUBLIC for TAM) 42 LOGICAL , PUBLIC :: ln_bfr2d ! logical switch for 2D enhancement (PUBLIC for TAM) 43 LOGICAL , PUBLIC :: ln_loglayer ! switch for log layer bfr coeff. (PUBLIC for TAM) 44 REAL(wp), PUBLIC :: rn_bfrz0 ! bottom roughness for loglayer bfr coeff (PUBLIC for TAM) 45 LOGICAL , PUBLIC :: ln_bfrimp ! logical switch for implicit bottom friction 46 46 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:), PUBLIC :: bfrcoef2d ! 2D bottom drag coefficient (PUBLIC for TAM) 47 47 … … 179 179 INTEGER :: ikbu, ikbv ! temporary integers 180 180 INTEGER :: ictu, ictv ! - - 181 INTEGER :: ios 181 182 REAL(wp) :: zminbfr, zmaxbfr ! temporary scalars 182 183 REAL(wp) :: zfru, zfrv ! - - … … 188 189 IF( nn_timing == 1 ) CALL timing_start('zdf_bfr_init') 189 190 ! 190 REWIND ( numnam ) !* Read Namelist nam_bfr : bottom momentum boundary condition 191 READ ( numnam, nambfr ) 191 REWIND( numnam_ref ) ! Namelist nambfr in reference namelist : Bottom momentum boundary condition 192 READ ( numnam_ref, nambfr, IOSTAT = ios, ERR = 901) 193 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in reference namelist', lwp ) 194 195 REWIND( numnam_cfg ) ! Namelist nambfr in configuration namelist : Bottom momentum boundary condition 196 READ ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 ) 197 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp ) 198 WRITE ( numond, nambfr ) 192 199 193 200 ! !* Parameter control and print
Note: See TracChangeset
for help on using the changeset viewer.