New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 13461 for NEMO/trunk – NEMO

Changeset 13461 for NEMO/trunk


Ignore:
Timestamp:
2020-09-14T09:19:33+02:00 (4 years ago)
Author:
smasson
Message:

trunk: merge r4.0-HEAD 13263:13278 into the trunk, see #2523

Location:
NEMO/trunk
Files:
67 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/1_namelist_cfg

    r13208 r13461  
    175175!!                                                                    !! 
    176176!!   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) 
    179179!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    180180!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/cfgs/AGRIF_DEMO/EXPREF/namelist_cfg

    r13286 r13461  
    180180!!                                                                    !! 
    181181!!   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) 
    184184!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    185185!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/cfgs/AMM12/EXPREF/namelist_cfg

    r12489 r13461  
    212212!!                                                                    !! 
    213213!!   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) 
    216216!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    217217!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/cfgs/C1D_PAPA/EXPREF/namelist_cfg

    r12933 r13461  
    258258!!                                                                    !! 
    259259!!   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) 
    262262!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    263263!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    270270/ 
    271271!----------------------------------------------------------------------- 
    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) 
    277277!----------------------------------------------------------------------- 
    278278/ 
  • NEMO/trunk/cfgs/GYRE_BFM/EXPREF/namelist_cfg

    r12489 r13461  
    101101!!                                                                    !! 
    102102!!   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) 
    105105!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    106106!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/cfgs/GYRE_PISCES/EXPREF/namelist_cfg

    r12489 r13461  
    9999!!                                                                    !! 
    100100!!   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) 
    103103!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    104104!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/cfgs/ORCA2_ICE_ABL/EXPREF/namelist_cfg

    r13208 r13461  
    217217!!                                                                    !! 
    218218!!   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) 
    221221!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    222222!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/cfgs/ORCA2_ICE_PISCES/EXPREF/namelist_cfg

    r13286 r13461  
    207207!!                                                                    !! 
    208208!!   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) 
    211211!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    212212!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/cfgs/ORCA2_OFF_PISCES/EXPREF/namelist_cfg

    r12489 r13461  
    190190!!                                                                    !! 
    191191!!   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) 
    194194!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    195195!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    201201/ 
    202202!----------------------------------------------------------------------- 
    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) 
    208208!----------------------------------------------------------------------- 
    209209/ 
  • NEMO/trunk/cfgs/ORCA2_OFF_TRC/EXPREF/namelist_cfg

    r12489 r13461  
    188188!!                                                                    !! 
    189189!!   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) 
    192192!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    193193!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    199199/ 
    200200!----------------------------------------------------------------------- 
    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) 
    206206!----------------------------------------------------------------------- 
    207207/ 
  • NEMO/trunk/cfgs/ORCA2_SAS_ICE/EXPREF/namelist_cfg

    r13286 r13461  
    122122!!                                                                    !! 
    123123!!   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) 
    126126!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    127127!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/cfgs/SHARED/namelist_ref

    r13286 r13461  
    544544         !           !  file name  ! frequency (hours) ! variable  ! time interp.!  clim   ! 'yearly'/ ! weights  ! rotation ! land/sea mask ! 
    545545         !           !             !  (if <0  months)  !   name    !  (logical)  !  (T/F)  ! 'monthly' ! filename ! pairing  ! filename      ! 
    546          sn_isfpar_zmax = 'isfmlt_par',       0        ,'sozisfmax',  .false.    , .true.  , 'yearly'  ,    ''    ,   ''     ,    '' 
    547          sn_isfpar_zmin = 'isfmlt_par',       0        ,'sozisfmin',  .false.    , .true.  , 'yearly'  ,    ''    ,   ''     ,    '' 
     546         sn_isfpar_zmax = 'isfmlt_par',       0.       ,'sozisfmax',  .false.    , .true.  , 'yearly'  ,    ''    ,   ''     ,    '' 
     547         sn_isfpar_zmin = 'isfmlt_par',       0.       ,'sozisfmin',  .false.    , .true.  , 'yearly'  ,    ''    ,   ''     ,    '' 
    548548         !* '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'  ,    ''    ,   ''     ,    '' 
    550550         !* 'bg03' case 
    551          sn_isfpar_Leff = 'isfmlt_par',       0.       ,'Leff'     ,  .false.    , .true.  , 'yearly'   ,    ''    ,   ''     ,    '' 
     551         sn_isfpar_Leff = 'isfmlt_par',       0.       ,'Leff'     ,  .false.    , .true.  , 'yearly'  ,    ''    ,   ''     ,    '' 
    552552      ! 
    553553      ! ---------------- ice sheet coupling ------------------------------- 
     
    750750!!                                                                    !! 
    751751!!   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) 
    754754!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    755755!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    759759&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    760760!----------------------------------------------------------------------- 
    761    ln_OFF      = .false.   !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     761   ln_drg_OFF  = .false.   !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    762762   ln_lin      = .false.   !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    763763   ln_non_lin  = .false.   !  non-linear  drag: Cd = Cd0 |U| 
     
    767767/ 
    768768!----------------------------------------------------------------------- 
    769 &namdrg_top    !   TOP friction                                         (ln_OFF =F & ln_isfcav=T) 
     769&namdrg_top    !   TOP friction                                         (ln_drg_OFF =F & ln_isfcav=T) 
    770770!----------------------------------------------------------------------- 
    771771   rn_Cd0      =  1.e-3    !  drag coefficient [-] 
     
    778778/ 
    779779!----------------------------------------------------------------------- 
    780 &namdrg_bot    !   BOTTOM friction                                      (ln_OFF =F) 
     780&namdrg_bot    !   BOTTOM friction                                      (ln_drg_OFF =F) 
    781781!----------------------------------------------------------------------- 
    782782   rn_Cd0      =  1.e-3    !  drag coefficient [-] 
     
    11471147      rn_mxlice   = 10.       ! max constant ice thickness value when scaling under sea-ice ( nn_mxlice=1) 
    11481148   rn_mxl0     =   0.04    !  surface  buoyancy lenght scale minimum value 
    1149    ln_drg      = .false.   !  top/bottom friction added as boundary condition of TKE 
    11501149   ln_lc       = .true.    !  Langmuir cell parameterisation (Axell 2002) 
    11511150      rn_lc       =   0.15    !  coef. associated to Langmuir cells 
  • NEMO/trunk/cfgs/SPITZ12/EXPREF/namelist_cfg

    r12489 r13461  
    205205!!                                                                    !! 
    206206!!   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) 
    209209!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    210210!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    218218/ 
    219219!----------------------------------------------------------------------- 
    220 &namdrg_bot    !   BOTTOM friction                                      (ln_OFF =F) 
     220&namdrg_bot    !   BOTTOM friction                                      (ln_drg_OFF =F) 
    221221!----------------------------------------------------------------------- 
    222222   rn_Cd0      =  2.5e-3   !  drag coefficient [-] 
  • NEMO/trunk/cfgs/WED025/EXPREF/namelist_cfg

    r13208 r13461  
    362362!!                                                                    !! 
    363363!!   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) 
    366366!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    367367!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    374374/ 
    375375!----------------------------------------------------------------------- 
    376 &namdrg_top    !   TOP friction                                         (ln_OFF =F & ln_isfcav=T) 
     376&namdrg_top    !   TOP friction                                         (ln_drg_OFF =F & ln_isfcav=T) 
    377377!----------------------------------------------------------------------- 
    378378   rn_Cd0      =  2.5e-3    !  drag coefficient [-] 
    379379/ 
    380380!----------------------------------------------------------------------- 
    381 &namdrg_bot    !   BOTTOM friction                                      (ln_OFF =F) 
     381&namdrg_bot    !   BOTTOM friction                                      (ln_drg_OFF =F) 
    382382!----------------------------------------------------------------------- 
    383383   rn_Cd0      =  2.5e-3    !  drag coefficient [-] 
  • NEMO/trunk/doc/NEMO_manual_state.txt

    r10569 r13461  
    3939         namdia: iiceprt jiceprt 
    4040    nam_diaharm: nit000_han nitend_han nstep_han tname(1) tname(2) 
    41          namdrg: ln_OFF 
     41         namdrg: ln_drg_OFF 
    4242     namdrg_bot: rn_Cd0 rn_Uc0 rn_Cdmax 
    4343     namdrg_top: rn_Cd0 rn_Uc0 rn_Cdmax 
  • NEMO/trunk/doc/latex/NEMO/subfiles/chap_ZDF.tex

    r11693 r13461  
    11601160\] 
    11611161When \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. 
     1162Setting \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. 
    11631163 
    11641164These values are assigned in \mdl{zdfdrg}. 
  • NEMO/trunk/doc/namelists/namdrg

    r10075 r13461  
    22&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    33!----------------------------------------------------------------------- 
    4    ln_OFF      = .false.   !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     4   ln_drg_OFF  = .false.   !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    55   ln_lin      = .false.   !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    66   ln_non_lin  = .false.   !  non-linear  drag: Cd = Cd0 |U| 
  • NEMO/trunk/doc/namelists/namdrg_bot

    r10075 r13461  
    11!----------------------------------------------------------------------- 
    2 &namdrg_bot    !   BOTTOM friction                                      (ln_OFF =F) 
     2&namdrg_bot    !   BOTTOM friction                                      (ln_drg_OFF =F) 
    33!----------------------------------------------------------------------- 
    44   rn_Cd0      =  1.e-3    !  drag coefficient [-] 
  • NEMO/trunk/doc/namelists/namdrg_top

    r10075 r13461  
    11!----------------------------------------------------------------------- 
    2 &namdrg_top    !   TOP friction                                         (ln_OFF =F & ln_isfcav=T) 
     2&namdrg_top    !   TOP friction                                         (ln_drg_OFF =F & ln_isfcav=T) 
    33!----------------------------------------------------------------------- 
    44   rn_Cd0      =  1.e-3    !  drag coefficient [-] 
  • NEMO/trunk/doc/namelists/namzdf_tke

    r10075 r13461  
    1515   ln_mxl0     = .true.    !  surface mixing length scale = F(wind stress) (T) or not (F) 
    1616   rn_mxl0     =   0.04    !  surface  buoyancy lenght scale minimum value 
    17    ln_drg      = .false.   !  top/bottom friction added as boundary condition of TKE 
    1817   ln_lc       = .true.    !  Langmuir cell parameterisation (Axell 2002) 
    1918      rn_lc       =   0.15    !  coef. associated to Langmuir cells 
  • NEMO/trunk/src/ICE/icedyn_rhg_evp.F90

    r13295 r13461  
    157157      REAL(wp), DIMENSION(jpi,jpj) ::   zmsk01x, zmsk01y                ! dummy arrays 
    158158      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 ice 
     159      REAL(wp), DIMENSION(jpi,jpj) ::   zfmask                          ! mask at F points for the ice 
    160160 
    161161      REAL(wp), PARAMETER          ::   zepsi  = 1.0e-20_wp             ! tolerance parameter 
     
    187187 
    188188      ! Lateral boundary conditions on velocity (modify zfmask) 
    189       zwf(:,:) = zfmask(:,:) 
    190189      DO_2D( 0, 0, 0, 0 ) 
    191190         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) ) ) 
    193193         ENDIF 
    194194      END_2D 
    195195      DO jj = 2, jpjm1 
    196196         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) ) ) 
    198198         ENDIF 
    199199         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          ENDIF 
     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 
    202202      END DO 
    203203      DO ji = 2, jpim1 
    204204         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) ) ) 
    206206         ENDIF 
    207207         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) ) ) 
    209209         ENDIF 
    210210      END DO 
  • NEMO/trunk/src/OCE/DOM/dommsk.F90

    r13305 r13461  
    9292      INTEGER  ::   iktop, ikbot   !   -       - 
    9393      INTEGER  ::   ios, inum 
    94       REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   zwf   ! 2D workspace 
    9594      !! 
    9695      NAMELIST/namlbc/ rn_shlat, ln_vorlat 
     
    195194      IF( rn_shlat /= 0 ) THEN      ! Not free-slip lateral boundary condition 
    196195         ! 
    197          ALLOCATE( zwf(jpi,jpj) ) 
    198          ! 
    199196         DO jk = 1, jpk 
    200             zwf(:,:) = fmask(:,:,jk)          
    201197            DO_2D( 0, 0, 0, 0 ) 
    202198               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) ) ) 
    205201               ENDIF 
    206202            END_2D 
    207203            DO jj = 2, jpjm1 
    208204               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) ) ) 
    210206               ENDIF 
    211207               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) ) ) 
    213209               ENDIF 
    214210            END DO          
    215211            DO ji = 2, jpim1 
    216212               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) ) ) 
    218214               ENDIF 
    219215               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) ) ) 
    221217               ENDIF 
    222218            END DO 
    223219         END DO 
    224          ! 
    225          DEALLOCATE( zwf ) 
    226220         ! 
    227221         CALL lbc_lnk( 'dommsk', fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask 
  • NEMO/trunk/src/OCE/SBC/sbccpl.F90

    r13295 r13461  
    698698         ! Change first letter to couple with atmosphere if already coupled OPA 
    699699         ! 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 Atmosphere 
     700         ! for example O_Runoff received by OPA from SAS and therefore S_Runoff received by SAS from the Atmosphere 
    701701         DO jn = 1, jprcv 
    702702            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  
    4141 
    4242   !                                 !!* Namelist namdrg: nature of drag coefficient namelist * 
    43    LOGICAL          ::   ln_OFF       ! free-slip       : Cd = 0 
     43   LOGICAL , PUBLIC ::   ln_drg_OFF   ! free-slip       : Cd = 0 
    4444   LOGICAL          ::   ln_lin       !     linear  drag: Cd = Cd0_lin 
    4545   LOGICAL          ::   ln_non_lin   ! non-linear  drag: Cd = Cd0_nl |U| 
     
    226226      INTEGER   ::   ios, ioptio   ! local integers 
    227227      !! 
    228       NAMELIST/namdrg/ ln_OFF, ln_lin, ln_non_lin, ln_loglayer, ln_drgimp 
     228      NAMELIST/namdrg/ ln_drg_OFF, ln_lin, ln_non_lin, ln_loglayer, ln_drgimp 
    229229      !!---------------------------------------------------------------------- 
    230230      ! 
     
    242242         WRITE(numout,*) '~~~~~~~~~~~~' 
    243243         WRITE(numout,*) '   Namelist namdrg : top/bottom friction choices' 
    244          WRITE(numout,*) '      free-slip       : Cd = 0                  ln_OFF      = ', ln_OFF  
     244         WRITE(numout,*) '      free-slip       : Cd = 0                  ln_drg_OFF  = ', ln_drg_OFF  
    245245         WRITE(numout,*) '      linear  drag    : Cd = Cd0                ln_lin      = ', ln_lin 
    246246         WRITE(numout,*) '      non-linear  drag: Cd = Cd0_nl |U|         ln_non_lin  = ', ln_non_lin 
     
    250250      ! 
    251251      ioptio = 0                       ! set ndrg and control check 
    252       IF( ln_OFF      ) THEN   ;   ndrg = np_OFF        ;   ioptio = ioptio + 1   ;   ENDIF 
     252      IF( ln_drg_OFF  ) THEN   ;   ndrg = np_OFF        ;   ioptio = ioptio + 1   ;   ENDIF 
    253253      IF( ln_lin      ) THEN   ;   ndrg = np_lin        ;   ioptio = ioptio + 1   ;   ENDIF 
    254254      IF( ln_non_lin  ) THEN   ;   ndrg = np_non_lin    ;   ioptio = ioptio + 1   ;   ENDIF 
  • NEMO/trunk/src/OCE/ZDF/zdfgls.F90

    r13295 r13461  
    1919   USE dom_oce        ! ocean space and time domain 
    2020   USE domvvl         ! ocean space and time domain : variable volume layer 
     21   USE zdfdrg  , ONLY : ln_drg_OFF            ! top/bottom free-slip flag 
    2122   USE zdfdrg  , ONLY : r_z0_top , r_z0_bot   ! top/bottom roughness 
    2223   USE zdfdrg  , ONLY : rCdU_top , rCdU_bot   ! top/bottom friction 
     
    169170      ! Compute surface, top and bottom friction at T-points 
    170171      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 
    181173      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  ) 
    188183         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 
    189192      ENDIF 
    190193    
  • NEMO/trunk/src/OCE/ZDF/zdftke.F90

    r13295 r13461  
    2828   !!            3.6  !  2014-11  (P. Mathiot) add ice shelf capability 
    2929   !!            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 
    3131   !!---------------------------------------------------------------------- 
    3232 
     
    7979   REAL(wp) ::   rn_emin0  ! surface minimum value of tke   [m2/s2] 
    8080   REAL(wp) ::   rn_bshear ! background shear (>0) currently a numerical threshold (do not change it) 
    81    LOGICAL  ::   ln_drg    ! top/bottom friction forcing flag  
    8281   INTEGER  ::   nn_etau   ! type of depth penetration of surface tke (=0/1/2/3) 
    8382   INTEGER  ::      nn_htau   ! type of tke profile of penetration (=0/1) 
     
    236235      ! Note that stress averaged is done using an wet-only calculation of u and v at t-point like in zdfsh2 
    237236      ! 
    238       IF( ln_drg ) THEN       !== friction used as top/bottom boundary condition on TKE 
    239          ! 
    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 
    241240            zmsku = ( 2. - umask(ji-1,jj,mbkt(ji,jj)) * umask(ji,jj,mbkt(ji,jj)) ) 
    242241            zmskv = ( 2. - vmask(ji,jj-1,mbkt(ji,jj)) * vmask(ji,jj,mbkt(ji,jj)) ) 
     
    246245            en(ji,jj,mbkt(ji,jj)+1) = MAX( zebot, rn_emin ) * ssmask(ji,jj) 
    247246         END_2D 
    248          IF( ln_isfcav ) THEN       ! top friction 
    249             DO_2D( 0, 0, 0, 0 ) 
     247         IF( ln_isfcav ) THEN 
     248            DO_2D( 0, 0, 0, 0 )     ! top friction 
    250249               zmsku = ( 2. - umask(ji-1,jj,mikt(ji,jj)) * umask(ji,jj,mikt(ji,jj)) ) 
    251250               zmskv = ( 2. - vmask(ji,jj-1,mikt(ji,jj)) * vmask(ji,jj,mikt(ji,jj)) ) 
     
    610609         &                 rn_emin0, rn_bshear, nn_mxl   , ln_mxl0  ,  & 
    611610         &                 rn_mxl0 , nn_mxlice, rn_mxlice,             & 
    612          &                 nn_pdl  , ln_drg   , ln_lc    , rn_lc,      & 
     611         &                 nn_pdl  , ln_lc    , rn_lc    ,             & 
    613612         &                 nn_etau , nn_htau  , rn_efr   , rn_eice   
    614613      !!---------------------------------------------------------------------- 
     
    643642         ENDIF          
    644643         WRITE(numout,*) '         surface  mixing length minimum value        rn_mxl0   = ', rn_mxl0 
    645          WRITE(numout,*) '      top/bottom friction forcing flag            ln_drg    = ', ln_drg 
    646644         WRITE(numout,*) '      Langmuir cells parametrization              ln_lc     = ', ln_lc 
    647645         WRITE(numout,*) '         coef to compute vertical velocity of LC     rn_lc  = ', rn_lc 
     
    651649         WRITE(numout,*) '          below sea-ice:  =0 ON                      rn_eice   = ', rn_eice 
    652650         WRITE(numout,*) '          =4 OFF when ice fraction > 1/4   ' 
    653          IF( ln_drg ) THEN 
     651         IF( .NOT.ln_drg_OFF ) THEN 
    654652            WRITE(numout,*) 
    655653            WRITE(numout,*) '   Namelist namdrg_top/_bot:   used values:' 
  • NEMO/trunk/tests/BENCH/EXPREF/namelist_cfg_orca025_like

    r13286 r13461  
    7777!!                                                                    !! 
    7878!!   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) 
    8181!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    8282!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/tests/BENCH/EXPREF/namelist_cfg_orca12_like

    r13286 r13461  
    7777!!                                                                    !! 
    7878!!   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) 
    8181!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    8282!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/tests/BENCH/EXPREF/namelist_cfg_orca1_like

    r13286 r13461  
    7777!!                                                                    !! 
    7878!!   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) 
    8181!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    8282!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/tests/CANAL/EXPREF/namelist_cfg

    r12489 r13461  
    108108!!                                                                    !! 
    109109!!   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) 
    112112!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    113113!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    117117&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    118118!----------------------------------------------------------------------- 
    119    ln_OFF     = .true.    !  free-slip       : Cd = 0 
     119   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    120120/ 
    121121!!====================================================================== 
  • NEMO/trunk/tests/CPL_OASIS/EXPREF/namelist_cfg

    r12663 r13461  
    254254!!                                                                    !! 
    255255!!   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) 
    258258!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    259259!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg

    r12489 r13461  
    106106!!                                                                    !! 
    107107!!   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) 
    110110!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    111111!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    115115&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    116116!----------------------------------------------------------------------- 
    117    ln_OFF     = .true.     !  free-slip       : Cd = 0                   
     117   ln_drg_OFF = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    118118/ 
    119119!!====================================================================== 
  • NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_120pts

    r12489 r13461  
    106106!!                                                                    !! 
    107107!!   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) 
    110110!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    111111!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    115115&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    116116!----------------------------------------------------------------------- 
    117    ln_OFF     = .true.     !  free-slip       : Cd = 0                   
     117   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    118118/ 
    119119!!====================================================================== 
  • NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_240pts

    r12489 r13461  
    106106!!                                                                    !! 
    107107!!   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) 
    110110!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    111111!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    115115&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    116116!----------------------------------------------------------------------- 
    117    ln_OFF     = .true.     !  free-slip       : Cd = 0                   
     117   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    118118/ 
    119119!!====================================================================== 
  • NEMO/trunk/tests/ICE_ADV1D/EXPREF/namelist_cfg_60pts

    r12489 r13461  
    106106!!                                                                    !! 
    107107!!   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) 
    110110!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    111111!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    115115&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    116116!----------------------------------------------------------------------- 
    117    ln_OFF     = .true.     !  free-slip       : Cd = 0                   
     117   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    118118/ 
    119119!!====================================================================== 
  • NEMO/trunk/tests/ICE_ADV2D/EXPREF/namelist_cfg

    r12489 r13461  
    106106!!                                                                    !! 
    107107!!   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) 
    110110!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    111111!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    115115&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    116116!----------------------------------------------------------------------- 
    117    ln_OFF     = .true.     !  free-slip       : Cd = 0                   
     117   ln_drg_OFF = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    118118/ 
    119119!!====================================================================== 
  • NEMO/trunk/tests/ICE_AGRIF/EXPREF/1_namelist_cfg

    r12489 r13461  
    106106!!                                                                    !! 
    107107!!   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) 
    110110!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    111111!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    115115&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    116116!----------------------------------------------------------------------- 
    117    ln_OFF     = .true.     !  free-slip       : Cd = 0                   
     117   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    118118/ 
    119119!!====================================================================== 
  • NEMO/trunk/tests/ICE_AGRIF/EXPREF/namelist_cfg

    r12489 r13461  
    106106!!                                                                    !! 
    107107!!   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) 
    110110!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    111111!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    115115&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    116116!----------------------------------------------------------------------- 
    117    ln_OFF     = .true.     !  free-slip       : Cd = 0                   
     117   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    118118/ 
    119119!!====================================================================== 
  • NEMO/trunk/tests/ISOMIP+/EXPREF/namelist_cfg

    r12905 r13461  
    261261!!                                                                    !! 
    262262!!   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) 
    265265!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    266266!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    273273/ 
    274274!----------------------------------------------------------------------- 
    275 &namdrg_top    !   TOP friction                                         (ln_OFF =F & ln_isfcav=T) 
     275&namdrg_top    !   TOP friction                                         (ln_drg_OFF =F & ln_isfcav=T) 
    276276!----------------------------------------------------------------------- 
    277277   rn_Cd0      =  2.5e-3   !  drag coefficient [-] 
     
    279279/ 
    280280!----------------------------------------------------------------------- 
    281 &namdrg_bot    !   BOTTOM friction                                      (ln_OFF =F) 
     281&namdrg_bot    !   BOTTOM friction                                      (ln_drg_OFF =F) 
    282282!----------------------------------------------------------------------- 
    283283   rn_Cd0      =  2.5e-3    !  drag coefficient [-] 
  • NEMO/trunk/tests/ISOMIP/EXPREF/namelist_cfg

    r12489 r13461  
    227227!!                                                                    !! 
    228228!!   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) 
    231231!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    232232!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    236236&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    237237!----------------------------------------------------------------------- 
    238    ln_OFF     = .false.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     238   ln_drg_OFF = .false.   !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    239239   ln_lin     = .false.    !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    240240   ln_non_lin = .true.     !  non-linear  drag: Cd = Cd0 |U| 
     
    244244/ 
    245245!----------------------------------------------------------------------- 
    246 &namdrg_top    !   TOP friction                                         (ln_OFF =F & ln_isfcav=T) 
     246&namdrg_top    !   TOP friction                                         (ln_drg_OFF =F & ln_isfcav=T) 
    247247!----------------------------------------------------------------------- 
    248248   rn_Cd0     =  2.5e-3    !  drag coefficient [-] 
     
    255255/ 
    256256!----------------------------------------------------------------------- 
    257 &namdrg_bot    !   BOTTOM friction                                      (ln_OFF =F) 
     257&namdrg_bot    !   BOTTOM friction                                      (ln_drg_OFF =F) 
    258258!----------------------------------------------------------------------- 
    259259   rn_Cd0     =  1.e-3    !  drag coefficient [-] 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_cen2_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_ubs_cfg

    r12489 r13461  
    110110!!                                                                    !! 
    111111!!   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) 
    114114!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    115115!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    119119&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    120120!----------------------------------------------------------------------- 
    121    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     121   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    122122/ 
    123123!!====================================================================== 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_eenH_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_een_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_ene_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_ens_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_flux_cen2_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_flux_ubs_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_eenH_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_een_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_ene_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_ens_cfg

    r12489 r13461  
    6565&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6666!----------------------------------------------------------------------- 
    67    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     67   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    6868/ 
    6969!----------------------------------------------------------------------- 
  • NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT2_flux_cen-ahm1000_cfg

    r12489 r13461  
    7171&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    7272!----------------------------------------------------------------------- 
    73    ln_OFF     = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     73   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7474   ln_lin     = .false.    !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    7575   ln_non_lin = .false.    !  non-linear  drag: Cd = Cd0 |U| 
  • NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT2_flux_ubs_cfg

    r12489 r13461  
    7171&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    7272!----------------------------------------------------------------------- 
    73    ln_OFF    = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     73   ln_drg_OFF = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7474   ln_lin     = .false.    !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    7575   ln_non_lin = .false.    !  non-linear  drag: Cd = Cd0 |U| 
  • NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT4_flux_cen-ahm1000_cfg

    r12489 r13461  
    7171&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    7272!----------------------------------------------------------------------- 
    73    ln_OFF     = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     73   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7474   ln_lin     = .false.    !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    7575   ln_non_lin = .false.    !  non-linear  drag: Cd = Cd0 |U| 
  • NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_sco_FCT4_flux_ubs_cfg

    r12489 r13461  
    7171&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    7272!----------------------------------------------------------------------- 
    73    ln_OFF     = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     73   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7474   ln_lin     = .false.    !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    7575   ln_non_lin = .false.    !  non-linear  drag: Cd = Cd0 |U| 
  • NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_zps_FCT2_flux_ubs_cfg

    r12489 r13461  
    7171&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    7272!----------------------------------------------------------------------- 
    73    ln_OFF     = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     73   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7474   ln_lin     = .false.    !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    7575   ln_non_lin = .false.    !  non-linear  drag: Cd = Cd0 |U| 
  • NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_flux_ubs_cfg

    r12489 r13461  
    105105!!                                                                    !! 
    106106!!   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) 
    109109!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    110110!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    114114&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    115115!----------------------------------------------------------------------- 
    116    ln_OFF    = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     116   ln_drg_OFF = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    117117   ln_lin     = .false.    !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    118118   ln_non_lin = .false.    !  non-linear  drag: Cd = Cd0 |U| 
  • NEMO/trunk/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_vect_een_cfg

    r12489 r13461  
    7171&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    7272!----------------------------------------------------------------------- 
    73    ln_OFF     = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     73   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7474   ln_lin     = .false.    !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    7575   ln_non_lin = .false.    !  non-linear  drag: Cd = Cd0 |U| 
  • NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_coare3p6-noskin_cfg

    r13108 r13461  
    201201!!                                                                    !! 
    202202!!   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) 
    205205!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    206206!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_coare3p6_cfg

    r13108 r13461  
    201201!!                                                                    !! 
    202202!!   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) 
    205205!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    206206!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_ecmwf-noskin_cfg

    r13108 r13461  
    201201!!                                                                    !! 
    202202!!   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) 
    205205!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    206206!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_ecmwf_cfg

    r13108 r13461  
    201201!!                                                                    !! 
    202202!!   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) 
    205205!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    206206!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/tests/STATION_ASF/EXPREF/namelist_ncar_cfg

    r13108 r13461  
    201201!!                                                                    !! 
    202202!!   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) 
    205205!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    206206!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/trunk/tests/VORTEX/EXPREF/1_namelist_cfg

    r13216 r13461  
    105105!!                                                                    !! 
    106106!!   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) 
    109109!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    110110!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    114114&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    115115!----------------------------------------------------------------------- 
    116    ln_OFF     = .true.    !  free-slip       : Cd = 0 
     116   ln_drg_OFF = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    117117/ 
    118118!!====================================================================== 
  • NEMO/trunk/tests/VORTEX/EXPREF/namelist_cfg

    r12489 r13461  
    9999!!                                                                    !! 
    100100!!   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) 
    103103!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    104104!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    108108&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    109109!----------------------------------------------------------------------- 
    110    ln_OFF     = .true.    !  free-slip       : Cd = 0 
     110   ln_drg_OFF  = .true.   !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    111111/ 
    112112!!====================================================================== 
  • NEMO/trunk/tests/WAD/EXPREF/namelist_cfg

    r12489 r13461  
    200200!!                                                                    !! 
    201201!!   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) 
    204204!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    205205!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
Note: See TracChangeset for help on using the changeset viewer.