Changeset 13461
- Timestamp:
- 2020-09-14T09:19:33+02:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 67 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/1_namelist_cfg
r13208 r13461 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/trunk/cfgs/AGRIF_DEMO/EXPREF/namelist_cfg
r13286 r13461 180 180 !! !! 181 181 !! namdrg top/bottom drag coefficient (default: NO selection) 182 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)183 !! namdrg_bot bottom friction (ln_ OFF=F)182 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 183 !! namdrg_bot bottom friction (ln_drg_OFF=F) 184 184 !! nambbc bottom temperature boundary condition (default: OFF) 185 185 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/cfgs/AMM12/EXPREF/namelist_cfg
r12489 r13461 212 212 !! !! 213 213 !! namdrg top/bottom drag coefficient (default: NO selection) 214 !! namdrg_top top friction (ln_ OFF =F & ln_isfcav=T)215 !! namdrg_bot bottom friction (ln_ OFF =F)214 !! namdrg_top top friction (ln_drg_OFF =F & ln_isfcav=T) 215 !! namdrg_bot bottom friction (ln_drg_OFF =F) 216 216 !! nambbc bottom temperature boundary condition (default: OFF) 217 217 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/cfgs/C1D_PAPA/EXPREF/namelist_cfg
r12933 r13461 258 258 !! !! 259 259 !! namdrg top/bottom drag coefficient (default: NO selection) 260 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)261 !! namdrg_bot bottom friction (ln_ OFF=F)260 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 261 !! namdrg_bot bottom friction (ln_drg_OFF=F) 262 262 !! nambbc bottom temperature boundary condition (default: OFF) 263 263 !! nambbl bottom boundary layer scheme (default: OFF) … … 270 270 / 271 271 !----------------------------------------------------------------------- 272 &namdrg_top ! TOP friction (ln_ OFF =F & ln_isfcav=T)273 !----------------------------------------------------------------------- 274 / 275 !----------------------------------------------------------------------- 276 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)272 &namdrg_top ! TOP friction (ln_drg_OFF =F & ln_isfcav=T) 273 !----------------------------------------------------------------------- 274 / 275 !----------------------------------------------------------------------- 276 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 277 277 !----------------------------------------------------------------------- 278 278 / -
NEMO/trunk/cfgs/GYRE_BFM/EXPREF/namelist_cfg
r12489 r13461 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/trunk/cfgs/GYRE_PISCES/EXPREF/namelist_cfg
r12489 r13461 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/trunk/cfgs/ORCA2_ICE_ABL/EXPREF/namelist_cfg
r13208 r13461 217 217 !! !! 218 218 !! namdrg top/bottom drag coefficient (default: NO selection) 219 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)220 !! namdrg_bot bottom friction (ln_ OFF=F)219 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 220 !! namdrg_bot bottom friction (ln_drg_OFF=F) 221 221 !! nambbc bottom temperature boundary condition (default: OFF) 222 222 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/cfgs/ORCA2_ICE_PISCES/EXPREF/namelist_cfg
r13286 r13461 207 207 !! !! 208 208 !! namdrg top/bottom drag coefficient (default: NO selection) 209 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)210 !! namdrg_bot bottom friction (ln_ OFF=F)209 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 210 !! namdrg_bot bottom friction (ln_drg_OFF=F) 211 211 !! nambbc bottom temperature boundary condition (default: OFF) 212 212 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/cfgs/ORCA2_OFF_PISCES/EXPREF/namelist_cfg
r12489 r13461 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/trunk/cfgs/ORCA2_OFF_TRC/EXPREF/namelist_cfg
r12489 r13461 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/trunk/cfgs/ORCA2_SAS_ICE/EXPREF/namelist_cfg
r13286 r13461 122 122 !! !! 123 123 !! namdrg top/bottom drag coefficient (default: NO selection) 124 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)125 !! namdrg_bot bottom friction (ln_ OFF=F)124 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 125 !! namdrg_bot bottom friction (ln_drg_OFF=F) 126 126 !! nambbc bottom temperature boundary condition (default: OFF) 127 127 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/cfgs/SHARED/namelist_ref
r13286 r13461 544 544 ! ! file name ! frequency (hours) ! variable ! time interp.! clim ! 'yearly'/ ! weights ! rotation ! land/sea mask ! 545 545 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! filename ! 546 sn_isfpar_zmax = 'isfmlt_par', 0 547 sn_isfpar_zmin = 'isfmlt_par', 0 546 sn_isfpar_zmax = 'isfmlt_par', 0. ,'sozisfmax', .false. , .true. , 'yearly' , '' , '' , '' 547 sn_isfpar_zmin = 'isfmlt_par', 0. ,'sozisfmin', .false. , .true. , 'yearly' , '' , '' , '' 548 548 !* 'spe' and 'oasis' case 549 sn_isfpar_fwf = 'isfmlt_par' , -12. ,'sofwfisf' , .false. , .true. , 'yearly' 549 sn_isfpar_fwf = 'isfmlt_par' , -12. ,'sofwfisf' , .false. , .true. , 'yearly' , '' , '' , '' 550 550 !* 'bg03' case 551 sn_isfpar_Leff = 'isfmlt_par', 0. ,'Leff' , .false. , .true. , 'yearly' 551 sn_isfpar_Leff = 'isfmlt_par', 0. ,'Leff' , .false. , .true. , 'yearly' , '' , '' , '' 552 552 ! 553 553 ! ---------------- ice sheet coupling ------------------------------- … … 750 750 !! !! 751 751 !! namdrg top/bottom drag coefficient (default: NO selection) 752 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)753 !! namdrg_bot bottom friction (ln_ OFF=F)752 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 753 !! namdrg_bot bottom friction (ln_drg_OFF=F) 754 754 !! nambbc bottom temperature boundary condition (default: OFF) 755 755 !! nambbl bottom boundary layer scheme (default: OFF) … … 759 759 &namdrg ! top/bottom drag coefficient (default: NO selection) 760 760 !----------------------------------------------------------------------- 761 ln_ OFF= .false. ! free-slip : Cd = 0 (F => fill namdrg_bot761 ln_drg_OFF = .false. ! free-slip : Cd = 0 (F => fill namdrg_bot 762 762 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 763 763 ln_non_lin = .false. ! non-linear drag: Cd = Cd0 |U| … … 767 767 / 768 768 !----------------------------------------------------------------------- 769 &namdrg_top ! TOP friction (ln_ OFF =F & ln_isfcav=T)769 &namdrg_top ! TOP friction (ln_drg_OFF =F & ln_isfcav=T) 770 770 !----------------------------------------------------------------------- 771 771 rn_Cd0 = 1.e-3 ! drag coefficient [-] … … 778 778 / 779 779 !----------------------------------------------------------------------- 780 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)780 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 781 781 !----------------------------------------------------------------------- 782 782 rn_Cd0 = 1.e-3 ! drag coefficient [-] … … 1147 1147 rn_mxlice = 10. ! max constant ice thickness value when scaling under sea-ice ( nn_mxlice=1) 1148 1148 rn_mxl0 = 0.04 ! surface buoyancy lenght scale minimum value 1149 ln_drg = .false. ! top/bottom friction added as boundary condition of TKE1150 1149 ln_lc = .true. ! Langmuir cell parameterisation (Axell 2002) 1151 1150 rn_lc = 0.15 ! coef. associated to Langmuir cells -
NEMO/trunk/cfgs/SPITZ12/EXPREF/namelist_cfg
r12489 r13461 205 205 !! !! 206 206 !! namdrg top/bottom drag coefficient (default: NO selection) 207 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)208 !! namdrg_bot bottom friction (ln_ OFF=F)207 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 208 !! namdrg_bot bottom friction (ln_drg_OFF=F) 209 209 !! nambbc bottom temperature boundary condition (default: OFF) 210 210 !! nambbl bottom boundary layer scheme (default: OFF) … … 218 218 / 219 219 !----------------------------------------------------------------------- 220 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)220 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 221 221 !----------------------------------------------------------------------- 222 222 rn_Cd0 = 2.5e-3 ! drag coefficient [-] -
NEMO/trunk/cfgs/WED025/EXPREF/namelist_cfg
r13208 r13461 362 362 !! !! 363 363 !! namdrg top/bottom drag coefficient (default: NO selection) 364 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)365 !! namdrg_bot bottom friction (ln_ OFF=F)364 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 365 !! namdrg_bot bottom friction (ln_drg_OFF=F) 366 366 !! nambbc bottom temperature boundary condition (default: OFF) 367 367 !! nambbl bottom boundary layer scheme (default: OFF) … … 374 374 / 375 375 !----------------------------------------------------------------------- 376 &namdrg_top ! TOP friction (ln_ OFF =F & ln_isfcav=T)376 &namdrg_top ! TOP friction (ln_drg_OFF =F & ln_isfcav=T) 377 377 !----------------------------------------------------------------------- 378 378 rn_Cd0 = 2.5e-3 ! drag coefficient [-] 379 379 / 380 380 !----------------------------------------------------------------------- 381 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)381 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 382 382 !----------------------------------------------------------------------- 383 383 rn_Cd0 = 2.5e-3 ! drag coefficient [-] -
NEMO/trunk/doc/NEMO_manual_state.txt
r10569 r13461 39 39 namdia: iiceprt jiceprt 40 40 nam_diaharm: nit000_han nitend_han nstep_han tname(1) tname(2) 41 namdrg: ln_ OFF41 namdrg: ln_drg_OFF 42 42 namdrg_bot: rn_Cd0 rn_Uc0 rn_Cdmax 43 43 namdrg_top: rn_Cd0 rn_Uc0 rn_Cdmax -
NEMO/trunk/doc/latex/NEMO/subfiles/chap_ZDF.tex
r11693 r13461 1160 1160 \] 1161 1161 When \np[=.true.]{ln_lin}{ln\_lin}, the value of $r$ used is \np{rn_Uc0}{rn\_Uc0}*\np{rn_Cd0}{rn\_Cd0}. 1162 Setting \np[=.true.]{ln_ OFF}{ln\_OFF} (and \forcode{ln_lin=.true.}) is equivalent to setting $r=0$ and leads to a free-slip boundary condition.1162 Setting \np[=.true.]{ln_drg_OFF}{ln\_OFF} (and \forcode{ln_lin=.true.}) is equivalent to setting $r=0$ and leads to a free-slip boundary condition. 1163 1163 1164 1164 These values are assigned in \mdl{zdfdrg}. -
NEMO/trunk/doc/namelists/namdrg
r10075 r13461 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/trunk/doc/namelists/namdrg_bot
r10075 r13461 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/trunk/doc/namelists/namdrg_top
r10075 r13461 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/trunk/doc/namelists/namzdf_tke
r10075 r13461 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/trunk/src/ICE/icedyn_rhg_evp.F90
r13295 r13461 157 157 REAL(wp), DIMENSION(jpi,jpj) :: zmsk01x, zmsk01y ! dummy arrays 158 158 REAL(wp), DIMENSION(jpi,jpj) :: zmsk00x, zmsk00y ! mask for ice presence 159 REAL(wp), DIMENSION(jpi,jpj) :: zfmask , zwf! mask at F points for the ice159 REAL(wp), DIMENSION(jpi,jpj) :: zfmask ! mask at F points for the ice 160 160 161 161 REAL(wp), PARAMETER :: zepsi = 1.0e-20_wp ! tolerance parameter … … 187 187 188 188 ! Lateral boundary conditions on velocity (modify zfmask) 189 zwf(:,:) = zfmask(:,:)190 189 DO_2D( 0, 0, 0, 0 ) 191 190 IF( zfmask(ji,jj) == 0._wp ) THEN 192 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) ) ) 191 zfmask(ji,jj) = rn_ishlat * MIN( 1._wp , MAX( umask(ji,jj,1), umask(ji,jj+1,1), & 192 & vmask(ji,jj,1), vmask(ji+1,jj,1) ) ) 193 193 ENDIF 194 194 END_2D 195 195 DO jj = 2, jpjm1 196 196 IF( zfmask(1,jj) == 0._wp ) THEN 197 zfmask(1 ,jj) = rn_ishlat * MIN( 1._wp , MAX( zwf(2,jj), zwf(1,jj+1), zwf(1,jj-1) ) )197 zfmask(1 ,jj) = rn_ishlat * MIN( 1._wp , MAX( vmask(2,jj,1), umask(1,jj+1,1), umask(1,jj,1) ) ) 198 198 ENDIF 199 199 IF( zfmask(jpi,jj) == 0._wp ) THEN 200 zfmask(jpi,jj) = rn_ishlat * MIN( 1._wp , MAX( zwf(jpi,jj+1), zwf(jpim1,jj), zwf(jpi,jj-1) ) )201 200 zfmask(jpi,jj) = rn_ishlat * MIN( 1._wp , MAX( umask(jpi,jj+1,1), vmask(jpim1,jj,1), umask(jpi,jj-1,1) ) ) 201 ENDIF 202 202 END DO 203 203 DO ji = 2, jpim1 204 204 IF( zfmask(ji,1) == 0._wp ) THEN 205 zfmask(ji, 1 ) = rn_ishlat * MIN( 1._wp , MAX( zwf(ji+1,1), zwf(ji,2), zwf(ji-1,1) ) )205 zfmask(ji, 1 ) = rn_ishlat * MIN( 1._wp , MAX( vmask(ji+1,1,1), umask(ji,2,1), vmask(ji,1,1) ) ) 206 206 ENDIF 207 207 IF( zfmask(ji,jpj) == 0._wp ) THEN 208 zfmask(ji,jpj) = rn_ishlat * MIN( 1._wp , MAX( zwf(ji+1,jpj), zwf(ji-1,jpj), zwf(ji,jpjm1) ) )208 zfmask(ji,jpj) = rn_ishlat * MIN( 1._wp , MAX( vmask(ji+1,jpj,1), vmask(ji-1,jpj,1), umask(ji,jpjm1,1) ) ) 209 209 ENDIF 210 210 END DO -
NEMO/trunk/src/OCE/DOM/dommsk.F90
r13305 r13461 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 … … 195 194 IF( rn_shlat /= 0 ) THEN ! Not free-slip lateral boundary condition 196 195 ! 197 ALLOCATE( zwf(jpi,jpj) )198 !199 196 DO jk = 1, jpk 200 zwf(:,:) = fmask(:,:,jk)201 197 DO_2D( 0, 0, 0, 0 ) 202 198 IF( fmask(ji,jj,jk) == 0._wp ) THEN 203 fmask(ji,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,jj), zwf(ji,jj+1),&204 & zwf(ji-1,jj), zwf(ji,jj-1) ))199 fmask(ji,jj,jk) = rn_shlat * MIN( 1._wp , MAX( umask(ji,jj,jk), umask(ji,jj+1,jk), & 200 & vmask(ji,jj,jk), vmask(ji+1,jj,jk) ) ) 205 201 ENDIF 206 202 END_2D 207 203 DO jj = 2, jpjm1 208 204 IF( fmask(1,jj,jk) == 0._wp ) THEN 209 fmask(1 ,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(2,jj), zwf(1,jj+1), zwf(1,jj-1) ) )205 fmask(1 ,jj,jk) = rn_shlat * MIN( 1._wp , MAX( vmask(2,jj,jk), umask(1,jj+1,jk), umask(1,jj,jk) ) ) 210 206 ENDIF 211 207 IF( fmask(jpi,jj,jk) == 0._wp ) THEN 212 fmask(jpi,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(jpi,jj+1), zwf(jpim1,jj), zwf(jpi,jj-1) ) )208 fmask(jpi,jj,jk) = rn_shlat * MIN( 1._wp , MAX( umask(jpi,jj+1,jk), vmask(jpim1,jj,jk), umask(jpi,jj-1,jk) ) ) 213 209 ENDIF 214 210 END DO 215 211 DO ji = 2, jpim1 216 212 IF( fmask(ji,1,jk) == 0._wp ) THEN 217 fmask(ji, 1 ,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,1), zwf(ji,2), zwf(ji-1,1) ) )213 fmask(ji, 1 ,jk) = rn_shlat * MIN( 1._wp , MAX( vmask(ji+1,1,jk), umask(ji,2,jk), vmask(ji,1,jk) ) ) 218 214 ENDIF 219 215 IF( fmask(ji,jpj,jk) == 0._wp ) THEN 220 fmask(ji,jpj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,jpj), zwf(ji-1,jpj), zwf(ji,jpjm1) ) )216 fmask(ji,jpj,jk) = rn_shlat * MIN( 1._wp , MAX( vmask(ji+1,jpj,jk), vmask(ji-1,jpj,jk), umask(ji,jpjm1,jk) ) ) 221 217 ENDIF 222 218 END DO 223 219 END DO 224 !225 DEALLOCATE( zwf )226 220 ! 227 221 CALL lbc_lnk( 'dommsk', fmask, 'F', 1._wp ) ! Lateral boundary conditions on fmask -
NEMO/trunk/src/OCE/SBC/sbccpl.F90
r13295 r13461 698 698 ! Change first letter to couple with atmosphere if already coupled OPA 699 699 ! this is nedeed as each variable name used in the namcouple must be unique: 700 ! for example O_Runoff received by OPA from SAS and therefore O_Runoff received by SAS from the Atmosphere700 ! for example O_Runoff received by OPA from SAS and therefore S_Runoff received by SAS from the Atmosphere 701 701 DO jn = 1, jprcv 702 702 IF( srcv(jn)%clname(1:1) == "O" ) srcv(jn)%clname = "S"//srcv(jn)%clname(2:LEN(srcv(jn)%clname)) -
NEMO/trunk/src/OCE/ZDF/zdfdrg.F90
r13295 r13461 41 41 42 42 ! !!* Namelist namdrg: nature of drag coefficient namelist * 43 LOGICAL :: ln_OFF! free-slip : Cd = 043 LOGICAL , PUBLIC :: ln_drg_OFF ! free-slip : Cd = 0 44 44 LOGICAL :: ln_lin ! linear drag: Cd = Cd0_lin 45 45 LOGICAL :: ln_non_lin ! non-linear drag: Cd = Cd0_nl |U| … … 226 226 INTEGER :: ios, ioptio ! local integers 227 227 !! 228 NAMELIST/namdrg/ ln_ OFF, ln_lin, ln_non_lin, ln_loglayer, ln_drgimp228 NAMELIST/namdrg/ ln_drg_OFF, ln_lin, ln_non_lin, ln_loglayer, ln_drgimp 229 229 !!---------------------------------------------------------------------- 230 230 ! … … 242 242 WRITE(numout,*) '~~~~~~~~~~~~' 243 243 WRITE(numout,*) ' Namelist namdrg : top/bottom friction choices' 244 WRITE(numout,*) ' free-slip : Cd = 0 ln_ OFF = ', ln_OFF244 WRITE(numout,*) ' free-slip : Cd = 0 ln_drg_OFF = ', ln_drg_OFF 245 245 WRITE(numout,*) ' linear drag : Cd = Cd0 ln_lin = ', ln_lin 246 246 WRITE(numout,*) ' non-linear drag: Cd = Cd0_nl |U| ln_non_lin = ', ln_non_lin … … 250 250 ! 251 251 ioptio = 0 ! set ndrg and control check 252 IF( ln_ OFF) THEN ; ndrg = np_OFF ; ioptio = ioptio + 1 ; ENDIF252 IF( ln_drg_OFF ) THEN ; ndrg = np_OFF ; ioptio = ioptio + 1 ; ENDIF 253 253 IF( ln_lin ) THEN ; ndrg = np_lin ; ioptio = ioptio + 1 ; ENDIF 254 254 IF( ln_non_lin ) THEN ; ndrg = np_non_lin ; ioptio = ioptio + 1 ; ENDIF -
NEMO/trunk/src/OCE/ZDF/zdfgls.F90
r13295 r13461 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 … … 169 170 ! Compute surface, top and bottom friction at T-points 170 171 DO_2D( 0, 0, 0, 0 ) 171 ! 172 ! surface friction 173 ustar2_surf(ji,jj) = r1_rho0 * taum(ji,jj) * tmask(ji,jj,1) 174 ! 175 !!gm Rq we may add here r_ke0(_top/_bot) ? ==>> think about that... 176 ! bottom friction (explicit before friction) 177 zmsku = ( 2._wp - umask(ji-1,jj,mbkt(ji,jj)) * umask(ji,jj,mbkt(ji,jj)) ) 178 zmskv = ( 2._wp - vmask(ji,jj-1,mbkt(ji,jj)) * vmask(ji,jj,mbkt(ji,jj)) ) ! (CAUTION: CdU<0) 179 ustar2_bot(ji,jj) = - rCdU_bot(ji,jj) * SQRT( ( zmsku*( uu(ji,jj,mbkt(ji,jj),Kbb)+uu(ji-1,jj,mbkt(ji,jj),Kbb) ) )**2 & 180 & + ( zmskv*( vv(ji,jj,mbkt(ji,jj),Kbb)+vv(ji,jj-1,mbkt(ji,jj),Kbb) ) )**2 ) 172 ustar2_surf(ji,jj) = r1_rho0 * taum(ji,jj) * tmask(ji,jj,1) ! surface friction 181 173 END_2D 182 IF( ln_isfcav ) THEN !top friction 183 DO_2D( 0, 0, 0, 0 ) 184 zmsku = ( 2. - umask(ji-1,jj,mikt(ji,jj)) * umask(ji,jj,mikt(ji,jj)) ) 185 zmskv = ( 2. - vmask(ji,jj-1,mikt(ji,jj)) * vmask(ji,jj,mikt(ji,jj)) ) ! (CAUTION: CdU<0) 186 ustar2_top(ji,jj) = - rCdU_top(ji,jj) * SQRT( ( zmsku*( uu(ji,jj,mikt(ji,jj),Kbb)+uu(ji-1,jj,mikt(ji,jj),Kbb) ) )**2 & 187 & + ( zmskv*( vv(ji,jj,mikt(ji,jj),Kbb)+vv(ji,jj-1,mikt(ji,jj),Kbb) ) )**2 ) 174 ! 175 !!gm Rq we may add here r_ke0(_top/_bot) ? ==>> think about that... 176 ! 177 IF( .NOT.ln_drg_OFF ) THEN !== top/bottom friction (explicit before friction) 178 DO_2D( 0, 0, 0, 0 ) ! bottom friction (explicit before friction) 179 zmsku = ( 2._wp - umask(ji-1,jj,mbkt(ji,jj)) * umask(ji,jj,mbkt(ji,jj)) ) 180 zmskv = ( 2._wp - vmask(ji,jj-1,mbkt(ji,jj)) * vmask(ji,jj,mbkt(ji,jj)) ) ! (CAUTION: CdU<0) 181 ustar2_bot(ji,jj) = - rCdU_bot(ji,jj) * SQRT( ( zmsku*( uu(ji,jj,mbkt(ji,jj),Kbb)+uu(ji-1,jj,mbkt(ji,jj),Kbb) ) )**2 & 182 & + ( zmskv*( vv(ji,jj,mbkt(ji,jj),Kbb)+vv(ji,jj-1,mbkt(ji,jj),Kbb) ) )**2 ) 188 183 END_2D 184 IF( ln_isfcav ) THEN 185 DO_2D( 0, 0, 0, 0 ) ! top friction 186 zmsku = ( 2. - umask(ji-1,jj,mikt(ji,jj)) * umask(ji,jj,mikt(ji,jj)) ) 187 zmskv = ( 2. - vmask(ji,jj-1,mikt(ji,jj)) * vmask(ji,jj,mikt(ji,jj)) ) ! (CAUTION: CdU<0) 188 ustar2_top(ji,jj) = - rCdU_top(ji,jj) * SQRT( ( zmsku*( uu(ji,jj,mikt(ji,jj),Kbb)+uu(ji-1,jj,mikt(ji,jj),Kbb) ) )**2 & 189 & + ( zmskv*( vv(ji,jj,mikt(ji,jj),Kbb)+vv(ji,jj-1,mikt(ji,jj),Kbb) ) )**2 ) 190 END_2D 191 ENDIF 189 192 ENDIF 190 193 -
NEMO/trunk/src/OCE/ZDF/zdftke.F90
r13295 r13461 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) … … 236 235 ! Note that stress averaged is done using an wet-only calculation of u and v at t-point like in zdfsh2 237 236 ! 238 IF( ln_drg ) THEN!== friction used as top/bottom boundary condition on TKE239 ! 240 DO_2D( 0, 0, 0, 0 ) 237 IF( .NOT.ln_drg_OFF ) THEN !== friction used as top/bottom boundary condition on TKE 238 ! 239 DO_2D( 0, 0, 0, 0 ) ! bottom friction 241 240 zmsku = ( 2. - umask(ji-1,jj,mbkt(ji,jj)) * umask(ji,jj,mbkt(ji,jj)) ) 242 241 zmskv = ( 2. - vmask(ji,jj-1,mbkt(ji,jj)) * vmask(ji,jj,mbkt(ji,jj)) ) … … 246 245 en(ji,jj,mbkt(ji,jj)+1) = MAX( zebot, rn_emin ) * ssmask(ji,jj) 247 246 END_2D 248 IF( ln_isfcav ) THEN ! top friction249 DO_2D( 0, 0, 0, 0 ) 247 IF( ln_isfcav ) THEN 248 DO_2D( 0, 0, 0, 0 ) ! top friction 250 249 zmsku = ( 2. - umask(ji-1,jj,mikt(ji,jj)) * umask(ji,jj,mikt(ji,jj)) ) 251 250 zmskv = ( 2. - vmask(ji,jj-1,mikt(ji,jj)) * vmask(ji,jj,mikt(ji,jj)) ) … … 610 609 & rn_emin0, rn_bshear, nn_mxl , ln_mxl0 , & 611 610 & rn_mxl0 , nn_mxlice, rn_mxlice, & 612 & nn_pdl , ln_ drg , ln_lc , rn_lc,&611 & nn_pdl , ln_lc , rn_lc , & 613 612 & nn_etau , nn_htau , rn_efr , rn_eice 614 613 !!---------------------------------------------------------------------- … … 643 642 ENDIF 644 643 WRITE(numout,*) ' surface mixing length minimum value rn_mxl0 = ', rn_mxl0 645 WRITE(numout,*) ' top/bottom friction forcing flag ln_drg = ', ln_drg646 644 WRITE(numout,*) ' Langmuir cells parametrization ln_lc = ', ln_lc 647 645 WRITE(numout,*) ' coef to compute vertical velocity of LC rn_lc = ', rn_lc … … 651 649 WRITE(numout,*) ' below sea-ice: =0 ON rn_eice = ', rn_eice 652 650 WRITE(numout,*) ' =4 OFF when ice fraction > 1/4 ' 653 IF( ln_drg) THEN651 IF( .NOT.ln_drg_OFF ) THEN 654 652 WRITE(numout,*) 655 653 WRITE(numout,*) ' Namelist namdrg_top/_bot: used values:' -
NEMO/trunk/tests/BENCH/EXPREF/namelist_cfg_orca025_like
r13286 r13461 77 77 !! !! 78 78 !! namdrg top/bottom drag coefficient (default: NO selection) 79 !! namdrg_top top friction (ln_ OFF =F & ln_isfcav=T)80 !! namdrg_bot bottom friction (ln_ OFF =F)79 !! namdrg_top top friction (ln_drg_OFF =F & ln_isfcav=T) 80 !! namdrg_bot bottom friction (ln_drg_OFF =F) 81 81 !! nambbc bottom temperature boundary condition (default: OFF) 82 82 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/tests/BENCH/EXPREF/namelist_cfg_orca12_like
r13286 r13461 77 77 !! !! 78 78 !! namdrg top/bottom drag coefficient (default: NO selection) 79 !! namdrg_top top friction (ln_ OFF =F & ln_isfcav=T)80 !! namdrg_bot bottom friction (ln_ OFF =F)79 !! namdrg_top top friction (ln_drg_OFF =F & ln_isfcav=T) 80 !! namdrg_bot bottom friction (ln_drg_OFF =F) 81 81 !! nambbc bottom temperature boundary condition (default: OFF) 82 82 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/tests/BENCH/EXPREF/namelist_cfg_orca1_like
r13286 r13461 77 77 !! !! 78 78 !! namdrg top/bottom drag coefficient (default: NO selection) 79 !! namdrg_top top friction (ln_ OFF =F & ln_isfcav=T)80 !! namdrg_bot bottom friction (ln_ OFF =F)79 !! namdrg_top top friction (ln_drg_OFF =F & ln_isfcav=T) 80 !! namdrg_bot bottom friction (ln_drg_OFF =F) 81 81 !! nambbc bottom temperature boundary condition (default: OFF) 82 82 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/tests/CANAL/EXPREF/namelist_cfg
r12489 r13461 108 108 !! !! 109 109 !! namdrg top/bottom drag coefficient (default: NO selection) 110 !! namdrg_top top friction (ln_ OFF =F & ln_isfcav=T)111 !! namdrg_bot bottom friction (ln_ OFF =F)110 !! namdrg_top top friction (ln_drg_OFF =F & ln_isfcav=T) 111 !! namdrg_bot bottom friction (ln_drg_OFF =F) 112 112 !! nambbc bottom temperature boundary condition (default: OFF) 113 113 !! nambbl bottom boundary layer scheme (default: OFF) … … 117 117 &namdrg ! top/bottom drag coefficient (default: NO selection) 118 118 !----------------------------------------------------------------------- 119 ln_ OFF = .true. ! free-slip : Cd = 0119 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 120 120 / 121 121 !!====================================================================== -
NEMO/trunk/tests/CPL_OASIS/EXPREF/namelist_cfg
r12663 r13461 254 254 !! !! 255 255 !! namdrg top/bottom drag coefficient (default: NO selection) 256 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)257 !! namdrg_bot bottom friction (ln_ OFF=F)256 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 257 !! namdrg_bot bottom friction (ln_drg_OFF=F) 258 258 !! nambbc bottom temperature boundary condition (default: OFF) 259 259 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg
r12489 r13461 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/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_120pts
r12489 r13461 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/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_240pts
r12489 r13461 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/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_60pts
r12489 r13461 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/trunk/tests/ICE_ADV2D/EXPREF/namelist_cfg
r12489 r13461 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/trunk/tests/ICE_AGRIF/EXPREF/1_namelist_cfg
r12489 r13461 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/trunk/tests/ICE_AGRIF/EXPREF/namelist_cfg
r12489 r13461 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/trunk/tests/ISOMIP+/EXPREF/namelist_cfg
r12905 r13461 261 261 !! !! 262 262 !! namdrg top/bottom drag coefficient (default: NO selection) 263 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)264 !! namdrg_bot bottom friction (ln_ OFF=F)263 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 264 !! namdrg_bot bottom friction (ln_drg_OFF=F) 265 265 !! nambbc bottom temperature boundary condition (default: OFF) 266 266 !! nambbl bottom boundary layer scheme (default: OFF) … … 273 273 / 274 274 !----------------------------------------------------------------------- 275 &namdrg_top ! TOP friction (ln_ OFF =F & ln_isfcav=T)275 &namdrg_top ! TOP friction (ln_drg_OFF =F & ln_isfcav=T) 276 276 !----------------------------------------------------------------------- 277 277 rn_Cd0 = 2.5e-3 ! drag coefficient [-] … … 279 279 / 280 280 !----------------------------------------------------------------------- 281 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)281 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 282 282 !----------------------------------------------------------------------- 283 283 rn_Cd0 = 2.5e-3 ! drag coefficient [-] -
NEMO/trunk/tests/ISOMIP/EXPREF/namelist_cfg
r12489 r13461 227 227 !! !! 228 228 !! namdrg top/bottom drag coefficient (default: NO selection) 229 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)230 !! namdrg_bot bottom friction (ln_ OFF=F)229 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 230 !! namdrg_bot bottom friction (ln_drg_OFF=F) 231 231 !! nambbc bottom temperature boundary condition (default: OFF) 232 232 !! nambbl bottom boundary layer scheme (default: OFF) … … 236 236 &namdrg ! top/bottom drag coefficient (default: NO selection) 237 237 !----------------------------------------------------------------------- 238 ln_ OFF = .false.! free-slip : Cd = 0 (F => fill namdrg_bot238 ln_drg_OFF = .false. ! free-slip : Cd = 0 (F => fill namdrg_bot 239 239 ln_lin = .false. ! linear drag: Cd = Cd0 Uc0 & namdrg_top) 240 240 ln_non_lin = .true. ! non-linear drag: Cd = Cd0 |U| … … 244 244 / 245 245 !----------------------------------------------------------------------- 246 &namdrg_top ! TOP friction (ln_ OFF =F & ln_isfcav=T)246 &namdrg_top ! TOP friction (ln_drg_OFF =F & ln_isfcav=T) 247 247 !----------------------------------------------------------------------- 248 248 rn_Cd0 = 2.5e-3 ! drag coefficient [-] … … 255 255 / 256 256 !----------------------------------------------------------------------- 257 &namdrg_bot ! BOTTOM friction (ln_ OFF =F)257 &namdrg_bot ! BOTTOM friction (ln_drg_OFF =F) 258 258 !----------------------------------------------------------------------- 259 259 rn_Cd0 = 1.e-3 ! drag coefficient [-] -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_cen2_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_ubs_cfg
r12489 r13461 110 110 !! !! 111 111 !! namdrg top/bottom drag coefficient (default: NO selection) 112 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)113 !! namdrg_bot bottom friction (ln_ OFF=F)112 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 113 !! namdrg_bot bottom friction (ln_drg_OFF=F) 114 114 !! nambbc bottom temperature boundary condition (default: OFF) 115 115 !! nambbl bottom boundary layer scheme (default: OFF) … … 119 119 &namdrg ! top/bottom drag coefficient (default: NO selection) 120 120 !----------------------------------------------------------------------- 121 ln_ OFF = .true. ! free-slip : Cd = 0121 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 122 122 / 123 123 !!====================================================================== -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_eenH_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_een_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_ene_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_ens_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_flux_cen2_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_flux_ubs_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_eenH_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_een_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_ene_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_ens_cfg
r12489 r13461 65 65 &namdrg ! top/bottom drag coefficient (default: NO selection) 66 66 !----------------------------------------------------------------------- 67 ln_ OFF = .true. ! free-slip : Cd = 067 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 68 68 / 69 69 !----------------------------------------------------------------------- -
NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT2_flux_cen-ahm1000_cfg
r12489 r13461 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/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT2_flux_ubs_cfg
r12489 r13461 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/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT4_flux_cen-ahm1000_cfg
r12489 r13461 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/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT4_flux_ubs_cfg
r12489 r13461 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/trunk/tests/OVERFLOW/EXPREF/namelist_zps_FCT2_flux_ubs_cfg
r12489 r13461 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/trunk/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_flux_ubs_cfg
r12489 r13461 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/trunk/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_vect_een_cfg
r12489 r13461 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/trunk/tests/STATION_ASF/EXPREF/namelist_coare3p6-noskin_cfg
r13108 r13461 201 201 !! !! 202 202 !! namdrg top/bottom drag coefficient (default: NO selection) 203 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)204 !! namdrg_bot bottom friction (ln_ OFF=F)203 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 204 !! namdrg_bot bottom friction (ln_drg_OFF=F) 205 205 !! nambbc bottom temperature boundary condition (default: OFF) 206 206 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_coare3p6_cfg
r13108 r13461 201 201 !! !! 202 202 !! namdrg top/bottom drag coefficient (default: NO selection) 203 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)204 !! namdrg_bot bottom friction (ln_ OFF=F)203 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 204 !! namdrg_bot bottom friction (ln_drg_OFF=F) 205 205 !! nambbc bottom temperature boundary condition (default: OFF) 206 206 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_ecmwf-noskin_cfg
r13108 r13461 201 201 !! !! 202 202 !! namdrg top/bottom drag coefficient (default: NO selection) 203 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)204 !! namdrg_bot bottom friction (ln_ OFF=F)203 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 204 !! namdrg_bot bottom friction (ln_drg_OFF=F) 205 205 !! nambbc bottom temperature boundary condition (default: OFF) 206 206 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_ecmwf_cfg
r13108 r13461 201 201 !! !! 202 202 !! namdrg top/bottom drag coefficient (default: NO selection) 203 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)204 !! namdrg_bot bottom friction (ln_ OFF=F)203 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 204 !! namdrg_bot bottom friction (ln_drg_OFF=F) 205 205 !! nambbc bottom temperature boundary condition (default: OFF) 206 206 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_ncar_cfg
r13108 r13461 201 201 !! !! 202 202 !! namdrg top/bottom drag coefficient (default: NO selection) 203 !! namdrg_top top friction (ln_ OFF=F & ln_isfcav=T)204 !! namdrg_bot bottom friction (ln_ OFF=F)203 !! namdrg_top top friction (ln_drg_OFF=F & ln_isfcav=T) 204 !! namdrg_bot bottom friction (ln_drg_OFF=F) 205 205 !! nambbc bottom temperature boundary condition (default: OFF) 206 206 !! nambbl bottom boundary layer scheme (default: OFF) -
NEMO/trunk/tests/VORTEX/EXPREF/1_namelist_cfg
r13216 r13461 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 = 0116 ln_drg_OFF = .true. ! free-slip : Cd = 0 (F => fill namdrg_bot 117 117 / 118 118 !!====================================================================== -
NEMO/trunk/tests/VORTEX/EXPREF/namelist_cfg
r12489 r13461 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/trunk/tests/WAD/EXPREF/namelist_cfg
r12489 r13461 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.