Ignore:
Timestamp:
2020-07-09T12:39:43+02:00 (5 months ago)
Author:
clem
Message:

merge with r4.0-HEAD at r13278

Location:
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl
Files:
67 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/AGRIF_DEMO/EXPREF/1_namelist_cfg

    r13250 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/AGRIF_DEMO/EXPREF/namelist_cfg

    r13249 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/AMM12/EXPREF/namelist_cfg

    r12206 r13279  
    213213!!                                                                    !! 
    214214!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    215 !!   namdrg_top    top    friction                                      (ln_OFF =F & ln_isfcav=T) 
    216 !!   namdrg_bot    bottom friction                                      (ln_OFF =F) 
     215!!   namdrg_top    top    friction                                      (ln_drg_OFF =F & ln_isfcav=T) 
     216!!   namdrg_bot    bottom friction                                      (ln_drg_OFF =F) 
    217217!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    218218!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/C1D_PAPA/EXPREF/namelist_cfg

    r12206 r13279  
    257257!!                                                                    !! 
    258258!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    259 !!   namdrg_top    top    friction                                      (ln_OFF=F & ln_isfcav=T) 
    260 !!   namdrg_bot    bottom friction                                      (ln_OFF=F) 
     259!!   namdrg_top    top    friction                                      (ln_drg_OFF=F & ln_isfcav=T) 
     260!!   namdrg_bot    bottom friction                                      (ln_drg_OFF=F) 
    261261!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    262262!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    269269/ 
    270270!----------------------------------------------------------------------- 
    271 &namdrg_top    !   TOP friction                                         (ln_OFF =F & ln_isfcav=T) 
    272 !----------------------------------------------------------------------- 
    273 / 
    274 !----------------------------------------------------------------------- 
    275 &namdrg_bot    !   BOTTOM friction                                      (ln_OFF =F) 
     271&namdrg_top    !   TOP friction                                         (ln_drg_OFF =F & ln_isfcav=T) 
     272!----------------------------------------------------------------------- 
     273/ 
     274!----------------------------------------------------------------------- 
     275&namdrg_bot    !   BOTTOM friction                                      (ln_drg_OFF =F) 
    276276!----------------------------------------------------------------------- 
    277277/ 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/GYRE_BFM/EXPREF/namelist_cfg

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/GYRE_PISCES/EXPREF/namelist_cfg

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/ORCA2_ICE_PISCES/EXPREF/namelist_cfg

    r13249 r13279  
    203203!!                                                                    !! 
    204204!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    205 !!   namdrg_top    top    friction                                      (ln_OFF=F & ln_isfcav=T) 
    206 !!   namdrg_bot    bottom friction                                      (ln_OFF=F) 
     205!!   namdrg_top    top    friction                                      (ln_drg_OFF=F & ln_isfcav=T) 
     206!!   namdrg_bot    bottom friction                                      (ln_drg_OFF=F) 
    207207!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    208208!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/ORCA2_OFF_PISCES/EXPREF/namelist_cfg

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/ORCA2_OFF_TRC/EXPREF/namelist_cfg

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/ORCA2_SAS_ICE/EXPREF/namelist_cfg

    r12206 r13279  
    124124!!                                                                    !! 
    125125!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    126 !!   namdrg_top    top    friction                                      (ln_OFF=F & ln_isfcav=T) 
    127 !!   namdrg_bot    bottom friction                                      (ln_OFF=F) 
     126!!   namdrg_top    top    friction                                      (ln_drg_OFF=F & ln_isfcav=T) 
     127!!   namdrg_bot    bottom friction                                      (ln_drg_OFF=F) 
    128128!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    129129!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/SHARED/namelist_pisces_ref

    r11536 r13279  
    197197   mpratn     =  0.01     ! nanophytoplankton mortality rate 
    198198   mpratp     =  0.01     ! picophytoplankton mortality rate 
    199    mprat2     =  0.01     ! Diatoms mortality rate 
     199   mpratd     =  0.01     ! Diatoms mortality rate 
    200200/ 
    201201!----------------------------------------------------------------------- 
     
    230230   resrat2    =  0.005    ! exsudation rate of mesozooplankton 
    231231   mzrat2     =  0.02     ! mesozooplankton mortality rate 
    232    xpref2d    =  1.       ! zoo preference for phyto 
    233    xpref2p    =  1.       ! zoo preference for POC 
     232   xpref2d    =  1.       ! zoo preference for Diatoms 
     233   xpref2n    =  1.       ! zoo preference for nanophyto 
    234234   xpref2z    =  1.       ! zoo preference for zoo 
    235    xpref2m    =  0.2      ! meso preference for zoo 
    236    xpref2c    =  0.3      ! zoo preference for poc 
     235   xpref2m    =  0.2      ! zoo preference for mesozoo 
     236   xpref2c    =  0.3      ! zoo preference for POC 
    237237   xthresh2zoo = 1E-8     ! zoo feeding threshold for mesozooplankton 
    238238   xthresh2dia = 1E-8     ! diatoms feeding threshold for mesozooplankton 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/SHARED/namelist_ref

    r13249 r13279  
    419419      rn_dep_max  = 150.      !  depth over which runoffs is spread ( ln_rnf_depth_ini = .true ) 
    420420      nn_rnf_depth_file = 0   !  create (=1) a runoff depth file or not (=0) 
     421   ln_rnf_icb  = .false.   !  read in iceberg flux from a file (fill sn_i_rnf if .true.) 
    421422 
    422423   cn_dir      = './'      !  root directory for the runoff data location 
     
    429430   sn_t_rnf    = 'runoffs'               ,        24.        , 'rotemper',   .true.    , .true. , 'yearly'  , ''               , ''       , '' 
    430431   sn_dep_rnf  = 'runoffs'               ,         0.        , 'rodepth' ,   .false.   , .true. , 'yearly'  , ''               , ''       , '' 
     432   sn_i_rnf    = 'NOT_USED'              ,        -1.        , 'sorunoff',   .true.    , .true. , 'yearly'  , ''               , ''       , '' 
    431433/ 
    432434!----------------------------------------------------------------------- 
     
    666668!!                                                                    !! 
    667669!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    668 !!   namdrg_top    top    friction                                      (ln_OFF=F & ln_isfcav=T) 
    669 !!   namdrg_bot    bottom friction                                      (ln_OFF=F) 
     670!!   namdrg_top    top    friction                                      (ln_drg_OFF=F & ln_isfcav=T) 
     671!!   namdrg_bot    bottom friction                                      (ln_drg_OFF=F) 
    670672!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    671673!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    675677&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    676678!----------------------------------------------------------------------- 
    677    ln_OFF      = .false.   !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     679   ln_drg_OFF  = .false.   !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    678680   ln_lin      = .false.   !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    679681   ln_non_lin  = .false.   !  non-linear  drag: Cd = Cd0 |U| 
     
    684686/ 
    685687!----------------------------------------------------------------------- 
    686 &namdrg_top    !   TOP friction                                         (ln_OFF =F & ln_isfcav=T) 
     688&namdrg_top    !   TOP friction                                         (ln_drg_OFF =F & ln_isfcav=T) 
    687689!----------------------------------------------------------------------- 
    688690   rn_Cd0      =  1.e-3    !  drag coefficient [-] 
     
    695697/ 
    696698!----------------------------------------------------------------------- 
    697 &namdrg_bot    !   BOTTOM friction                                      (ln_OFF =F) 
     699&namdrg_bot    !   BOTTOM friction                                      (ln_drg_OFF =F) 
    698700!----------------------------------------------------------------------- 
    699701   rn_Cd0      =  1.e-3    !  drag coefficient [-] 
     
    10641066      rn_mxlice   = 10.       ! max constant ice thickness value when scaling under sea-ice ( nn_mxlice=1) 
    10651067   rn_mxl0     =   0.04    !  surface  buoyancy lenght scale minimum value 
    1066    ln_drg      = .false.   !  top/bottom friction added as boundary condition of TKE 
    10671068   ln_lc       = .true.    !  Langmuir cell parameterisation (Axell 2002) 
    10681069      rn_lc       =   0.15    !  coef. associated to Langmuir cells 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/SHARED/namelist_top_ref

    r11536 r13279  
    122122   nn_ctls_trc   =   0       !  control surface type in mixed-layer trends (0,1 or n<jpk) 
    123123   rn_ucf_trc    =   1       !  unit conversion factor (=1 -> /seconds ; =86400. -> /day) 
    124    ln_trdmld_trc_restart = .false. !  restart for ML diagnostics 
    125    ln_trdmld_trc_instant = .true.  !  flag to diagnose trends of instantantaneous or mean ML T/S 
     124   ln_trdmxl_trc_restart = .false.   !  restart for ML diagnostics 
     125   ln_trdmxl_trc_instant = .true.    !  flag to diagnose trends of instantantaneous or mean ML T/S 
     126   cn_trdrst_trc_in  = 'restart_trd' !  suffix of pass. tracer trends restart name (input) 
     127   cn_trdrst_trc_out = 'restart_trd' !  suffix of pass. tracer trends restart name (output) 
    126128   ln_trdtrc( 1) = .true. 
    127129   ln_trdtrc( 2) = .true. 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/cfgs/SPITZ12/EXPREF/namelist_cfg

    r13249 r13279  
    206206!!                                                                    !! 
    207207!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    208 !!   namdrg_top    top    friction                                      (ln_OFF=F & ln_isfcav=T) 
    209 !!   namdrg_bot    bottom friction                                      (ln_OFF=F) 
     208!!   namdrg_top    top    friction                                      (ln_drg_OFF=F & ln_isfcav=T) 
     209!!   namdrg_bot    bottom friction                                      (ln_drg_OFF=F) 
    210210!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    211211!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    220220/ 
    221221!----------------------------------------------------------------------- 
    222 &namdrg_bot    !   BOTTOM friction                                      (ln_OFF =F) 
     222&namdrg_bot    !   BOTTOM friction                                      (ln_drg_OFF =F) 
    223223!----------------------------------------------------------------------- 
    224224   rn_Cd0      =  2.5e-3   !  drag coefficient [-] 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/doc/namelists/namdrg

    r13249 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/doc/namelists/namdrg_bot

    r10075 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/doc/namelists/namdrg_top

    r10075 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/doc/namelists/namzdf_tke

    r13249 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/ICE/icedyn_rhg_evp.F90

    r13064 r13279  
    160160      REAL(wp), DIMENSION(jpi,jpj) ::   zmsk01x, zmsk01y                ! dummy arrays 
    161161      REAL(wp), DIMENSION(jpi,jpj) ::   zmsk00x, zmsk00y                ! mask for ice presence 
    162       REAL(wp), DIMENSION(jpi,jpj) ::   zfmask, zwf                     ! mask at F points for the ice 
     162      REAL(wp), DIMENSION(jpi,jpj) ::   zfmask                          ! mask at F points for the ice 
    163163 
    164164      REAL(wp), PARAMETER          ::   zepsi  = 1.0e-20_wp             ! tolerance parameter 
     
    202202 
    203203      ! Lateral boundary conditions on velocity (modify zfmask) 
    204       zwf(:,:) = zfmask(:,:) 
    205204      DO jj = 2, jpjm1 
    206205         DO ji = fs_2, fs_jpim1   ! vector opt. 
    207206            IF( zfmask(ji,jj) == 0._wp ) THEN 
    208                zfmask(ji,jj) = rn_ishlat * MIN( 1._wp , MAX( zwf(ji+1,jj), zwf(ji,jj+1), zwf(ji-1,jj), zwf(ji,jj-1) ) ) 
     207               zfmask(ji,jj) = rn_ishlat * MIN( 1._wp , MAX( umask(ji,jj,1), umask(ji,jj+1,1), & 
     208                  &                                          vmask(ji,jj,1), vmask(ji+1,jj,1) ) ) 
    209209            ENDIF 
    210210         END DO 
     
    212212      DO jj = 2, jpjm1 
    213213         IF( zfmask(1,jj) == 0._wp ) THEN 
    214             zfmask(1  ,jj) = rn_ishlat * MIN( 1._wp , MAX( zwf(2,jj), zwf(1,jj+1), zwf(1,jj-1) ) ) 
     214            zfmask(1  ,jj) = rn_ishlat * MIN( 1._wp , MAX( vmask(2,jj,1), umask(1,jj+1,1), umask(1,jj,1) ) ) 
    215215         ENDIF 
    216216         IF( zfmask(jpi,jj) == 0._wp ) THEN 
    217             zfmask(jpi,jj) = rn_ishlat * MIN( 1._wp , MAX( zwf(jpi,jj+1), zwf(jpim1,jj), zwf(jpi,jj-1) ) ) 
    218          ENDIF 
     217            zfmask(jpi,jj) = rn_ishlat * MIN( 1._wp , MAX( umask(jpi,jj+1,1), vmask(jpim1,jj,1), umask(jpi,jj-1,1) ) ) 
     218        ENDIF 
    219219      END DO 
    220220      DO ji = 2, jpim1 
    221221         IF( zfmask(ji,1) == 0._wp ) THEN 
    222             zfmask(ji,1  ) = rn_ishlat * MIN( 1._wp , MAX( zwf(ji+1,1), zwf(ji,2), zwf(ji-1,1) ) ) 
     222            zfmask(ji, 1 ) = rn_ishlat * MIN( 1._wp , MAX( vmask(ji+1,1,1), umask(ji,2,1), vmask(ji,1,1) ) ) 
    223223         ENDIF 
    224224         IF( zfmask(ji,jpj) == 0._wp ) THEN 
    225             zfmask(ji,jpj) = rn_ishlat * MIN( 1._wp , MAX( zwf(ji+1,jpj), zwf(ji-1,jpj), zwf(ji,jpjm1) ) ) 
     225            zfmask(ji,jpj) = rn_ishlat * MIN( 1._wp , MAX( vmask(ji+1,jpj,1), vmask(ji-1,jpj,1), umask(ji,jpjm1,1) ) ) 
    226226         ENDIF 
    227227      END DO 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/BDY/bdydta.F90

    r12955 r13279  
    403403      TYPE(FLD  ), DIMENSION(:), POINTER ::   bf_alias 
    404404      ! 
    405       NAMELIST/nambdy_dta/ cn_dir, bn_tem, bn_sal, bn_u3d, bn_v3d, bn_ssh, bn_u2d, bn_v2d  
    406       NAMELIST/nambdy_dta/ bn_a_i, bn_h_i, bn_h_s, bn_t_i, bn_t_s, bn_tsu, bn_s_i, bn_aip, bn_hip, bn_hil 
    407       NAMELIST/nambdy_dta/ rn_ice_tem, rn_ice_sal, rn_ice_age, rn_ice_apnd, rn_ice_hpnd, rn_ice_hlid 
    408       NAMELIST/nambdy_dta/ ln_full_vel, ln_zinterp 
     405      NAMELIST/nambdy_dta/ cn_dir, bn_tem, bn_sal, bn_u3d, bn_v3d, bn_ssh, bn_u2d, bn_v2d,                 & 
     406                         & bn_a_i, bn_h_i, bn_h_s, bn_t_i, bn_t_s, bn_tsu, bn_s_i, bn_aip, bn_hip, bn_hil, & 
     407                         & rn_ice_tem, rn_ice_sal, rn_ice_age, rn_ice_apnd, rn_ice_hpnd, rn_ice_hlid,      & 
     408                         & ln_full_vel, ln_zinterp 
    409409      !!--------------------------------------------------------------------------- 
    410410      ! 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/DOM/dommsk.F90

    r12816 r13279  
    9292      INTEGER  ::   iktop, ikbot   !   -       - 
    9393      INTEGER  ::   ios, inum 
    94       REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   zwf   ! 2D workspace 
    9594      !! 
    9695      NAMELIST/namlbc/ rn_shlat, ln_vorlat 
     
    243242      IF( rn_shlat /= 0 ) THEN      ! Not free-slip lateral boundary condition 
    244243         ! 
    245          ALLOCATE( zwf(jpi,jpj) ) 
    246          ! 
    247244         DO jk = 1, jpk 
    248             zwf(:,:) = fmask(:,:,jk)          
    249245            DO jj = 2, jpjm1 
    250246               DO ji = fs_2, fs_jpim1   ! vector opt. 
    251247                  IF( fmask(ji,jj,jk) == 0._wp ) THEN 
    252                      fmask(ji,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,jj), zwf(ji,jj+1),  & 
    253                         &                                           zwf(ji-1,jj), zwf(ji,jj-1)  ) ) 
     248                     fmask(ji,jj,jk) = rn_shlat * MIN( 1._wp , MAX( umask(ji,jj,jk), umask(ji,jj+1,jk), & 
     249                        &                                           vmask(ji,jj,jk), vmask(ji+1,jj,jk) ) ) 
    254250                  ENDIF 
    255251               END DO 
     
    257253            DO jj = 2, jpjm1 
    258254               IF( fmask(1,jj,jk) == 0._wp ) THEN 
    259                   fmask(1  ,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(2,jj), zwf(1,jj+1), zwf(1,jj-1) ) ) 
     255                  fmask(1  ,jj,jk) = rn_shlat * MIN( 1._wp , MAX( vmask(2,jj,jk), umask(1,jj+1,jk), umask(1,jj,jk) ) ) 
    260256               ENDIF 
    261257               IF( fmask(jpi,jj,jk) == 0._wp ) THEN 
    262                   fmask(jpi,jj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(jpi,jj+1), zwf(jpim1,jj), zwf(jpi,jj-1) ) ) 
     258                  fmask(jpi,jj,jk) = rn_shlat * MIN( 1._wp , MAX( umask(jpi,jj+1,jk), vmask(jpim1,jj,jk), umask(jpi,jj-1,jk) ) ) 
    263259               ENDIF 
    264260            END DO          
    265261            DO ji = 2, jpim1 
    266262               IF( fmask(ji,1,jk) == 0._wp ) THEN 
    267                   fmask(ji, 1 ,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,1), zwf(ji,2), zwf(ji-1,1) ) ) 
     263                  fmask(ji, 1 ,jk) = rn_shlat * MIN( 1._wp , MAX( vmask(ji+1,1,jk), umask(ji,2,jk), vmask(ji,1,jk) ) ) 
    268264               ENDIF 
    269265               IF( fmask(ji,jpj,jk) == 0._wp ) THEN 
    270                   fmask(ji,jpj,jk) = rn_shlat * MIN( 1._wp , MAX( zwf(ji+1,jpj), zwf(ji-1,jpj), zwf(ji,jpjm1) ) ) 
     266                  fmask(ji,jpj,jk) = rn_shlat * MIN( 1._wp , MAX( vmask(ji+1,jpj,jk), vmask(ji-1,jpj,jk), umask(ji,jpjm1,jk) ) ) 
    271267               ENDIF 
    272268            END DO 
     
    281277         END DO 
    282278         ! 
    283          DEALLOCATE( zwf ) 
    284          ! 
    285279         CALL lbc_lnk( 'dommsk', fmask, 'F', 1._wp )      ! Lateral boundary conditions on fmask 
    286280         ! 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ICB/icb_oce.F90

    r10702 r13279  
    5757   TYPE, PUBLIC ::   point              !: properties of an individual iceberg (position, mass, size, etc...) 
    5858      INTEGER  ::   year 
    59       REAL(wp) ::   xi , yj                                              ! iceberg coordinates in the (i,j) referential (global) 
    60       REAL(wp) ::   e1 , e2                                              ! horizontal scale factors at the iceberg position 
    61       REAL(wp) ::   lon, lat, day                                        ! geographic position 
    62       REAL(wp) ::   mass, thickness, width, length, uvel, vvel           ! iceberg physical properties 
    63       REAL(wp) ::   uo, vo, ui, vi, ua, va, ssh_x, ssh_y, sst, cn, hi    ! properties of iceberg environment  
     59      REAL(wp) ::   xi , yj                                                   ! iceberg coordinates in the (i,j) referential (global) 
     60      REAL(wp) ::   e1 , e2                                                   ! horizontal scale factors at the iceberg position 
     61      REAL(wp) ::   lon, lat, day                                             ! geographic position 
     62      REAL(wp) ::   mass, thickness, width, length, uvel, vvel                ! iceberg physical properties 
     63      REAL(wp) ::   uo, vo, ui, vi, ua, va, ssh_x, ssh_y, sst, cn, hi, sss    ! properties of iceberg environment  
    6464      REAL(wp) ::   mass_of_bits, heat_density 
    6565   END TYPE point 
     
    8686   ! particularly for MPP when iceberg can lie inside T grid but outside U, V, or f grid 
    8787   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   uo_e, vo_e 
    88    REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ff_e, tt_e, fr_e 
     88   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ff_e, tt_e, fr_e, ss_e 
    8989   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ua_e, va_e 
    9090   REAL(wp), PUBLIC, DIMENSION(:,:), ALLOCATABLE ::   ssh_e 
     
    122122   LOGICAL , PUBLIC ::   ln_operator_splitting           !: Use first order operator splitting for thermodynamics 
    123123   LOGICAL , PUBLIC ::   ln_passive_mode                 !: iceberg - ocean decoupling 
    124    LOGICAL , PUBLIC ::   ln_time_average_weight          !: Time average the weight on the ocean    !!gm I don't understand that ! 
    125124   REAL(wp), PUBLIC ::   rn_speed_limit                  !: CFL speed limit for a berg 
    126125   ! 
     
    179178         &      ff_e(0:jpi+1,0:jpj+1) , fr_e(0:jpi+1,0:jpj+1)  ,   & 
    180179         &      tt_e(0:jpi+1,0:jpj+1) , ssh_e(0:jpi+1,0:jpj+1) ,   & 
     180         &      ss_e(0:jpi+1,0:jpj+1) ,                            &  
    181181         &      first_width(nclasses) , first_length(nclasses) ,   & 
    182182         &      src_calving (jpi,jpj) ,                            & 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ICB/icbdyn.F90

    r10570 r13279  
    258258      ! 
    259259      INTEGER  ::   itloop 
    260       REAL(wp) ::   zuo, zui, zua, zuwave, zssh_x, zsst, zcn, zhi 
     260      REAL(wp) ::   zuo, zui, zua, zuwave, zssh_x, zsst, zcn, zhi, zsss 
    261261      REAL(wp) ::   zvo, zvi, zva, zvwave, zssh_y 
    262262      REAL(wp) ::   zff, zT, zD, zW, zL, zM, zF 
     
    271271      nknberg = berg%number(1) 
    272272      CALL icb_utl_interp( pxi, pe1, zuo, zui, zua, zssh_x,                     & 
    273          &                 pyj, pe2, zvo, zvi, zva, zssh_y, zsst, zcn, zhi, zff ) 
     273         &                 pyj, pe2, zvo, zvi, zva, zssh_y, zsst, zcn, zhi, zff, zsss ) 
    274274 
    275275      zM = berg%current_point%mass 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ICB/icbini.F90

    r11536 r13279  
    7979      ua_e(:,:) = 0._wp   ;   va_e(:,:) = 0._wp   ; 
    8080      ff_e(:,:) = 0._wp   ;   tt_e(:,:) = 0._wp   ; 
    81       fr_e(:,:) = 0._wp   ; 
     81      fr_e(:,:) = 0._wp   ;   ss_e(:,:) = 0._wp   ; 
    8282#if defined key_si3 
    8383      hi_e(:,:) = 0._wp   ; 
     
    382382         &              rn_rho_bergs   , rn_LoW_ratio   , nn_verbose_level    , ln_operator_splitting,   & 
    383383         &              rn_bits_erosion_fraction        , rn_sicn_shift       , ln_passive_mode      ,   & 
    384          &              ln_time_average_weight          , nn_test_icebergs    , rn_test_box          ,   & 
    385          &              ln_use_calving , rn_speed_limit , cn_dir, sn_icb 
     384         &              nn_test_icebergs                , rn_test_box         , ln_use_calving       ,   & 
     385         &              rn_speed_limit , cn_dir, sn_icb 
    386386      !!---------------------------------------------------------------------- 
    387387 
     
    468468         WRITE(numout,*) '   Do not add freshwater flux from icebergs to ocean                ',   & 
    469469            &                    '                  passive_mode            = ', ln_passive_mode 
    470          WRITE(numout,*) '   Time average the weight on the ocean   time_average_weight       = ', ln_time_average_weight 
    471470         WRITE(numout,*) '   Create icebergs in absence of a restart file   nn_test_icebergs  = ', nn_test_icebergs 
    472471         WRITE(numout,*) '                   in lon/lat box                                   = ', rn_test_box 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ICB/icbthm.F90

    r12291 r13279  
    2020   USE phycst         ! NEMO physical constants 
    2121   USE sbc_oce 
     22   USE eosbn2         ! equation of state 
    2223   USE lib_fortran, ONLY : DDPDD 
    2324 
     
    5051      INTEGER  ::   ii, ij 
    5152      REAL(wp) ::   zM, zT, zW, zL, zSST, zVol, zLn, zWn, zTn, znVol, zIC, zDn 
     53      REAL(wp) ::   zSSS, zfzpt 
    5254      REAL(wp) ::   zMv, zMe, zMb, zmelt, zdvo, zdva, zdM, zSs, zdMe, zdMb, zdMv 
    5355      REAL(wp) ::   zMnew, zMnew1, zMnew2, zheat_hcflux, zheat_latent, z1_12 
     
    8587         CALL icb_utl_interp( pt%xi, pt%e1, pt%uo, pt%ui, pt%ua, pt%ssh_x,   & 
    8688            &                 pt%yj, pt%e2, pt%vo, pt%vi, pt%va, pt%ssh_y,   & 
    87             &                 pt%sst, pt%cn, pt%hi, zff ) 
     89            &                 pt%sst, pt%cn, pt%hi, zff, pt%sss ) 
    8890         ! 
    8991         zSST = pt%sst 
     92         zSSS = pt%sss 
     93         CALL eos_fzp(zSSS,zfzpt)                       ! freezing point 
    9094         zIC  = MIN( 1._wp, pt%cn + rn_sicn_shift )     ! Shift sea-ice concentration       !!gm ??? 
    9195         zM   = pt%mass 
     
    109113 
    110114         ! Melt rates in m/s (i.e. division by rday) 
    111          zMv = MAX( 7.62d-3*zSST+1.29d-3*(zSST**2)                    , 0._wp ) * z1_rday   ! Buoyant convection at sides (eqn M.A10) 
    112          zMb = MAX( 0.58_wp*(zdvo**0.8_wp)*(zSST+4.0_wp)/(zL**0.2_wp) , 0._wp ) * z1_rday   ! Basal turbulent melting     (eqn M.A7 ) 
    113          zMe = MAX( z1_12*(zSST+2.)*zSs*(1._wp+COS(rpi*(zIC**3)))     , 0._wp ) * z1_rday   ! Wave erosion                (eqn M.A8 ) 
     115         zMv = MAX( 7.62d-3*zSST+1.29d-3*(zSST**2)                    , 0._wp ) * z1_rday      ! Buoyant convection at sides (eqn M.A10) 
     116         IF ( zSST > zfzpt ) THEN                                                              ! Calculate basal melting only if SST above freezing point   
     117            zMb = MAX( 0.58_wp*(zdvo**0.8_wp)*(zSST+4.0_wp)/(zL**0.2_wp) , 0._wp ) * z1_rday   ! Basal turbulent melting     (eqn M.A7 ) 
     118         ELSE 
     119            zMb = 0._wp                                                                        ! No basal melting if SST below freezing point      
     120         ENDIF 
     121         zMe = MAX( z1_12*(zSST+2.)*zSs*(1._wp+COS(rpi*(zIC**3)))     , 0._wp ) * z1_rday      ! Wave erosion                (eqn M.A8 ) 
    114122 
    115123         IF( ln_operator_splitting ) THEN      ! Operator split update of volume/mass 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ICB/icbutl.F90

    r10702 r13279  
    7474      ff_e(1:jpi,1:jpj) = ff_f (:,:)  
    7575      tt_e(1:jpi,1:jpj) = sst_m(:,:) 
     76      ss_e(1:jpi,1:jpj) = sss_m(:,:) 
    7677      fr_e(1:jpi,1:jpj) = fr_i (:,:) 
    7778      ua_e(1:jpi,1:jpj) = utau (:,:) * umask(:,:,1) ! maybe mask useless because mask applied in sbcblk 
     
    8586      CALL lbc_lnk_icb( 'icbutl', fr_e, 'T', +1._wp, 1, 1 ) 
    8687      CALL lbc_lnk_icb( 'icbutl', tt_e, 'T', +1._wp, 1, 1 ) 
     88      CALL lbc_lnk_icb( 'icbutl', ss_e, 'T', +1._wp, 1, 1 ) 
    8789#if defined key_si3 
    8890      hi_e(1:jpi, 1:jpj) = hm_i (:,:)   
     
    107109   SUBROUTINE icb_utl_interp( pi, pe1, puo, pui, pua, pssh_i,   & 
    108110      &                       pj, pe2, pvo, pvi, pva, pssh_j,   & 
    109       &                       psst, pcn, phi, pff            ) 
     111      &                       psst, pcn, phi, pff, psss        ) 
    110112      !!---------------------------------------------------------------------- 
    111113      !!                  ***  ROUTINE icb_utl_interp  *** 
     
    128130      REAL(wp), INTENT(  out) ::   puo, pvo, pui, pvi, pua, pva   ! ocean, ice and wind speeds 
    129131      REAL(wp), INTENT(  out) ::   pssh_i, pssh_j                 ! ssh i- & j-gradients 
    130       REAL(wp), INTENT(  out) ::   psst, pcn, phi, pff            ! SST, ice concentration, ice thickness, Coriolis 
     132      REAL(wp), INTENT(  out) ::   psst, pcn, phi, pff, psss      ! SST, ice concentration, ice thickness, Coriolis, SSS 
    131133      ! 
    132134      REAL(wp) ::   zcd, zmod       ! local scalars 
     
    139141      pvo  = icb_utl_bilin_h( vo_e, pi, pj, 'V', .false.  ) 
    140142      psst = icb_utl_bilin_h( tt_e, pi, pj, 'T', .true.   )    ! SST 
     143      psss = icb_utl_bilin_h( ss_e, pi, pj, 'T', .true.   )    ! SSS 
    141144      pcn  = icb_utl_bilin_h( fr_e, pi, pj, 'T', .true.   )    ! ice concentration 
    142145      pff  = icb_utl_bilin_h( ff_e, pi, pj, 'F', .false.  )    ! Coriolis parameter 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/SBC/sbcrnf.F90

    r12277 r13279  
    4747   TYPE(FLD_N)       , PUBLIC ::   sn_rnf            !: information about the runoff file to be read 
    4848   TYPE(FLD_N)                ::   sn_cnf            !: information about the runoff mouth file to be read 
    49    TYPE(FLD_N)                ::   sn_i_rnf        !: information about the iceberg flux file to be read 
     49   TYPE(FLD_N)                ::   sn_i_rnf          !: information about the iceberg flux file to be read 
    5050   TYPE(FLD_N)                ::   sn_s_rnf          !: information about the salinities of runoff file to be read 
    5151   TYPE(FLD_N)                ::   sn_t_rnf          !: information about the temperatures of runoff file to be read 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/SBC/sbcwave.F90

    r12816 r13279  
    392392      ! 
    393393      NAMELIST/namsbc_wave/  sn_cdg, cn_dir, sn_usd, sn_vsd, sn_hsw, sn_wmp, sn_wfr, & 
    394                              sn_wnum, sn_tauwoc, sn_tauwx, sn_tauwy 
     394                          &  sn_wnum, sn_tauwoc, sn_tauwx, sn_tauwy 
    395395      !!--------------------------------------------------------------------- 
    396396      ! 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/STO/stopar.F90

    r11536 r13279  
    245245      !! ** Purpose :   define the stochastic parameterization 
    246246      !!---------------------------------------------------------------------- 
    247       NAMELIST/namsto/ ln_sto_ldf, rn_ldf_std, rn_ldf_tcor, & 
    248         &              ln_sto_hpg, rn_hpg_std, rn_hpg_tcor, & 
    249         &              ln_sto_pstar, rn_pstar_std, rn_pstar_tcor, nn_pstar_flt, nn_pstar_ord, & 
    250         &              ln_sto_trd, rn_trd_std, rn_trd_tcor, & 
    251         &              ln_sto_eos, nn_sto_eos, rn_eos_stdxy, rn_eos_stdz, & 
    252         &              rn_eos_tcor, nn_eos_ord, nn_eos_flt, rn_eos_lim, & 
    253         &              ln_sto_trc, nn_sto_trc, rn_trc_stdxy, rn_trc_stdz, & 
    254         &              rn_trc_tcor, nn_trc_ord, nn_trc_flt, rn_trc_lim, & 
     247      ! stochastic equation of state only (for now) 
     248      NAMELIST/namsto/ ln_sto_eos, nn_sto_eos, rn_eos_stdxy, rn_eos_stdz, & 
     249        &              rn_eos_tcor, nn_eos_ord, nn_eos_flt, rn_eos_lim,   & 
    255250        &              ln_rststo, ln_rstseed, cn_storst_in, cn_storst_out 
     251      !NAMELIST/namsto/ ln_sto_ldf, rn_ldf_std, rn_ldf_tcor, & 
     252      !  &              ln_sto_hpg, rn_hpg_std, rn_hpg_tcor, & 
     253      !  &              ln_sto_pstar, rn_pstar_std, rn_pstar_tcor, nn_pstar_flt, nn_pstar_ord, & 
     254      !  &              ln_sto_trd, rn_trd_std, rn_trd_tcor, & 
     255      !  &              ln_sto_trc, nn_sto_trc, rn_trc_stdxy, rn_trc_stdz, & 
     256      !  &              rn_trc_tcor, nn_trc_ord, nn_trc_flt, rn_trc_lim 
    256257      !!---------------------------------------------------------------------- 
    257258      INTEGER :: jsto, jmem, jarea, jdof, jord, jordm1, jk, jflt 
     
    261262 
    262263      ! Read namsto namelist : stochastic parameterization 
    263       REWIND( numnam_ref )              ! Namelist namdyn_adv in reference namelist : Momentum advection scheme 
     264      REWIND( numnam_ref )              ! Namelist namsto in reference namelist : stochastic parameterization 
    264265      READ  ( numnam_ref, namsto, IOSTAT = ios, ERR = 901) 
    265266901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in reference namelist' ) 
    266267 
    267       REWIND( numnam_cfg )              ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme 
     268      REWIND( numnam_cfg )              ! Namelist namsto in configuration namelist : stochastic parameterization 
    268269      READ  ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 
    269270902   IF( ios >  0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist' ) 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ZDF/zdfdrg.F90

    r13249 r13279  
    4242 
    4343   !                                 !!* Namelist namdrg: nature of drag coefficient namelist * 
    44    LOGICAL          ::   ln_OFF       ! free-slip       : Cd = 0 
     44   LOGICAL , PUBLIC ::   ln_drg_OFF   ! free-slip       : Cd = 0 
    4545   LOGICAL          ::   ln_lin       !     linear  drag: Cd = Cd0_lin 
    4646   LOGICAL          ::   ln_non_lin   ! non-linear  drag: Cd = Cd0_nl |U| 
     
    232232      INTEGER   ::   ios, ioptio   ! local integers 
    233233      !! 
    234       NAMELIST/namdrg/ ln_OFF, ln_lin, ln_non_lin, ln_loglayer, ln_drgimp, ln_drgice_imp 
     234      NAMELIST/namdrg/ ln_drg_OFF, ln_lin, ln_non_lin, ln_loglayer, ln_drgimp, ln_drgice_imp 
    235235      !!---------------------------------------------------------------------- 
    236236      ! 
     
    250250         WRITE(numout,*) '~~~~~~~~~~~~' 
    251251         WRITE(numout,*) '   Namelist namdrg : top/bottom friction choices' 
    252          WRITE(numout,*) '      free-slip       : Cd = 0                  ln_OFF      = ', ln_OFF  
     252         WRITE(numout,*) '      free-slip       : Cd = 0                  ln_drg_OFF  = ', ln_drg_OFF  
    253253         WRITE(numout,*) '      linear  drag    : Cd = Cd0                ln_lin      = ', ln_lin 
    254254         WRITE(numout,*) '      non-linear  drag: Cd = Cd0_nl |U|         ln_non_lin  = ', ln_non_lin 
     
    259259      ! 
    260260      ioptio = 0                       ! set ndrg and control check 
    261       IF( ln_OFF      ) THEN   ;   ndrg = np_OFF        ;   ioptio = ioptio + 1   ;   ENDIF 
     261      IF( ln_drg_OFF  ) THEN   ;   ndrg = np_OFF        ;   ioptio = ioptio + 1   ;   ENDIF 
    262262      IF( ln_lin      ) THEN   ;   ndrg = np_lin        ;   ioptio = ioptio + 1   ;   ENDIF 
    263263      IF( ln_non_lin  ) THEN   ;   ndrg = np_non_lin    ;   ioptio = ioptio + 1   ;   ENDIF 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ZDF/zdfgls.F90

    r13249 r13279  
    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 
     
    176177       
    177178      ! Compute surface, top and bottom friction at T-points 
    178       DO jj = 2, jpjm1           
    179          DO ji = fs_2, fs_jpim1   ! vector opt.          
    180             ! 
    181             ! surface friction 
     179      DO jj = 2, jpjm1              !==  surface ocean friction 
     180         DO ji = fs_2, fs_jpim1           ! vector opt.          
    182181            ustar2_surf(ji,jj) = r1_rau0 * taum(ji,jj) * tmask(ji,jj,1) 
    183             !    
     182         END DO 
     183      END DO 
     184      !    
    184185!!gm Rq we may add here r_ke0(_top/_bot) ?  ==>> think about that... 
    185           ! bottom friction (explicit before friction) 
    186           zmsku = ( 2._wp - umask(ji-1,jj,mbkt(ji,jj)) * umask(ji,jj,mbkt(ji,jj)) ) 
    187           zmskv = ( 2._wp - vmask(ji,jj-1,mbkt(ji,jj)) * vmask(ji,jj,mbkt(ji,jj)) )     ! (CAUTION: CdU<0) 
    188           ustar2_bot(ji,jj) = - rCdU_bot(ji,jj) * SQRT(  ( zmsku*( ub(ji,jj,mbkt(ji,jj))+ub(ji-1,jj,mbkt(ji,jj)) ) )**2  & 
    189              &                                         + ( zmskv*( vb(ji,jj,mbkt(ji,jj))+vb(ji,jj-1,mbkt(ji,jj)) ) )**2  ) 
    190          END DO 
    191       END DO 
    192       IF( ln_isfcav ) THEN       !top friction 
    193          DO jj = 2, jpjm1 
    194             DO ji = fs_2, fs_jpim1   ! vector opt. 
    195                zmsku = ( 2. - umask(ji-1,jj,mikt(ji,jj)) * umask(ji,jj,mikt(ji,jj)) ) 
    196                zmskv = ( 2. - vmask(ji,jj-1,mikt(ji,jj)) * vmask(ji,jj,mikt(ji,jj)) )     ! (CAUTION: CdU<0) 
    197                ustar2_top(ji,jj) = - rCdU_top(ji,jj) * SQRT(  ( zmsku*( ub(ji,jj,mikt(ji,jj))+ub(ji-1,jj,mikt(ji,jj)) ) )**2  & 
    198                   &                                         + ( zmskv*( vb(ji,jj,mikt(ji,jj))+vb(ji,jj-1,mikt(ji,jj)) ) )**2  ) 
    199             END DO 
    200          END DO 
     186      !     
     187      IF( .NOT.ln_drg_OFF ) THEN    !== top/bottom friction   (explicit before friction) 
     188         DO jj = 2, jpjm1                      ! bottom friction 
     189            DO ji = fs_2, fs_jpim1   ! vector opt.          
     190               zmsku = ( 2._wp - umask(ji-1,jj,mbkt(ji,jj)) * umask(ji,jj,mbkt(ji,jj)) ) 
     191               zmskv = ( 2._wp - vmask(ji,jj-1,mbkt(ji,jj)) * vmask(ji,jj,mbkt(ji,jj)) )     ! (CAUTION: CdU<0) 
     192               ustar2_bot(ji,jj) = - rCdU_bot(ji,jj) * SQRT(  ( zmsku*( ub(ji,jj,mbkt(ji,jj))+ub(ji-1,jj,mbkt(ji,jj)) ) )**2  & 
     193                  &                                         + ( zmskv*( vb(ji,jj,mbkt(ji,jj))+vb(ji,jj-1,mbkt(ji,jj)) ) )**2  ) 
     194            END DO 
     195         END DO 
     196         IF( ln_isfcav ) THEN       !top friction 
     197            DO jj = 2, jpjm1 
     198               DO ji = fs_2, fs_jpim1   ! vector opt. 
     199                  zmsku = ( 2._wp - umask(ji-1,jj,mikt(ji,jj)) * umask(ji,jj,mikt(ji,jj)) ) 
     200                  zmskv = ( 2._wp - vmask(ji,jj-1,mikt(ji,jj)) * vmask(ji,jj,mikt(ji,jj)) )     ! (CAUTION: CdU<0) 
     201                  ustar2_top(ji,jj) = - rCdU_top(ji,jj) * SQRT(  ( zmsku*( ub(ji,jj,mikt(ji,jj))+ub(ji-1,jj,mikt(ji,jj)) ) )**2  & 
     202                     &                                         + ( zmskv*( vb(ji,jj,mikt(ji,jj))+vb(ji,jj-1,mikt(ji,jj)) ) )**2  ) 
     203               END DO 
     204            END DO 
     205         ENDIF 
    201206      ENDIF 
    202207    
     
    213218         zhsro(:,:) = MAX(rsbc_zs2 * ustar2_surf(:,:) * zdep(:,:)**1.5, rn_hsro)          ! zhsro = rn_frac_hs * Hsw (eq. 11) 
    214219      CASE ( 3 )             ! Roughness given by the wave model (coupled or read in file) 
    215          zhsro(:,:) = rn_frac_hs * hsw(:,:)   ! (rn_frac_hs=1.6 see Eq. (5) of Rascle et al. 2008 ) 
     220         zhsro(:,:) = MAX(rn_frac_hs * hsw(:,:), rn_hsro)   ! (rn_frac_hs=1.6 see Eq. (5) of Rascle et al. 2008 ) 
    216221      END SELECT 
    217222      ! 
     
    920925 
    921926      !                                !* Check of some namelist values 
    922       IF( nn_bc_surf < 0   .OR. nn_bc_surf   > 1 )   CALL ctl_stop( 'zdf_gls_init: bad flag: nn_bc_surf is 0 or 1' ) 
    923       IF( nn_bc_surf < 0   .OR. nn_bc_surf   > 1 )   CALL ctl_stop( 'zdf_gls_init: bad flag: nn_bc_surf is 0 or 1' ) 
    924       IF( nn_z0_met  < 0   .OR. nn_z0_met    > 3 )   CALL ctl_stop( 'zdf_gls_init: bad flag: nn_z0_met is 0, 1, 2 or 3' ) 
    925       IF( nn_z0_met == 3  .AND. .NOT.ln_wave     )   CALL ctl_stop( 'zdf_gls_init: nn_z0_met=3 requires ln_wave=T' ) 
    926       IF( nn_stab_func < 0 .OR. nn_stab_func > 3 )   CALL ctl_stop( 'zdf_gls_init: bad flag: nn_stab_func is 0, 1, 2 and 3' ) 
    927       IF( nn_clos      < 0 .OR. nn_clos      > 3 )   CALL ctl_stop( 'zdf_gls_init: bad flag: nn_clos is 0, 1, 2 or 3' ) 
     927      IF( nn_bc_surf < 0   .OR. nn_bc_surf   > 1 )              CALL ctl_stop( 'zdf_gls_init: bad flag: nn_bc_surf is 0 or 1' ) 
     928      IF( nn_bc_surf < 0   .OR. nn_bc_surf   > 1 )              CALL ctl_stop( 'zdf_gls_init: bad flag: nn_bc_surf is 0 or 1' ) 
     929      IF( nn_z0_met  < 0   .OR. nn_z0_met    > 3 )              CALL ctl_stop( 'zdf_gls_init: bad flag: nn_z0_met is 0, 1, 2 or 3' ) 
     930      IF( nn_z0_met == 3  .AND. .NOT. (ln_wave .AND. ln_sdw ) ) CALL ctl_stop( 'zdf_gls_init: nn_z0_met=3 requires ln_wave=T and ln_sdw=T' ) 
     931      IF( nn_stab_func < 0 .OR. nn_stab_func > 3 )              CALL ctl_stop( 'zdf_gls_init: bad flag: nn_stab_func is 0, 1, 2 and 3' ) 
     932      IF( nn_clos      < 0 .OR. nn_clos      > 3 )              CALL ctl_stop( 'zdf_gls_init: bad flag: nn_clos is 0, 1, 2 or 3' ) 
    928933 
    929934      SELECT CASE ( nn_clos )          !* set the parameters for the chosen closure 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ZDF/zdfosm.F90

    r11536 r13279  
    14201420     ENDIF 
    14211421 
     1422 
     1423     !                              ! Check wave coupling settings ! 
     1424     !                         ! Further work needed - see ticket #2447 ! 
     1425     IF( nn_osm_wave == 2 ) THEN 
     1426        IF (.NOT. ( ln_wave .AND. ln_sdw )) & 
     1427           & CALL ctl_stop( 'zdf_osm_init : ln_zdfosm and nn_osm_wave=2, ln_wave and ln_sdw must be true' ) 
     1428     END IF 
     1429 
    14221430     !                              ! allocate zdfosm arrays 
    14231431     IF( zdf_osm_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'zdf_osm_init : unable to allocate arrays' ) 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/ZDF/zdftke.F90

    r13249 r13279  
    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) 
     
    247246      ! Note that stress averaged is done using an wet-only calculation of u and v at t-point like in zdfsh2 
    248247      ! 
    249       IF( ln_drg ) THEN       !== friction used as top/bottom boundary condition on TKE 
    250          ! 
    251          DO jj = 2, jpjm1           ! bottom friction 
     248      IF( .NOT.ln_drg_OFF ) THEN    !== friction used as top/bottom boundary condition on TKE 
     249         ! 
     250         DO jj = 2, jpjm1              ! bottom friction 
    252251            DO ji = fs_2, fs_jpim1     ! vector opt. 
    253252               zmsku = ( 2. - umask(ji-1,jj,mbkt(ji,jj)) * umask(ji,jj,mbkt(ji,jj)) ) 
     
    717716         &                 rn_emin0, rn_bshear, nn_mxl   , ln_mxl0  ,  & 
    718717         &                 rn_mxl0 , nn_mxlice, rn_mxlice,             & 
    719          &                 nn_pdl  , ln_drg   , ln_lc    , rn_lc,      & 
     718         &                 nn_pdl  , ln_lc    , rn_lc,                 & 
    720719         &                 nn_etau , nn_htau  , rn_efr   , nn_eice   
    721720      !!---------------------------------------------------------------------- 
     
    760759            END SELECT 
    761760         ENDIF 
    762          WRITE(numout,*) '      top/bottom friction forcing flag            ln_drg    = ', ln_drg 
    763761         WRITE(numout,*) '      Langmuir cells parametrization              ln_lc     = ', ln_lc 
    764762         WRITE(numout,*) '         coef to compute vertical velocity of LC     rn_lc  = ', rn_lc 
     
    775773            CALL ctl_stop( 'zdf_tke_init: wrong value for nn_eice, should be 0,1,2, or 3') 
    776774         END SELECT       
    777          IF( ln_drg ) THEN 
     775         IF( .NOT.ln_drg_OFF ) THEN 
    778776            WRITE(numout,*) 
    779777            WRITE(numout,*) '   Namelist namdrg_top/_bot:   used values:' 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/BENCH/EXPREF/namelist_cfg_orca025_like

    r11536 r13279  
    7575!!                                                                    !! 
    7676!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    77 !!   namdrg_top    top    friction                                      (ln_OFF =F & ln_isfcav=T) 
    78 !!   namdrg_bot    bottom friction                                      (ln_OFF =F) 
     77!!   namdrg_top    top    friction                                      (ln_drg_OFF =F & ln_isfcav=T) 
     78!!   namdrg_bot    bottom friction                                      (ln_drg_OFF =F) 
    7979!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    8080!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/BENCH/EXPREF/namelist_cfg_orca12_like

    r11536 r13279  
    7575!!                                                                    !! 
    7676!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    77 !!   namdrg_top    top    friction                                      (ln_OFF =F & ln_isfcav=T) 
    78 !!   namdrg_bot    bottom friction                                      (ln_OFF =F) 
     77!!   namdrg_top    top    friction                                      (ln_drg_OFF =F & ln_isfcav=T) 
     78!!   namdrg_bot    bottom friction                                      (ln_drg_OFF =F) 
    7979!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    8080!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/BENCH/EXPREF/namelist_cfg_orca1_like

    r11536 r13279  
    7575!!                                                                    !! 
    7676!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    77 !!   namdrg_top    top    friction                                      (ln_OFF =F & ln_isfcav=T) 
    78 !!   namdrg_bot    bottom friction                                      (ln_OFF =F) 
     77!!   namdrg_top    top    friction                                      (ln_drg_OFF =F & ln_isfcav=T) 
     78!!   namdrg_bot    bottom friction                                      (ln_drg_OFF =F) 
    7979!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    8080!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/CANAL/EXPREF/namelist_cfg

    r12751 r13279  
    121121!!                                                                    !! 
    122122!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    123 !!   namdrg_top    top    friction                                      (ln_OFF =F & ln_isfcav=T) 
    124 !!   namdrg_bot    bottom friction                                      (ln_OFF =F) 
     123!!   namdrg_top    top    friction                                      (ln_drg_OFF =F & ln_isfcav=T) 
     124!!   namdrg_bot    bottom friction                                      (ln_drg_OFF =F) 
    125125!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    126126!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    130130&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    131131!----------------------------------------------------------------------- 
    132    ln_OFF     = .true.    !  free-slip       : Cd = 0 
     132   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    133133/ 
    134134!!====================================================================== 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_ADV1D/EXPREF/namelist_cfg

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_ADV1D/EXPREF/namelist_cfg_120pts

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_ADV1D/EXPREF/namelist_cfg_240pts

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_ADV1D/EXPREF/namelist_cfg_60pts

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_ADV2D/EXPREF/namelist_cfg

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_AGRIF/EXPREF/1_namelist_cfg

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ICE_AGRIF/EXPREF/namelist_cfg

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/ISOMIP/EXPREF/namelist_cfg

    r12206 r13279  
    128128!!                                                                    !! 
    129129!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    130 !!   namdrg_top    top    friction                                      (ln_OFF=F & ln_isfcav=T) 
    131 !!   namdrg_bot    bottom friction                                      (ln_OFF=F) 
     130!!   namdrg_top    top    friction                                      (ln_drg_OFF=F & ln_isfcav=T) 
     131!!   namdrg_bot    bottom friction                                      (ln_drg_OFF=F) 
    132132!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    133133!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    137137&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    138138!----------------------------------------------------------------------- 
    139    ln_OFF     = .false.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
     139   ln_drg_OFF = .false.   !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    140140   ln_lin     = .false.    !      linear  drag: Cd = Cd0 Uc0                   &   namdrg_top) 
    141141   ln_non_lin = .true.     !  non-linear  drag: Cd = Cd0 |U| 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_cen2_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_flux_ubs_cfg

    r12206 r13279  
    112112!!                                                                    !! 
    113113!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    114 !!   namdrg_top    top    friction                                      (ln_OFF=F & ln_isfcav=T) 
    115 !!   namdrg_bot    bottom friction                                      (ln_OFF=F) 
     114!!   namdrg_top    top    friction                                      (ln_drg_OFF=F & ln_isfcav=T) 
     115!!   namdrg_bot    bottom friction                                      (ln_drg_OFF=F) 
    116116!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    117117!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    121121&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    122122!----------------------------------------------------------------------- 
    123    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     123   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    124124/ 
    125125!!====================================================================== 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_eenH_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_een_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_ene_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT2_vect_ens_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_flux_cen2_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_flux_ubs_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_eenH_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_een_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_ene_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/LOCK_EXCHANGE/EXPREF/namelist_FCT4_vect_ens_cfg

    r10075 r13279  
    6767&namdrg            !   top/bottom drag coefficient                      (default: NO selection) 
    6868!----------------------------------------------------------------------- 
    69    ln_OFF     = .true.    !  free-slip       : Cd = 0                   
     69   ln_drg_OFF = .true.    !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    7070/ 
    7171!----------------------------------------------------------------------- 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_sco_FCT2_flux_cen-ahm1000_cfg

    r11848 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_sco_FCT2_flux_ubs_cfg

    r11848 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_sco_FCT4_flux_cen-ahm1000_cfg

    r10075 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_sco_FCT4_flux_ubs_cfg

    r11848 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_zps_FCT2_flux_ubs_cfg

    r11848 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_flux_ubs_cfg

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/OVERFLOW/EXPREF/namelist_zps_FCT4_vect_een_cfg

    r11848 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/VORTEX/EXPREF/1_namelist_cfg

    r12206 r13279  
    107107!!                                                                    !! 
    108108!!   namdrg        top/bottom drag coefficient                          (default: NO selection) 
    109 !!   namdrg_top    top    friction                                      (ln_OFF=F & ln_isfcav=T) 
    110 !!   namdrg_bot    bottom friction                                      (ln_OFF=F) 
     109!!   namdrg_top    top    friction                                      (ln_drg_OFF=F & ln_isfcav=T) 
     110!!   namdrg_bot    bottom friction                                      (ln_drg_OFF=F) 
    111111!!   nambbc        bottom temperature boundary condition                (default: OFF) 
    112112!!   nambbl        bottom boundary layer scheme                         (default: OFF) 
     
    116116&namdrg        !   top/bottom drag coefficient                          (default: NO selection) 
    117117!----------------------------------------------------------------------- 
    118    ln_OFF     = .true.    !  free-slip       : Cd = 0 
     118   ln_drg_OFF = .true.     !  free-slip       : Cd = 0                  (F => fill namdrg_bot 
    119119/ 
    120120!!====================================================================== 
  • NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/VORTEX/EXPREF/namelist_cfg

    r12206 r13279  
    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/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/tests/WAD/EXPREF/namelist_cfg

    r12206 r13279  
    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.