Changeset 13279 for NEMO/branches/2020
- Timestamp:
- 2020-07-09T12:39:43+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl
- Files:
-
- 67 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/AGRIF_DEMO/EXPREF/1_namelist_cfg
r13250 r13279 175 175 !! !! 176 176 !! namdrg top/bottom drag coefficient (default: NO selection) 177 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)178 !! namdrg_bot bottom friction (ln_ OFF=F)177 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 178 !! namdrg_bot bottom friction (ln_drg_OFF=F) 179 179 !! nambbc bottom temperature boundary condition (default: OFF) 180 180 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/AGRIF_DEMO/EXPREF/namelist_cfg
r13249 r13279 175 175 !! !! 176 176 !! namdrg top/bottom drag coefficient (default: NO selection) 177 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)178 !! namdrg_bot bottom friction (ln_ OFF=F)177 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 178 !! namdrg_bot bottom friction (ln_drg_OFF=F) 179 179 !! nambbc bottom temperature boundary condition (default: OFF) 180 180 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/AMM12/EXPREF/namelist_cfg
r12206 r13279 213 213 !! !! 214 214 !! namdrg top/bottom drag coefficient (default: NO selection) 215 !! namdrg_top top friction (ln_ OFF =F & ln_isfcav=T)216 !! namdrg_bot bottom friction (ln_ OFF =F)215 !! namdrg_top top friction (ln_drg_OFF =F & ln_isfcav=T) 216 !! namdrg_bot bottom friction (ln_drg_OFF =F) 217 217 !! nambbc bottom temperature boundary condition (default: OFF) 218 218 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/C1D_PAPA/EXPREF/namelist_cfg
r12206 r13279 257 257 !! !! 258 258 !! namdrg top/bottom drag coefficient (default: NO selection) 259 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)260 !! namdrg_bot bottom friction (ln_ OFF=F)259 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 260 !! namdrg_bot bottom friction (ln_drg_OFF=F) 261 261 !! nambbc bottom temperature boundary condition (default: OFF) 262 262 !! nambbl bottom boundary layer scheme (default: OFF) … … 269 269 / 270 270 !----------------------------------------------------------------------- 271 &namdrg_top ! TOP friction (ln_ OFF =F & ln_isfcav=T)272 !----------------------------------------------------------------------- 273 / 274 !----------------------------------------------------------------------- 275 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)271 &namdrg_top ! TOP friction (ln_drg_OFF =F & ln_isfcav=T) 272 !----------------------------------------------------------------------- 273 / 274 !----------------------------------------------------------------------- 275 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 276 276 !----------------------------------------------------------------------- 277 277 / -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/GYRE_BFM/EXPREF/namelist_cfg
r12206 r13279 101 101 !! !! 102 102 !! namdrg top/bottom drag coefficient (default: NO selection) 103 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)104 !! namdrg_bot bottom friction (ln_ OFF=F)103 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 104 !! namdrg_bot bottom friction (ln_drg_OFF=F) 105 105 !! nambbc bottom temperature boundary condition (default: OFF) 106 106 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/GYRE_PISCES/EXPREF/namelist_cfg
r12206 r13279 99 99 !! !! 100 100 !! namdrg top/bottom drag coefficient (default: NO selection) 101 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)102 !! namdrg_bot bottom friction (ln_ OFF=F)101 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 102 !! namdrg_bot bottom friction (ln_drg_OFF=F) 103 103 !! nambbc bottom temperature boundary condition (default: OFF) 104 104 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/ORCA2_ICE_PISCES/EXPREF/namelist_cfg
r13249 r13279 203 203 !! !! 204 204 !! namdrg top/bottom drag coefficient (default: NO selection) 205 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)206 !! namdrg_bot bottom friction (ln_ OFF=F)205 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 206 !! namdrg_bot bottom friction (ln_drg_OFF=F) 207 207 !! nambbc bottom temperature boundary condition (default: OFF) 208 208 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/ORCA2_OFF_PISCES/EXPREF/namelist_cfg
r12206 r13279 190 190 !! !! 191 191 !! namdrg top/bottom drag coefficient (default: NO selection) 192 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)193 !! namdrg_bot bottom friction (ln_ OFF=F)192 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 193 !! namdrg_bot bottom friction (ln_drg_OFF=F) 194 194 !! nambbc bottom temperature boundary condition (default: OFF) 195 195 !! nambbl bottom boundary layer scheme (default: OFF) … … 201 201 / 202 202 !----------------------------------------------------------------------- 203 &namdrg_top ! TOP friction (ln_ OFF =F & ln_isfcav=T)204 !----------------------------------------------------------------------- 205 / 206 !----------------------------------------------------------------------- 207 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)203 &namdrg_top ! TOP friction (ln_drg_OFF =F & ln_isfcav=T) 204 !----------------------------------------------------------------------- 205 / 206 !----------------------------------------------------------------------- 207 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 208 208 !----------------------------------------------------------------------- 209 209 / -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/ORCA2_OFF_TRC/EXPREF/namelist_cfg
r12206 r13279 188 188 !! !! 189 189 !! namdrg top/bottom drag coefficient (default: NO selection) 190 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)191 !! namdrg_bot bottom friction (ln_ OFF=F)190 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 191 !! namdrg_bot bottom friction (ln_drg_OFF=F) 192 192 !! nambbc bottom temperature boundary condition (default: OFF) 193 193 !! nambbl bottom boundary layer scheme (default: OFF) … … 199 199 / 200 200 !----------------------------------------------------------------------- 201 &namdrg_top ! TOP friction (ln_ OFF =F & ln_isfcav=T)202 !----------------------------------------------------------------------- 203 / 204 !----------------------------------------------------------------------- 205 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)201 &namdrg_top ! TOP friction (ln_drg_OFF =F & ln_isfcav=T) 202 !----------------------------------------------------------------------- 203 / 204 !----------------------------------------------------------------------- 205 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 206 206 !----------------------------------------------------------------------- 207 207 / -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/ORCA2_SAS_ICE/EXPREF/namelist_cfg
r12206 r13279 124 124 !! !! 125 125 !! namdrg top/bottom drag coefficient (default: NO selection) 126 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)127 !! namdrg_bot bottom friction (ln_ OFF=F)126 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 127 !! namdrg_bot bottom friction (ln_drg_OFF=F) 128 128 !! nambbc bottom temperature boundary condition (default: OFF) 129 129 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/SHARED/namelist_pisces_ref
r11536 r13279 197 197 mpratn = 0.01 ! nanophytoplankton mortality rate 198 198 mpratp = 0.01 ! picophytoplankton mortality rate 199 mprat 2= 0.01 ! Diatoms mortality rate199 mpratd = 0.01 ! Diatoms mortality rate 200 200 / 201 201 !----------------------------------------------------------------------- … … 230 230 resrat2 = 0.005 ! exsudation rate of mesozooplankton 231 231 mzrat2 = 0.02 ! mesozooplankton mortality rate 232 xpref2d = 1. ! zoo preference for phyto233 xpref2 p = 1. ! zoo preference for POC232 xpref2d = 1. ! zoo preference for Diatoms 233 xpref2n = 1. ! zoo preference for nanophyto 234 234 xpref2z = 1. ! zoo preference for zoo 235 xpref2m = 0.2 ! meso preference forzoo236 xpref2c = 0.3 ! zoo preference for poc235 xpref2m = 0.2 ! zoo preference for mesozoo 236 xpref2c = 0.3 ! zoo preference for POC 237 237 xthresh2zoo = 1E-8 ! zoo feeding threshold for mesozooplankton 238 238 xthresh2dia = 1E-8 ! diatoms feeding threshold for mesozooplankton -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/SHARED/namelist_ref
r13249 r13279 419 419 rn_dep_max = 150. ! depth over which runoffs is spread ( ln_rnf_depth_ini = .true ) 420 420 nn_rnf_depth_file = 0 ! create (=1) a runoff depth file or not (=0) 421 ln_rnf_icb = .false. ! read in iceberg flux from a file (fill sn_i_rnf if .true.) 421 422 422 423 cn_dir = './' ! root directory for the runoff data location … … 429 430 sn_t_rnf = 'runoffs' , 24. , 'rotemper', .true. , .true. , 'yearly' , '' , '' , '' 430 431 sn_dep_rnf = 'runoffs' , 0. , 'rodepth' , .false. , .true. , 'yearly' , '' , '' , '' 432 sn_i_rnf = 'NOT_USED' , -1. , 'sorunoff', .true. , .true. , 'yearly' , '' , '' , '' 431 433 / 432 434 !----------------------------------------------------------------------- … … 666 668 !! !! 667 669 !! namdrg top/bottom drag coefficient (default: NO selection) 668 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)669 !! namdrg_bot bottom friction (ln_ OFF=F)670 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 671 !! namdrg_bot bottom friction (ln_drg_OFF=F) 670 672 !! nambbc bottom temperature boundary condition (default: OFF) 671 673 !! nambbl bottom boundary layer scheme (default: OFF) … … 675 677 &namdrg ! top/bottom drag coefficient (default: NO selection) 676 678 !----------------------------------------------------------------------- 677 ln_ OFF= .false. ! free-slip : Cd = 0 (F => fill namdrg_bot679 ln_drg_OFF = .false. ! free-slip : Cd = 0 (F => fill namdrg_bot 678 680 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 679 681 ln_non_lin = .false. ! non-linear drag: Cd = Cd0 |U| … … 684 686 / 685 687 !----------------------------------------------------------------------- 686 &namdrg_top ! TOP friction (ln_ OFF =F & ln_isfcav=T)688 &namdrg_top ! TOP friction (ln_drg_OFF =F & ln_isfcav=T) 687 689 !----------------------------------------------------------------------- 688 690 rn_Cd0 = 1.e-3 ! drag coefficient [-] … … 695 697 / 696 698 !----------------------------------------------------------------------- 697 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)699 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 698 700 !----------------------------------------------------------------------- 699 701 rn_Cd0 = 1.e-3 ! drag coefficient [-] … … 1064 1066 rn_mxlice = 10. ! max constant ice thickness value when scaling under sea-ice ( nn_mxlice=1) 1065 1067 rn_mxl0 = 0.04 ! surface buoyancy lenght scale minimum value 1066 ln_drg = .false. ! top/bottom friction added as boundary condition of TKE1067 1068 ln_lc = .true. ! Langmuir cell parameterisation (Axell 2002) 1068 1069 rn_lc = 0.15 ! coef. associated to Langmuir cells -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/SHARED/namelist_top_ref
r11536 r13279 122 122 nn_ctls_trc = 0 ! control surface type in mixed-layer trends (0,1 or n<jpk) 123 123 rn_ucf_trc = 1 ! unit conversion factor (=1 -> /seconds ; =86400. -> /day) 124 ln_trdmld_trc_restart = .false. ! restart for ML diagnostics 125 ln_trdmld_trc_instant = .true. ! flag to diagnose trends of instantantaneous or mean ML T/S 124 ln_trdmxl_trc_restart = .false. ! restart for ML diagnostics 125 ln_trdmxl_trc_instant = .true. ! flag to diagnose trends of instantantaneous or mean ML T/S 126 cn_trdrst_trc_in = 'restart_trd' ! suffix of pass. tracer trends restart name (input) 127 cn_trdrst_trc_out = 'restart_trd' ! suffix of pass. tracer trends restart name (output) 126 128 ln_trdtrc( 1) = .true. 127 129 ln_trdtrc( 2) = .true. -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/SPITZ12/EXPREF/namelist_cfg
r13249 r13279 206 206 !! !! 207 207 !! namdrg top/bottom drag coefficient (default: NO selection) 208 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)209 !! namdrg_bot bottom friction (ln_ OFF=F)208 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 209 !! namdrg_bot bottom friction (ln_drg_OFF=F) 210 210 !! nambbc bottom temperature boundary condition (default: OFF) 211 211 !! nambbl bottom boundary layer scheme (default: OFF) … … 220 220 / 221 221 !----------------------------------------------------------------------- 222 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)222 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 223 223 !----------------------------------------------------------------------- 224 224 rn_Cd0 = 2.5e-3 ! drag coefficient [-] -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/doc/namelists/namdrg
r13249 r13279 2 2 &namdrg ! top/bottom drag coefficient (default: NO selection) 3 3 !----------------------------------------------------------------------- 4 ln_ OFF= .false. ! free-slip : Cd = 0 (F => fill namdrg_bot4 ln_drg_OFF = .false. ! free-slip : Cd = 0 (F => fill namdrg_bot 5 5 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 6 6 ln_non_lin = .false. ! non-linear drag: Cd = Cd0 |U| -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/doc/namelists/namdrg_bot
r10075 r13279 1 1 !----------------------------------------------------------------------- 2 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)2 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 3 3 !----------------------------------------------------------------------- 4 4 rn_Cd0 = 1.e-3 ! drag coefficient [-] -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/doc/namelists/namdrg_top
r10075 r13279 1 1 !----------------------------------------------------------------------- 2 &namdrg_top ! TOP friction (ln_ OFF =F & ln_isfcav=T)2 &namdrg_top ! TOP friction (ln_drg_OFF =F & ln_isfcav=T) 3 3 !----------------------------------------------------------------------- 4 4 rn_Cd0 = 1.e-3 ! drag coefficient [-] -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/doc/namelists/namzdf_tke
r13249 r13279 15 15 ln_mxl0 = .true. ! surface mixing length scale = F(wind stress) (T) or not (F) 16 16 rn_mxl0 = 0.04 ! surface buoyancy lenght scale minimum value 17 ln_drg = .false. ! top/bottom friction added as boundary condition of TKE18 17 ln_lc = .true. ! Langmuir cell parameterisation (Axell 2002) 19 18 rn_lc = 0.15 ! coef. associated to Langmuir cells -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/icedyn_rhg_evp.F90
r13064 r13279 160 160 REAL(wp), DIMENSION(jpi,jpj) :: zmsk01x, zmsk01y ! dummy arrays 161 161 REAL(wp), DIMENSION(jpi,jpj) :: zmsk00x, zmsk00y ! mask for ice presence 162 REAL(wp), DIMENSION(jpi,jpj) :: zfmask , zwf! mask at F points for the ice162 REAL(wp), DIMENSION(jpi,jpj) :: zfmask ! mask at F points for the ice 163 163 164 164 REAL(wp), PARAMETER :: zepsi = 1.0e-20_wp ! tolerance parameter … … 202 202 203 203 ! Lateral boundary conditions on velocity (modify zfmask) 204 zwf(:,:) = zfmask(:,:)205 204 DO jj = 2, jpjm1 206 205 DO ji = fs_2, fs_jpim1 ! vector opt. 207 206 IF( zfmask(ji,jj) == 0._wp ) THEN 208 zfmask(ji,jj) = rn_ishlat * MIN( 1._wp , MAX( zwf(ji+1,jj), zwf(ji,jj+1), zwf(ji-1,jj), zwf(ji,jj-1) ) ) 207 zfmask(ji,jj) = rn_ishlat * MIN( 1._wp , MAX( umask(ji,jj,1), umask(ji,jj+1,1), & 208 & vmask(ji,jj,1), vmask(ji+1,jj,1) ) ) 209 209 ENDIF 210 210 END DO … … 212 212 DO jj = 2, jpjm1 213 213 IF( zfmask(1,jj) == 0._wp ) THEN 214 zfmask(1 ,jj) = rn_ishlat * MIN( 1._wp , MAX( zwf(2,jj), zwf(1,jj+1), zwf(1,jj-1) ) )214 zfmask(1 ,jj) = rn_ishlat * MIN( 1._wp , MAX( vmask(2,jj,1), umask(1,jj+1,1), umask(1,jj,1) ) ) 215 215 ENDIF 216 216 IF( zfmask(jpi,jj) == 0._wp ) THEN 217 zfmask(jpi,jj) = rn_ishlat * MIN( 1._wp , MAX( zwf(jpi,jj+1), zwf(jpim1,jj), zwf(jpi,jj-1) ) )218 217 zfmask(jpi,jj) = rn_ishlat * MIN( 1._wp , MAX( umask(jpi,jj+1,1), vmask(jpim1,jj,1), umask(jpi,jj-1,1) ) ) 218 ENDIF 219 219 END DO 220 220 DO ji = 2, jpim1 221 221 IF( zfmask(ji,1) == 0._wp ) THEN 222 zfmask(ji, 1 ) = rn_ishlat * MIN( 1._wp , MAX( zwf(ji+1,1), zwf(ji,2), zwf(ji-1,1) ) )222 zfmask(ji, 1 ) = rn_ishlat * MIN( 1._wp , MAX( vmask(ji+1,1,1), umask(ji,2,1), vmask(ji,1,1) ) ) 223 223 ENDIF 224 224 IF( zfmask(ji,jpj) == 0._wp ) THEN 225 zfmask(ji,jpj) = rn_ishlat * MIN( 1._wp , MAX( zwf(ji+1,jpj), zwf(ji-1,jpj), zwf(ji,jpjm1) ) )225 zfmask(ji,jpj) = rn_ishlat * MIN( 1._wp , MAX( vmask(ji+1,jpj,1), vmask(ji-1,jpj,1), umask(ji,jpjm1,1) ) ) 226 226 ENDIF 227 227 END DO -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/BDY/bdydta.F90
r12955 r13279 403 403 TYPE(FLD ), DIMENSION(:), POINTER :: bf_alias 404 404 ! 405 NAMELIST/nambdy_dta/ cn_dir, bn_tem, bn_sal, bn_u3d, bn_v3d, bn_ssh, bn_u2d, bn_v2d 406 NAMELIST/nambdy_dta/ bn_a_i, bn_h_i, bn_h_s, bn_t_i, bn_t_s, bn_tsu, bn_s_i, bn_aip, bn_hip, bn_hil407 NAMELIST/nambdy_dta/ rn_ice_tem, rn_ice_sal, rn_ice_age, rn_ice_apnd, rn_ice_hpnd, rn_ice_hlid408 NAMELIST/nambdy_dta/ln_full_vel, ln_zinterp405 NAMELIST/nambdy_dta/ cn_dir, bn_tem, bn_sal, bn_u3d, bn_v3d, bn_ssh, bn_u2d, bn_v2d, & 406 & bn_a_i, bn_h_i, bn_h_s, bn_t_i, bn_t_s, bn_tsu, bn_s_i, bn_aip, bn_hip, bn_hil, & 407 & rn_ice_tem, rn_ice_sal, rn_ice_age, rn_ice_apnd, rn_ice_hpnd, rn_ice_hlid, & 408 & ln_full_vel, ln_zinterp 409 409 !!--------------------------------------------------------------------------- 410 410 ! -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/DOM/dommsk.F90
r12816 r13279 92 92 INTEGER :: iktop, ikbot ! - - 93 93 INTEGER :: ios, inum 94 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zwf ! 2D workspace95 94 !! 96 95 NAMELIST/namlbc/ rn_shlat, ln_vorlat … … 243 242 IF( rn_shlat /= 0 ) THEN ! Not free-slip lateral boundary condition 244 243 ! 245 ALLOCATE( zwf(jpi,jpj) )246 !247 244 DO jk = 1, jpk 248 zwf(:,:) = fmask(:,:,jk)249 245 DO jj = 2, jpjm1 250 246 DO ji = fs_2, fs_jpim1 ! vector opt. 251 247 IF( fmask(ji,jj,jk) == 0._wp ) THEN 252 fmask(ji,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,jj), zwf(ji,jj+1),&253 & zwf(ji-1,jj), zwf(ji,jj-1) ))248 fmask(ji,jj,jk) = rn_shlat * MIN( 1._wp , MAX( umask(ji,jj,jk), umask(ji,jj+1,jk), & 249 & vmask(ji,jj,jk), vmask(ji+1,jj,jk) ) ) 254 250 ENDIF 255 251 END DO … … 257 253 DO jj = 2, jpjm1 258 254 IF( fmask(1,jj,jk) == 0._wp ) THEN 259 fmask(1 ,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(2,jj), zwf(1,jj+1), zwf(1,jj-1) ) )255 fmask(1 ,jj,jk) = rn_shlat * MIN( 1._wp , MAX( vmask(2,jj,jk), umask(1,jj+1,jk), umask(1,jj,jk) ) ) 260 256 ENDIF 261 257 IF( fmask(jpi,jj,jk) == 0._wp ) THEN 262 fmask(jpi,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(jpi,jj+1), zwf(jpim1,jj), zwf(jpi,jj-1) ) )258 fmask(jpi,jj,jk) = rn_shlat * MIN( 1._wp , MAX( umask(jpi,jj+1,jk), vmask(jpim1,jj,jk), umask(jpi,jj-1,jk) ) ) 263 259 ENDIF 264 260 END DO 265 261 DO ji = 2, jpim1 266 262 IF( fmask(ji,1,jk) == 0._wp ) THEN 267 fmask(ji, 1 ,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,1), zwf(ji,2), zwf(ji-1,1) ) )263 fmask(ji, 1 ,jk) = rn_shlat * MIN( 1._wp , MAX( vmask(ji+1,1,jk), umask(ji,2,jk), vmask(ji,1,jk) ) ) 268 264 ENDIF 269 265 IF( fmask(ji,jpj,jk) == 0._wp ) THEN 270 fmask(ji,jpj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,jpj), zwf(ji-1,jpj), zwf(ji,jpjm1) ) )266 fmask(ji,jpj,jk) = rn_shlat * MIN( 1._wp , MAX( vmask(ji+1,jpj,jk), vmask(ji-1,jpj,jk), umask(ji,jpjm1,jk) ) ) 271 267 ENDIF 272 268 END DO … … 281 277 END DO 282 278 ! 283 DEALLOCATE( zwf )284 !285 279 CALL lbc_lnk( 'dommsk', fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask 286 280 ! -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ICB/icb_oce.F90
r10702 r13279 57 57 TYPE, PUBLIC :: point !: properties of an individual iceberg (position, mass, size, etc...) 58 58 INTEGER :: year 59 REAL(wp) :: xi , yj ! iceberg coordinates in the (i,j) referential (global)60 REAL(wp) :: e1 , e2 ! horizontal scale factors at the iceberg position61 REAL(wp) :: lon, lat, day ! geographic position62 REAL(wp) :: mass, thickness, width, length, uvel, vvel ! iceberg physical properties63 REAL(wp) :: uo, vo, ui, vi, ua, va, ssh_x, ssh_y, sst, cn, hi ! properties of iceberg environment59 REAL(wp) :: xi , yj ! iceberg coordinates in the (i,j) referential (global) 60 REAL(wp) :: e1 , e2 ! horizontal scale factors at the iceberg position 61 REAL(wp) :: lon, lat, day ! geographic position 62 REAL(wp) :: mass, thickness, width, length, uvel, vvel ! iceberg physical properties 63 REAL(wp) :: uo, vo, ui, vi, ua, va, ssh_x, ssh_y, sst, cn, hi, sss ! properties of iceberg environment 64 64 REAL(wp) :: mass_of_bits, heat_density 65 65 END TYPE point … … 86 86 ! particularly for MPP when iceberg can lie inside T grid but outside U, V, or f grid 87 87 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: uo_e, vo_e 88 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ff_e, tt_e, fr_e 88 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ff_e, tt_e, fr_e, ss_e 89 89 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ua_e, va_e 90 90 REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE :: ssh_e … … 122 122 LOGICAL , PUBLIC :: ln_operator_splitting !: Use first order operator splitting for thermodynamics 123 123 LOGICAL , PUBLIC :: ln_passive_mode !: iceberg - ocean decoupling 124 LOGICAL , PUBLIC :: ln_time_average_weight !: Time average the weight on the ocean !!gm I don't understand that !125 124 REAL(wp), PUBLIC :: rn_speed_limit !: CFL speed limit for a berg 126 125 ! … … 179 178 & ff_e(0:jpi+1,0:jpj+1) , fr_e(0:jpi+1,0:jpj+1) , & 180 179 & tt_e(0:jpi+1,0:jpj+1) , ssh_e(0:jpi+1,0:jpj+1) , & 180 & ss_e(0:jpi+1,0:jpj+1) , & 181 181 & first_width(nclasses) , first_length(nclasses) , & 182 182 & src_calving (jpi,jpj) , & -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ICB/icbdyn.F90
r10570 r13279 258 258 ! 259 259 INTEGER :: itloop 260 REAL(wp) :: zuo, zui, zua, zuwave, zssh_x, zsst, zcn, zhi 260 REAL(wp) :: zuo, zui, zua, zuwave, zssh_x, zsst, zcn, zhi, zsss 261 261 REAL(wp) :: zvo, zvi, zva, zvwave, zssh_y 262 262 REAL(wp) :: zff, zT, zD, zW, zL, zM, zF … … 271 271 nknberg = berg%number(1) 272 272 CALL icb_utl_interp( pxi, pe1, zuo, zui, zua, zssh_x, & 273 & pyj, pe2, zvo, zvi, zva, zssh_y, zsst, zcn, zhi, zff )273 & pyj, pe2, zvo, zvi, zva, zssh_y, zsst, zcn, zhi, zff, zsss ) 274 274 275 275 zM = berg%current_point%mass -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ICB/icbini.F90
r11536 r13279 79 79 ua_e(:,:) = 0._wp ; va_e(:,:) = 0._wp ; 80 80 ff_e(:,:) = 0._wp ; tt_e(:,:) = 0._wp ; 81 fr_e(:,:) = 0._wp ; 81 fr_e(:,:) = 0._wp ; ss_e(:,:) = 0._wp ; 82 82 #if defined key_si3 83 83 hi_e(:,:) = 0._wp ; … … 382 382 & rn_rho_bergs , rn_LoW_ratio , nn_verbose_level , ln_operator_splitting, & 383 383 & rn_bits_erosion_fraction , rn_sicn_shift , ln_passive_mode , & 384 & ln_time_average_weight , nn_test_icebergs , rn_test_box, &385 & ln_use_calving ,rn_speed_limit , cn_dir, sn_icb384 & nn_test_icebergs , rn_test_box , ln_use_calving , & 385 & rn_speed_limit , cn_dir, sn_icb 386 386 !!---------------------------------------------------------------------- 387 387 … … 468 468 WRITE(numout,*) ' Do not add freshwater flux from icebergs to ocean ', & 469 469 & ' passive_mode = ', ln_passive_mode 470 WRITE(numout,*) ' Time average the weight on the ocean time_average_weight = ', ln_time_average_weight471 470 WRITE(numout,*) ' Create icebergs in absence of a restart file nn_test_icebergs = ', nn_test_icebergs 472 471 WRITE(numout,*) ' in lon/lat box = ', rn_test_box -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ICB/icbthm.F90
r12291 r13279 20 20 USE phycst ! NEMO physical constants 21 21 USE sbc_oce 22 USE eosbn2 ! equation of state 22 23 USE lib_fortran, ONLY : DDPDD 23 24 … … 50 51 INTEGER :: ii, ij 51 52 REAL(wp) :: zM, zT, zW, zL, zSST, zVol, zLn, zWn, zTn, znVol, zIC, zDn 53 REAL(wp) :: zSSS, zfzpt 52 54 REAL(wp) :: zMv, zMe, zMb, zmelt, zdvo, zdva, zdM, zSs, zdMe, zdMb, zdMv 53 55 REAL(wp) :: zMnew, zMnew1, zMnew2, zheat_hcflux, zheat_latent, z1_12 … … 85 87 CALL icb_utl_interp( pt%xi, pt%e1, pt%uo, pt%ui, pt%ua, pt%ssh_x, & 86 88 & pt%yj, pt%e2, pt%vo, pt%vi, pt%va, pt%ssh_y, & 87 & pt%sst, pt%cn, pt%hi, zff )89 & pt%sst, pt%cn, pt%hi, zff, pt%sss ) 88 90 ! 89 91 zSST = pt%sst 92 zSSS = pt%sss 93 CALL eos_fzp(zSSS,zfzpt) ! freezing point 90 94 zIC = MIN( 1._wp, pt%cn + rn_sicn_shift ) ! Shift sea-ice concentration !!gm ??? 91 95 zM = pt%mass … … 109 113 110 114 ! Melt rates in m/s (i.e. division by rday) 111 zMv = MAX( 7.62d-3*zSST+1.29d-3*(zSST**2) , 0._wp ) * z1_rday ! Buoyant convection at sides (eqn M.A10) 112 zMb = MAX( 0.58_wp*(zdvo**0.8_wp)*(zSST+4.0_wp)/(zL**0.2_wp) , 0._wp ) * z1_rday ! Basal turbulent melting (eqn M.A7 ) 113 zMe = MAX( z1_12*(zSST+2.)*zSs*(1._wp+COS(rpi*(zIC**3))) , 0._wp ) * z1_rday ! Wave erosion (eqn M.A8 ) 115 zMv = MAX( 7.62d-3*zSST+1.29d-3*(zSST**2) , 0._wp ) * z1_rday ! Buoyant convection at sides (eqn M.A10) 116 IF ( zSST > zfzpt ) THEN ! Calculate basal melting only if SST above freezing point 117 zMb = MAX( 0.58_wp*(zdvo**0.8_wp)*(zSST+4.0_wp)/(zL**0.2_wp) , 0._wp ) * z1_rday ! Basal turbulent melting (eqn M.A7 ) 118 ELSE 119 zMb = 0._wp ! No basal melting if SST below freezing point 120 ENDIF 121 zMe = MAX( z1_12*(zSST+2.)*zSs*(1._wp+COS(rpi*(zIC**3))) , 0._wp ) * z1_rday ! Wave erosion (eqn M.A8 ) 114 122 115 123 IF( ln_operator_splitting ) THEN ! Operator split update of volume/mass -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ICB/icbutl.F90
r10702 r13279 74 74 ff_e(1:jpi,1:jpj) = ff_f (:,:) 75 75 tt_e(1:jpi,1:jpj) = sst_m(:,:) 76 ss_e(1:jpi,1:jpj) = sss_m(:,:) 76 77 fr_e(1:jpi,1:jpj) = fr_i (:,:) 77 78 ua_e(1:jpi,1:jpj) = utau (:,:) * umask(:,:,1) ! maybe mask useless because mask applied in sbcblk … … 85 86 CALL lbc_lnk_icb( 'icbutl', fr_e, 'T', +1._wp, 1, 1 ) 86 87 CALL lbc_lnk_icb( 'icbutl', tt_e, 'T', +1._wp, 1, 1 ) 88 CALL lbc_lnk_icb( 'icbutl', ss_e, 'T', +1._wp, 1, 1 ) 87 89 #if defined key_si3 88 90 hi_e(1:jpi, 1:jpj) = hm_i (:,:) … … 107 109 SUBROUTINE icb_utl_interp( pi, pe1, puo, pui, pua, pssh_i, & 108 110 & pj, pe2, pvo, pvi, pva, pssh_j, & 109 & psst, pcn, phi, pff 111 & psst, pcn, phi, pff, psss ) 110 112 !!---------------------------------------------------------------------- 111 113 !! *** ROUTINE icb_utl_interp *** … … 128 130 REAL(wp), INTENT( out) :: puo, pvo, pui, pvi, pua, pva ! ocean, ice and wind speeds 129 131 REAL(wp), INTENT( out) :: pssh_i, pssh_j ! ssh i- & j-gradients 130 REAL(wp), INTENT( out) :: psst, pcn, phi, pff ! SST, ice concentration, ice thickness, Coriolis132 REAL(wp), INTENT( out) :: psst, pcn, phi, pff, psss ! SST, ice concentration, ice thickness, Coriolis, SSS 131 133 ! 132 134 REAL(wp) :: zcd, zmod ! local scalars … … 139 141 pvo = icb_utl_bilin_h( vo_e, pi, pj, 'V', .false. ) 140 142 psst = icb_utl_bilin_h( tt_e, pi, pj, 'T', .true. ) ! SST 143 psss = icb_utl_bilin_h( ss_e, pi, pj, 'T', .true. ) ! SSS 141 144 pcn = icb_utl_bilin_h( fr_e, pi, pj, 'T', .true. ) ! ice concentration 142 145 pff = icb_utl_bilin_h( ff_e, pi, pj, 'F', .false. ) ! Coriolis parameter -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/SBC/sbcrnf.F90
r12277 r13279 47 47 TYPE(FLD_N) , PUBLIC :: sn_rnf !: information about the runoff file to be read 48 48 TYPE(FLD_N) :: sn_cnf !: information about the runoff mouth file to be read 49 TYPE(FLD_N) :: sn_i_rnf !: information about the iceberg flux file to be read49 TYPE(FLD_N) :: sn_i_rnf !: information about the iceberg flux file to be read 50 50 TYPE(FLD_N) :: sn_s_rnf !: information about the salinities of runoff file to be read 51 51 TYPE(FLD_N) :: sn_t_rnf !: information about the temperatures of runoff file to be read -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/SBC/sbcwave.F90
r12816 r13279 392 392 ! 393 393 NAMELIST/namsbc_wave/ sn_cdg, cn_dir, sn_usd, sn_vsd, sn_hsw, sn_wmp, sn_wfr, & 394 394 & sn_wnum, sn_tauwoc, sn_tauwx, sn_tauwy 395 395 !!--------------------------------------------------------------------- 396 396 ! -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/STO/stopar.F90
r11536 r13279 245 245 !! ** Purpose : define the stochastic parameterization 246 246 !!---------------------------------------------------------------------- 247 NAMELIST/namsto/ ln_sto_ldf, rn_ldf_std, rn_ldf_tcor, & 248 & ln_sto_hpg, rn_hpg_std, rn_hpg_tcor, & 249 & ln_sto_pstar, rn_pstar_std, rn_pstar_tcor, nn_pstar_flt, nn_pstar_ord, & 250 & ln_sto_trd, rn_trd_std, rn_trd_tcor, & 251 & ln_sto_eos, nn_sto_eos, rn_eos_stdxy, rn_eos_stdz, & 252 & rn_eos_tcor, nn_eos_ord, nn_eos_flt, rn_eos_lim, & 253 & ln_sto_trc, nn_sto_trc, rn_trc_stdxy, rn_trc_stdz, & 254 & rn_trc_tcor, nn_trc_ord, nn_trc_flt, rn_trc_lim, & 247 ! stochastic equation of state only (for now) 248 NAMELIST/namsto/ ln_sto_eos, nn_sto_eos, rn_eos_stdxy, rn_eos_stdz, & 249 & rn_eos_tcor, nn_eos_ord, nn_eos_flt, rn_eos_lim, & 255 250 & ln_rststo, ln_rstseed, cn_storst_in, cn_storst_out 251 !NAMELIST/namsto/ ln_sto_ldf, rn_ldf_std, rn_ldf_tcor, & 252 ! & ln_sto_hpg, rn_hpg_std, rn_hpg_tcor, & 253 ! & ln_sto_pstar, rn_pstar_std, rn_pstar_tcor, nn_pstar_flt, nn_pstar_ord, & 254 ! & ln_sto_trd, rn_trd_std, rn_trd_tcor, & 255 ! & ln_sto_trc, nn_sto_trc, rn_trc_stdxy, rn_trc_stdz, & 256 ! & rn_trc_tcor, nn_trc_ord, nn_trc_flt, rn_trc_lim 256 257 !!---------------------------------------------------------------------- 257 258 INTEGER :: jsto, jmem, jarea, jdof, jord, jordm1, jk, jflt … … 261 262 262 263 ! Read namsto namelist : stochastic parameterization 263 REWIND( numnam_ref ) ! Namelist nam dyn_adv in reference namelist : Momentum advection scheme264 REWIND( numnam_ref ) ! Namelist namsto in reference namelist : stochastic parameterization 264 265 READ ( numnam_ref, namsto, IOSTAT = ios, ERR = 901) 265 266 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in reference namelist' ) 266 267 267 REWIND( numnam_cfg ) ! Namelist nam dyn_adv in configuration namelist : Momentum advection scheme268 REWIND( numnam_cfg ) ! Namelist namsto in configuration namelist : stochastic parameterization 268 269 READ ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 269 270 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist' ) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ZDF/zdfdrg.F90
r13249 r13279 42 42 43 43 ! !!* Namelist namdrg: nature of drag coefficient namelist * 44 LOGICAL :: ln_OFF! free-slip : Cd = 044 LOGICAL , PUBLIC :: ln_drg_OFF ! free-slip : Cd = 0 45 45 LOGICAL :: ln_lin ! linear drag: Cd = Cd0_lin 46 46 LOGICAL :: ln_non_lin ! non-linear drag: Cd = Cd0_nl |U| … … 232 232 INTEGER :: ios, ioptio ! local integers 233 233 !! 234 NAMELIST/namdrg/ ln_ OFF, ln_lin, ln_non_lin, ln_loglayer, ln_drgimp, ln_drgice_imp234 NAMELIST/namdrg/ ln_drg_OFF, ln_lin, ln_non_lin, ln_loglayer, ln_drgimp, ln_drgice_imp 235 235 !!---------------------------------------------------------------------- 236 236 ! … … 250 250 WRITE(numout,*) '~~~~~~~~~~~~' 251 251 WRITE(numout,*) ' Namelist namdrg : top/bottom friction choices' 252 WRITE(numout,*) ' free-slip : Cd = 0 ln_ OFF = ', ln_OFF252 WRITE(numout,*) ' free-slip : Cd = 0 ln_drg_OFF = ', ln_drg_OFF 253 253 WRITE(numout,*) ' linear drag : Cd = Cd0 ln_lin = ', ln_lin 254 254 WRITE(numout,*) ' non-linear drag: Cd = Cd0_nl |U| ln_non_lin = ', ln_non_lin … … 259 259 ! 260 260 ioptio = 0 ! set ndrg and control check 261 IF( ln_ OFF) THEN ; ndrg = np_OFF ; ioptio = ioptio + 1 ; ENDIF261 IF( ln_drg_OFF ) THEN ; ndrg = np_OFF ; ioptio = ioptio + 1 ; ENDIF 262 262 IF( ln_lin ) THEN ; ndrg = np_lin ; ioptio = ioptio + 1 ; ENDIF 263 263 IF( ln_non_lin ) THEN ; ndrg = np_non_lin ; ioptio = ioptio + 1 ; ENDIF -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ZDF/zdfgls.F90
r13249 r13279 19 19 USE dom_oce ! ocean space and time domain 20 20 USE domvvl ! ocean space and time domain : variable volume layer 21 USE zdfdrg , ONLY : ln_drg_OFF ! top/bottom free-slip flag 21 22 USE zdfdrg , ONLY : r_z0_top , r_z0_bot ! top/bottom roughness 22 23 USE zdfdrg , ONLY : rCdU_top , rCdU_bot ! top/bottom friction … … 176 177 177 178 ! Compute surface, top and bottom friction at T-points 178 DO jj = 2, jpjm1 179 DO ji = fs_2, fs_jpim1 ! vector opt. 180 ! 181 ! surface friction 179 DO jj = 2, jpjm1 !== surface ocean friction 180 DO ji = fs_2, fs_jpim1 ! vector opt. 182 181 ustar2_surf(ji,jj) = r1_rau0 * taum(ji,jj) * tmask(ji,jj,1) 183 ! 182 END DO 183 END DO 184 ! 184 185 !!gm Rq we may add here r_ke0(_top/_bot) ? ==>> think about that... 185 ! bottom friction (explicit before friction) 186 zmsku = ( 2._wp - umask(ji-1,jj,mbkt(ji,jj)) * umask(ji,jj,mbkt(ji,jj)) ) 187 zmskv = ( 2._wp - vmask(ji,jj-1,mbkt(ji,jj)) * vmask(ji,jj,mbkt(ji,jj)) ) ! (CAUTION: CdU<0) 188 ustar2_bot(ji,jj) = - rCdU_bot(ji,jj) * SQRT( ( zmsku*( ub(ji,jj,mbkt(ji,jj))+ub(ji-1,jj,mbkt(ji,jj)) ) )**2 & 189 & + ( zmskv*( vb(ji,jj,mbkt(ji,jj))+vb(ji,jj-1,mbkt(ji,jj)) ) )**2 ) 190 END DO 191 END DO 192 IF( ln_isfcav ) THEN !top friction 193 DO jj = 2, jpjm1 194 DO ji = fs_2, fs_jpim1 ! vector opt. 195 zmsku = ( 2. - umask(ji-1,jj,mikt(ji,jj)) * umask(ji,jj,mikt(ji,jj)) ) 196 zmskv = ( 2. - vmask(ji,jj-1,mikt(ji,jj)) * vmask(ji,jj,mikt(ji,jj)) ) ! (CAUTION: CdU<0) 197 ustar2_top(ji,jj) = - rCdU_top(ji,jj) * SQRT( ( zmsku*( ub(ji,jj,mikt(ji,jj))+ub(ji-1,jj,mikt(ji,jj)) ) )**2 & 198 & + ( zmskv*( vb(ji,jj,mikt(ji,jj))+vb(ji,jj-1,mikt(ji,jj)) ) )**2 ) 199 END DO 200 END DO 186 ! 187 IF( .NOT.ln_drg_OFF ) THEN !== top/bottom friction (explicit before friction) 188 DO jj = 2, jpjm1 ! bottom friction 189 DO ji = fs_2, fs_jpim1 ! vector opt. 190 zmsku = ( 2._wp - umask(ji-1,jj,mbkt(ji,jj)) * umask(ji,jj,mbkt(ji,jj)) ) 191 zmskv = ( 2._wp - vmask(ji,jj-1,mbkt(ji,jj)) * vmask(ji,jj,mbkt(ji,jj)) ) ! (CAUTION: CdU<0) 192 ustar2_bot(ji,jj) = - rCdU_bot(ji,jj) * SQRT( ( zmsku*( ub(ji,jj,mbkt(ji,jj))+ub(ji-1,jj,mbkt(ji,jj)) ) )**2 & 193 & + ( zmskv*( vb(ji,jj,mbkt(ji,jj))+vb(ji,jj-1,mbkt(ji,jj)) ) )**2 ) 194 END DO 195 END DO 196 IF( ln_isfcav ) THEN !top friction 197 DO jj = 2, jpjm1 198 DO ji = fs_2, fs_jpim1 ! vector opt. 199 zmsku = ( 2._wp - umask(ji-1,jj,mikt(ji,jj)) * umask(ji,jj,mikt(ji,jj)) ) 200 zmskv = ( 2._wp - vmask(ji,jj-1,mikt(ji,jj)) * vmask(ji,jj,mikt(ji,jj)) ) ! (CAUTION: CdU<0) 201 ustar2_top(ji,jj) = - rCdU_top(ji,jj) * SQRT( ( zmsku*( ub(ji,jj,mikt(ji,jj))+ub(ji-1,jj,mikt(ji,jj)) ) )**2 & 202 & + ( zmskv*( vb(ji,jj,mikt(ji,jj))+vb(ji,jj-1,mikt(ji,jj)) ) )**2 ) 203 END DO 204 END DO 205 ENDIF 201 206 ENDIF 202 207 … … 213 218 zhsro(:,:) = MAX(rsbc_zs2 * ustar2_surf(:,:) * zdep(:,:)**1.5, rn_hsro) ! zhsro = rn_frac_hs * Hsw (eq. 11) 214 219 CASE ( 3 ) ! Roughness given by the wave model (coupled or read in file) 215 zhsro(:,:) = rn_frac_hs * hsw(:,:) ! (rn_frac_hs=1.6 see Eq. (5) of Rascle et al. 2008 )220 zhsro(:,:) = MAX(rn_frac_hs * hsw(:,:), rn_hsro) ! (rn_frac_hs=1.6 see Eq. (5) of Rascle et al. 2008 ) 216 221 END SELECT 217 222 ! … … 920 925 921 926 ! !* Check of some namelist values 922 IF( nn_bc_surf < 0 .OR. nn_bc_surf > 1 ) CALL ctl_stop( 'zdf_gls_init: bad flag: nn_bc_surf is 0 or 1' )923 IF( nn_bc_surf < 0 .OR. nn_bc_surf > 1 ) CALL ctl_stop( 'zdf_gls_init: bad flag: nn_bc_surf is 0 or 1' )924 IF( nn_z0_met < 0 .OR. nn_z0_met > 3 ) CALL ctl_stop( 'zdf_gls_init: bad flag: nn_z0_met is 0, 1, 2 or 3' )925 IF( nn_z0_met == 3 .AND. .NOT. ln_wave ) CALL ctl_stop( 'zdf_gls_init: nn_z0_met=3 requires ln_wave=T' )926 IF( nn_stab_func < 0 .OR. nn_stab_func > 3 ) CALL ctl_stop( 'zdf_gls_init: bad flag: nn_stab_func is 0, 1, 2 and 3' )927 IF( nn_clos < 0 .OR. nn_clos > 3 ) CALL ctl_stop( 'zdf_gls_init: bad flag: nn_clos is 0, 1, 2 or 3' )927 IF( nn_bc_surf < 0 .OR. nn_bc_surf > 1 ) CALL ctl_stop( 'zdf_gls_init: bad flag: nn_bc_surf is 0 or 1' ) 928 IF( nn_bc_surf < 0 .OR. nn_bc_surf > 1 ) CALL ctl_stop( 'zdf_gls_init: bad flag: nn_bc_surf is 0 or 1' ) 929 IF( nn_z0_met < 0 .OR. nn_z0_met > 3 ) CALL ctl_stop( 'zdf_gls_init: bad flag: nn_z0_met is 0, 1, 2 or 3' ) 930 IF( nn_z0_met == 3 .AND. .NOT. (ln_wave .AND. ln_sdw ) ) CALL ctl_stop( 'zdf_gls_init: nn_z0_met=3 requires ln_wave=T and ln_sdw=T' ) 931 IF( nn_stab_func < 0 .OR. nn_stab_func > 3 ) CALL ctl_stop( 'zdf_gls_init: bad flag: nn_stab_func is 0, 1, 2 and 3' ) 932 IF( nn_clos < 0 .OR. nn_clos > 3 ) CALL ctl_stop( 'zdf_gls_init: bad flag: nn_clos is 0, 1, 2 or 3' ) 928 933 929 934 SELECT CASE ( nn_clos ) !* set the parameters for the chosen closure -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ZDF/zdfosm.F90
r11536 r13279 1420 1420 ENDIF 1421 1421 1422 1423 ! ! Check wave coupling settings ! 1424 ! ! Further work needed - see ticket #2447 ! 1425 IF( nn_osm_wave == 2 ) THEN 1426 IF (.NOT. ( ln_wave .AND. ln_sdw )) & 1427 & CALL ctl_stop( 'zdf_osm_init : ln_zdfosm and nn_osm_wave=2, ln_wave and ln_sdw must be true' ) 1428 END IF 1429 1422 1430 ! ! allocate zdfosm arrays 1423 1431 IF( zdf_osm_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'zdf_osm_init : unable to allocate arrays' ) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ZDF/zdftke.F90
r13249 r13279 28 28 !! 3.6 ! 2014-11 (P. Mathiot) add ice shelf capability 29 29 !! 4.0 ! 2017-04 (G. Madec) remove CPP ddm key & avm at t-point only 30 !! - ! 2017-05 (G. Madec) add top/bottom friction as boundary condition (ln_drg)30 !! - ! 2017-05 (G. Madec) add top/bottom friction as boundary condition 31 31 !!---------------------------------------------------------------------- 32 32 … … 79 79 REAL(wp) :: rn_emin0 ! surface minimum value of tke [m2/s2] 80 80 REAL(wp) :: rn_bshear ! background shear (>0) currently a numerical threshold (do not change it) 81 LOGICAL :: ln_drg ! top/bottom friction forcing flag82 81 INTEGER :: nn_etau ! type of depth penetration of surface tke (=0/1/2/3) 83 82 INTEGER :: nn_htau ! type of tke profile of penetration (=0/1) … … 247 246 ! Note that stress averaged is done using an wet-only calculation of u and v at t-point like in zdfsh2 248 247 ! 249 IF( ln_drg ) THEN!== friction used as top/bottom boundary condition on TKE250 ! 251 DO jj = 2, jpjm1 ! bottom friction248 IF( .NOT.ln_drg_OFF ) THEN !== friction used as top/bottom boundary condition on TKE 249 ! 250 DO jj = 2, jpjm1 ! bottom friction 252 251 DO ji = fs_2, fs_jpim1 ! vector opt. 253 252 zmsku = ( 2. - umask(ji-1,jj,mbkt(ji,jj)) * umask(ji,jj,mbkt(ji,jj)) ) … … 717 716 & rn_emin0, rn_bshear, nn_mxl , ln_mxl0 , & 718 717 & rn_mxl0 , nn_mxlice, rn_mxlice, & 719 & nn_pdl , ln_ drg , ln_lc , rn_lc,&718 & nn_pdl , ln_lc , rn_lc, & 720 719 & nn_etau , nn_htau , rn_efr , nn_eice 721 720 !!---------------------------------------------------------------------- … … 760 759 END SELECT 761 760 ENDIF 762 WRITE(numout,*) ' top/bottom friction forcing flag ln_drg = ', ln_drg763 761 WRITE(numout,*) ' Langmuir cells parametrization ln_lc = ', ln_lc 764 762 WRITE(numout,*) ' coef to compute vertical velocity of LC rn_lc = ', rn_lc … … 775 773 CALL ctl_stop( 'zdf_tke_init: wrong value for nn_eice, should be 0,1,2, or 3') 776 774 END SELECT 777 IF( ln_drg) THEN775 IF( .NOT.ln_drg_OFF ) THEN 778 776 WRITE(numout,*) 779 777 WRITE(numout,*) ' Namelist namdrg_top/_bot: used values:' -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/BENCH/EXPREF/namelist_cfg_orca025_like
r11536 r13279 75 75 !! !! 76 76 !! namdrg top/bottom drag coefficient (default: NO selection) 77 !! namdrg_top top friction (ln_ OFF =F & ln_isfcav=T)78 !! namdrg_bot bottom friction (ln_ OFF =F)77 !! namdrg_top top friction (ln_drg_OFF =F & ln_isfcav=T) 78 !! namdrg_bot bottom friction (ln_drg_OFF =F) 79 79 !! nambbc bottom temperature boundary condition (default: OFF) 80 80 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/BENCH/EXPREF/namelist_cfg_orca12_like
r11536 r13279 75 75 !! !! 76 76 !! namdrg top/bottom drag coefficient (default: NO selection) 77 !! namdrg_top top friction (ln_ OFF =F & ln_isfcav=T)78 !! namdrg_bot bottom friction (ln_ OFF =F)77 !! namdrg_top top friction (ln_drg_OFF =F & ln_isfcav=T) 78 !! namdrg_bot bottom friction (ln_drg_OFF =F) 79 79 !! nambbc bottom temperature boundary condition (default: OFF) 80 80 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/BENCH/EXPREF/namelist_cfg_orca1_like
r11536 r13279 75 75 !! !! 76 76 !! namdrg top/bottom drag coefficient (default: NO selection) 77 !! namdrg_top top friction (ln_ OFF =F & ln_isfcav=T)78 !! namdrg_bot bottom friction (ln_ OFF =F)77 !! namdrg_top top friction (ln_drg_OFF =F & ln_isfcav=T) 78 !! namdrg_bot bottom friction (ln_drg_OFF =F) 79 79 !! nambbc bottom temperature boundary condition (default: OFF) 80 80 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/CANAL/EXPREF/namelist_cfg
r12751 r13279 121 121 !! !! 122 122 !! namdrg top/bottom drag coefficient (default: NO selection) 123 !! namdrg_top top friction (ln_ OFF =F & ln_isfcav=T)124 !! namdrg_bot bottom friction (ln_ OFF =F)123 !! namdrg_top top friction (ln_drg_OFF =F & ln_isfcav=T) 124 !! namdrg_bot bottom friction (ln_drg_OFF =F) 125 125 !! nambbc bottom temperature boundary condition (default: OFF) 126 126 !! nambbl bottom boundary layer scheme (default: OFF) … … 130 130 &namdrg ! top/bottom drag coefficient (default: NO selection) 131 131 !----------------------------------------------------------------------- 132 ln_ OFF = .true. ! free-slip : Cd = 0132 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 133 133 / 134 134 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_ADV1D/EXPREF/namelist_cfg
r12206 r13279 106 106 !! !! 107 107 !! namdrg top/bottom drag coefficient (default: NO selection) 108 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)109 !! namdrg_bot bottom friction (ln_ OFF=F)108 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 109 !! namdrg_bot bottom friction (ln_drg_OFF=F) 110 110 !! nambbc bottom temperature boundary condition (default: OFF) 111 111 !! nambbl bottom boundary layer scheme (default: OFF) … … 115 115 &namdrg ! top/bottom drag coefficient (default: NO selection) 116 116 !----------------------------------------------------------------------- 117 ln_ OFF = .true. ! free-slip : Cd = 0117 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 118 118 / 119 119 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_ADV1D/EXPREF/namelist_cfg_120pts
r12206 r13279 106 106 !! !! 107 107 !! namdrg top/bottom drag coefficient (default: NO selection) 108 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)109 !! namdrg_bot bottom friction (ln_ OFF=F)108 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 109 !! namdrg_bot bottom friction (ln_drg_OFF=F) 110 110 !! nambbc bottom temperature boundary condition (default: OFF) 111 111 !! nambbl bottom boundary layer scheme (default: OFF) … … 115 115 &namdrg ! top/bottom drag coefficient (default: NO selection) 116 116 !----------------------------------------------------------------------- 117 ln_ OFF = .true. ! free-slip : Cd = 0117 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 118 118 / 119 119 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_ADV1D/EXPREF/namelist_cfg_240pts
r12206 r13279 106 106 !! !! 107 107 !! namdrg top/bottom drag coefficient (default: NO selection) 108 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)109 !! namdrg_bot bottom friction (ln_ OFF=F)108 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 109 !! namdrg_bot bottom friction (ln_drg_OFF=F) 110 110 !! nambbc bottom temperature boundary condition (default: OFF) 111 111 !! nambbl bottom boundary layer scheme (default: OFF) … … 115 115 &namdrg ! top/bottom drag coefficient (default: NO selection) 116 116 !----------------------------------------------------------------------- 117 ln_ OFF = .true. ! free-slip : Cd = 0117 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 118 118 / 119 119 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_ADV1D/EXPREF/namelist_cfg_60pts
r12206 r13279 106 106 !! !! 107 107 !! namdrg top/bottom drag coefficient (default: NO selection) 108 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)109 !! namdrg_bot bottom friction (ln_ OFF=F)108 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 109 !! namdrg_bot bottom friction (ln_drg_OFF=F) 110 110 !! nambbc bottom temperature boundary condition (default: OFF) 111 111 !! nambbl bottom boundary layer scheme (default: OFF) … … 115 115 &namdrg ! top/bottom drag coefficient (default: NO selection) 116 116 !----------------------------------------------------------------------- 117 ln_ OFF = .true. ! free-slip : Cd = 0117 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 118 118 / 119 119 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_ADV2D/EXPREF/namelist_cfg
r12206 r13279 106 106 !! !! 107 107 !! namdrg top/bottom drag coefficient (default: NO selection) 108 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)109 !! namdrg_bot bottom friction (ln_ OFF=F)108 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 109 !! namdrg_bot bottom friction (ln_drg_OFF=F) 110 110 !! nambbc bottom temperature boundary condition (default: OFF) 111 111 !! nambbl bottom boundary layer scheme (default: OFF) … … 115 115 &namdrg ! top/bottom drag coefficient (default: NO selection) 116 116 !----------------------------------------------------------------------- 117 ln_ OFF = .true. ! free-slip : Cd = 0117 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 118 118 / 119 119 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_AGRIF/EXPREF/1_namelist_cfg
r12206 r13279 106 106 !! !! 107 107 !! namdrg top/bottom drag coefficient (default: NO selection) 108 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)109 !! namdrg_bot bottom friction (ln_ OFF=F)108 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 109 !! namdrg_bot bottom friction (ln_drg_OFF=F) 110 110 !! nambbc bottom temperature boundary condition (default: OFF) 111 111 !! nambbl bottom boundary layer scheme (default: OFF) … … 115 115 &namdrg ! top/bottom drag coefficient (default: NO selection) 116 116 !----------------------------------------------------------------------- 117 ln_ OFF = .true. ! free-slip : Cd = 0117 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 118 118 / 119 119 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_AGRIF/EXPREF/namelist_cfg
r12206 r13279 106 106 !! !! 107 107 !! namdrg top/bottom drag coefficient (default: NO selection) 108 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)109 !! namdrg_bot bottom friction (ln_ OFF=F)108 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 109 !! namdrg_bot bottom friction (ln_drg_OFF=F) 110 110 !! nambbc bottom temperature boundary condition (default: OFF) 111 111 !! nambbl bottom boundary layer scheme (default: OFF) … … 115 115 &namdrg ! top/bottom drag coefficient (default: NO selection) 116 116 !----------------------------------------------------------------------- 117 ln_ OFF = .true. ! free-slip : Cd = 0117 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 118 118 / 119 119 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ISOMIP/EXPREF/namelist_cfg
r12206 r13279 128 128 !! !! 129 129 !! namdrg top/bottom drag coefficient (default: NO selection) 130 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)131 !! namdrg_bot bottom friction (ln_ OFF=F)130 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 131 !! namdrg_bot bottom friction (ln_drg_OFF=F) 132 132 !! nambbc bottom temperature boundary condition (default: OFF) 133 133 !! nambbl bottom boundary layer scheme (default: OFF) … … 137 137 &namdrg ! top/bottom drag coefficient (default: NO selection) 138 138 !----------------------------------------------------------------------- 139 ln_ OFF = .false.! free-slip : Cd = 0 (F => fill namdrg_bot139 ln_drg_OFF = .false. ! free-slip : Cd = 0 (F => fill namdrg_bot 140 140 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 141 141 ln_non_lin = .true. ! non-linear drag: Cd = Cd0 |U| -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_cen2_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_ubs_cfg
r12206 r13279 112 112 !! !! 113 113 !! namdrg top/bottom drag coefficient (default: NO selection) 114 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)115 !! namdrg_bot bottom friction (ln_ OFF=F)114 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 115 !! namdrg_bot bottom friction (ln_drg_OFF=F) 116 116 !! nambbc bottom temperature boundary condition (default: OFF) 117 117 !! nambbl bottom boundary layer scheme (default: OFF) … … 121 121 &namdrg ! top/bottom drag coefficient (default: NO selection) 122 122 !----------------------------------------------------------------------- 123 ln_ OFF = .true. ! free-slip : Cd = 0123 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 124 124 / 125 125 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_eenH_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_een_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_ene_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_ens_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_flux_cen2_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_flux_ubs_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_eenH_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_een_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_ene_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_ens_cfg
r10075 r13279 67 67 &namdrg ! top/bottom drag coefficient (default: NO selection) 68 68 !----------------------------------------------------------------------- 69 ln_ OFF = .true. ! free-slip : Cd = 069 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 70 70 / 71 71 !----------------------------------------------------------------------- -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_sco_FCT2_flux_cen-ahm1000_cfg
r11848 r13279 71 71 &namdrg ! top/bottom drag coefficient (default: NO selection) 72 72 !----------------------------------------------------------------------- 73 ln_ OFF = .true.! free-slip : Cd = 0 (F => fill namdrg_bot73 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 74 74 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 75 75 ln_non_lin = .false. ! non-linear drag: Cd = Cd0 |U| -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_sco_FCT2_flux_ubs_cfg
r11848 r13279 71 71 &namdrg ! top/bottom drag coefficient (default: NO selection) 72 72 !----------------------------------------------------------------------- 73 ln_ OFF= .true. ! free-slip : Cd = 0 (F => fill namdrg_bot73 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 74 74 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 75 75 ln_non_lin = .false. ! non-linear drag: Cd = Cd0 |U| -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_sco_FCT4_flux_cen-ahm1000_cfg
r10075 r13279 71 71 &namdrg ! top/bottom drag coefficient (default: NO selection) 72 72 !----------------------------------------------------------------------- 73 ln_ OFF = .true.! free-slip : Cd = 0 (F => fill namdrg_bot73 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 74 74 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 75 75 ln_non_lin = .false. ! non-linear drag: Cd = Cd0 |U| -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_sco_FCT4_flux_ubs_cfg
r11848 r13279 71 71 &namdrg ! top/bottom drag coefficient (default: NO selection) 72 72 !----------------------------------------------------------------------- 73 ln_ OFF = .true.! free-slip : Cd = 0 (F => fill namdrg_bot73 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 74 74 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 75 75 ln_non_lin = .false. ! non-linear drag: Cd = Cd0 |U| -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_zps_FCT2_flux_ubs_cfg
r11848 r13279 71 71 &namdrg ! top/bottom drag coefficient (default: NO selection) 72 72 !----------------------------------------------------------------------- 73 ln_ OFF = .true.! free-slip : Cd = 0 (F => fill namdrg_bot73 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 74 74 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 75 75 ln_non_lin = .false. ! non-linear drag: Cd = Cd0 |U| -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_flux_ubs_cfg
r12206 r13279 105 105 !! !! 106 106 !! namdrg top/bottom drag coefficient (default: NO selection) 107 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)108 !! namdrg_bot bottom friction (ln_ OFF=F)107 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 108 !! namdrg_bot bottom friction (ln_drg_OFF=F) 109 109 !! nambbc bottom temperature boundary condition (default: OFF) 110 110 !! nambbl bottom boundary layer scheme (default: OFF) … … 114 114 &namdrg ! top/bottom drag coefficient (default: NO selection) 115 115 !----------------------------------------------------------------------- 116 ln_ OFF= .true. ! free-slip : Cd = 0 (F => fill namdrg_bot116 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 117 117 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 118 118 ln_non_lin = .false. ! non-linear drag: Cd = Cd0 |U| -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_vect_een_cfg
r11848 r13279 71 71 &namdrg ! top/bottom drag coefficient (default: NO selection) 72 72 !----------------------------------------------------------------------- 73 ln_ OFF = .true.! free-slip : Cd = 0 (F => fill namdrg_bot73 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 74 74 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 75 75 ln_non_lin = .false. ! non-linear drag: Cd = Cd0 |U| -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/VORTEX/EXPREF/1_namelist_cfg
r12206 r13279 107 107 !! !! 108 108 !! namdrg top/bottom drag coefficient (default: NO selection) 109 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)110 !! namdrg_bot bottom friction (ln_ OFF=F)109 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 110 !! namdrg_bot bottom friction (ln_drg_OFF=F) 111 111 !! nambbc bottom temperature boundary condition (default: OFF) 112 112 !! nambbl bottom boundary layer scheme (default: OFF) … … 116 116 &namdrg ! top/bottom drag coefficient (default: NO selection) 117 117 !----------------------------------------------------------------------- 118 ln_ OFF = .true. ! free-slip : Cd = 0118 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 119 119 / 120 120 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/VORTEX/EXPREF/namelist_cfg
r12206 r13279 99 99 !! !! 100 100 !! namdrg top/bottom drag coefficient (default: NO selection) 101 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)102 !! namdrg_bot bottom friction (ln_ OFF=F)101 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 102 !! namdrg_bot bottom friction (ln_drg_OFF=F) 103 103 !! nambbc bottom temperature boundary condition (default: OFF) 104 104 !! nambbl bottom boundary layer scheme (default: OFF) … … 108 108 &namdrg ! top/bottom drag coefficient (default: NO selection) 109 109 !----------------------------------------------------------------------- 110 ln_ OFF = .true. ! free-slip : Cd = 0110 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 111 111 / 112 112 !!====================================================================== -
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/WAD/EXPREF/namelist_cfg
r12206 r13279 200 200 !! !! 201 201 !! namdrg top/bottom drag coefficient (default: NO selection) 202 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)203 !! namdrg_bot bottom friction (ln_ OFF=F)202 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 203 !! namdrg_bot bottom friction (ln_drg_OFF=F) 204 204 !! nambbc bottom temperature boundary condition (default: OFF) 205 205 !! nambbl bottom boundary layer scheme (default: OFF)
Note: See TracChangeset
for help on using the changeset viewer.