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 3108 – NEMO

Changeset 3108


Ignore:
Timestamp:
2011-11-15T12:55:23+01:00 (12 years ago)
Author:
acc
Message:

Branch dev_NOC_UKMO_MERGE #890. Changes to AMM reference configuration and suppression of unwanted pressure gradient options in dynhpg.F90

Location:
branches/2011/dev_NOC_UKMO_MERGE
Files:
11 edited
2 moved

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NOC_UKMO_MERGE/DOC/TexFiles/Chapters/Chap_DYN.tex

    r3101 r3108  
    608608documented or tested.  
    609609 
    610 $\bullet$ Traditional coding (see for example \citet{Madec_al_JPO96}: (\np{ln\_dynhpg\_sco}=true,  
    611 \np{ln\_dynhpg\_hel}=true) 
     610$\bullet$ Traditional coding (see for example \citet{Madec_al_JPO96}: (\np{ln\_dynhpg\_sco}=true) 
    612611\begin{equation} \label{Eq_dynhpg_sco} 
    613612\left\{ \begin{aligned} 
     
    622621\eqref{Eq_dynhpg_zco_surf} - \eqref{Eq_dynhpg_zco}, and $z_T$ is the depth of  
    623622the $T$-point evaluated from the sum of the vertical scale factors at the $w$-point  
    624 ($e_{3w}$). The version \np{ln\_dynhpg\_hel}=true has been added by Aike  
    625 Beckmann and involves a redefinition of the relative position of $T$-points relative  
    626 to $w$-points.  
    627  
    628 $\bullet$ Weighted density Jacobian (WDJ) \citep{Song1998} (\np{ln\_dynhpg\_wdj}=true) 
     623($e_{3w}$).  
    629624 
    630625$\bullet$ Density Jacobian with cubic polynomial scheme (DJC) \citep{Shchepetkin_McWilliams_OM05}  
    631626(\np{ln\_dynhpg\_djc}=true) 
    632  
    633 $\bullet$ Rotated axes scheme (rot) \citep{Thiem_Berntsen_OM06} (\np{ln\_dynhpg\_rot}=true) 
    634627 
    635628$\bullet$ Pressure Jacobian scheme (prj) \citep{Thiem_Berntsen_OM06} (\np{ln\_dynhpg\_prj}=true) 
  • branches/2011/dev_NOC_UKMO_MERGE/DOC/TexFiles/Namelist/namdyn_hpg

    r3101 r3108  
    55   ln_hpg_zps  = .true.    !  z-coordinate - partial steps (interpolation) 
    66   ln_hpg_sco  = .false.   !  s-coordinate (standard jacobian formulation) 
    7    ln_hpg_hel  = .false.   !  s-coordinate (helsinki modification) 
    8    ln_hpg_wdj  = .false.   !  s-coordinate (weighted density jacobian) 
    97   ln_hpg_djc  = .false.   !  s-coordinate (Density Jacobian with Cubic polynomial) 
    10    ln_hpg_rot  = .false.   !  s-coordinate (ROTated axes scheme) 
    118   ln_hpg_prj  = .false.   !  s-coordinate (Pressure Jacobian scheme) 
    12    rn_gamma    = 0.e0      !  weighting coefficient (wdj scheme) 
    139   ln_dynhpg_imp = .false. !  time stepping: semi-implicit time scheme  (T) 
    1410                                 !           centered      time scheme  (F) 
  • branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/CONFIG/AMM12/EXP00/namelist

    r3076 r3108  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    22!! NEMO/OPA  :  1 - run manager      (namrun) 
    3 !! namelists    2 - Domain           (namzgr, namzgr_sco, namdom) 
     3!! namelists    2 - Domain           (namzgr, namzgr_sco, namdom, namdta_tem, namdta_sal) 
    44!!              3 - Surface boundary (namsbc, namsbc_ana, namsbc_flx, namsbc_clio, namsbc_core 
    5 !!                                    namsbc_cpl, namqsr, namsbc_rnf, namsbc_ssr, namsbc_alb) 
     5!!                                    namsbc_cpl, namtra_qsr, namsbc_rnf,  
     6!!                                    namsbc_apr, namsbc_ssr, namsbc_alb) 
    67!!              4 - lateral boundary (namlbc, namcla, namobc, namagrif, nambdy, nambdy_tide) 
    78!!              5 - bottom  boundary (nambfr, nambbc, nambbl) 
     
    910!!              7 - dynamics         (namdyn_adv, namdyn_vor, namdyn_hpg, namdyn_spg, namdyn_ldf) 
    1011!!              8 - Verical physics  (namzdf, namzdf_ric, namzdf_tke, namzdf_kpp, namzdf_ddm, namzdf_tmx) 
    11 !!              9 - diagnostics      (namtrd, namgap, namspr, namflo, namptr) 
    12 !!              9 - miscellaneous    (namsol, nammpp, nammpp_dyndist, namctl) 
     12!!              9 - diagnostics      (namnc4, namtrd, namspr, namflo, namptr, namhsb) 
     13!!             10 - miscellaneous    (namsol, nammpp, nammpp_dyndist, namctl) 
     14!!             11 - Obs & Assim      (namobs, nam_asminc) 
    1315!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    14 !  CAUTION: some scripts does not support CAPITALs for logical use .true./.false., not .TRUE./.FALSE. 
    1516 
    1617!!====================================================================== 
    1718!!                   ***  Run management namelists  *** 
    1819!!====================================================================== 
    19 !!   namrun            parameters of the run 
    20 !!====================================================================== 
    21  
     20!!   namrun        parameters of the run 
     21!!====================================================================== 
     22! 
    2223!----------------------------------------------------------------------- 
    2324&namrun        !   parameters of the run 
    2425!----------------------------------------------------------------------- 
    25    nn_no       =       0      !  job number 
    26    cn_exp      =  "amm12"     !  experience name 
    27    cn_ocerst_in  = "restart"  !  suffix of ocean restart name (input) 
    28    cn_ocerst_out = "restart"  !  suffix of ocean restart name (output) 
    29    ln_rstart   =  .true.      !  start from rest (F) or from a restart file (T) 
    30    nn_rstctl   =       0      !  restart control = 0 nit000 is not compared to the restart file value 
    31                               !                  = 1 use ndate0 in namelist (not the value in the restart file) 
    32                               !                  = 2 calendar parameters read in the restart file 
    33    nn_it000    =       1      !  first time step 
    34    nn_itend    =     5184     !  last  time step (std 5475) 
    35    nn_date0    =  20070101    !  initial calendar date yymmdd (used if nrstdt=1) 
    36    nn_leapy    =       1      !  Leap year calendar (1) or not (0) 
    37    nn_istate   =       0      !  output the initial state (1) or not (0) 
    38    nn_stock    =    5184      !  frequency of creation of a restart file (modulo referenced to 1) 
    39    nn_write    =      12      !  frequency of write in the output file   (modulo referenced to nit000) 
    40    ln_dimgnnn  =  .false.     !  DIMG file format: 1 file for all processors (F) or by processor (T) 
    41    ln_mskland  =  .false.     !  mask land points in NetCDF outputs (costly: + ~15%) 
    42    ln_clobber  =  .false.     !  clobber (overwrite) an existing file 
    43    nn_chunksz  =       0      !  chunksize (bytes) for NetCDF file (working only with iom_nf90 routines) 
    44 / 
     26   nn_no       =       0   !  job number 
     27   cn_exp      =  "AMM12"  !  experience name  
     28   nn_it000    =       1   !  first time step 
     29   nn_itend    =     576   !  last  time step (std 1 day = 576) 
     30   nn_date0    =  20070101 !  initial calendar date yymmdd (used if nn_rstctl=1) 
     31   nn_leapy    =       1   !  Leap year calendar (1) or not (0) 
     32   ln_rstart   =  .true.   !  start from rest (F) or from a restart file (T) 
     33   nn_rstctl   =       0       !  restart control = 0 nn_it000 is not compared to the restart file value 
     34                               !                  = 1 use nn_date0 in namelist (not the value in the restart file) 
     35                               !                  = 2 calendar parameters read in the restart file 
     36   cn_ocerst_in  = "restart"   !  suffix of ocean restart name (input) 
     37   cn_ocerst_out = "restart"   !  suffix of ocean restart name (output) 
     38   nn_istate   =       0   !  output the initial state (1) or not (0) 
     39   nn_stock    =     576   !  frequency of creation of a restart file (modulo referenced to 1) 
     40   nn_write    =      12   !  frequency of write in the output file   (modulo referenced to nit000) 
     41   ln_dimgnnn  = .false.   !  DIMG file format: 1 file for all processors (F) or by processor (T) 
     42   ln_mskland  = .false.   !  mask land points in NetCDF outputs (costly: + ~15%) 
     43   ln_clobber  = .false.   !  clobber (overwrite) an existing file 
     44   nn_chunksz  =       0   !  chunksize (bytes) for NetCDF file (works only with iom_nf90 routines) 
     45/ 
     46 
    4547!!====================================================================== 
    4648!!                      ***  Domain namelists  *** 
     
    4951!!   namzgr_sco   s-coordinate or hybrid z-s-coordinate 
    5052!!   namdom       space and time domain (bathymetry, mesh, timestep) 
    51 !!====================================================================== 
    52  
     53!!   namdta_tem   data: temperature                                     ("key_dtatem") 
     54!!   namdta_sal   data: salinity                                        ("key_dtasal") 
     55!!====================================================================== 
     56! 
    5357!----------------------------------------------------------------------- 
    5458&namzgr        !   vertical coordinate 
     
    7377&namdom        !   space and time domain (bathymetry, mesh, timestep) 
    7478!----------------------------------------------------------------------- 
    75    nn_bathy    =    1      !  compute (=0) or read(=1) the bathymetry file 
    76    nn_closea   =    0      !  closed seas and lakes are removed (=0) or kept (=1) from the ORCA domain 
    77    nn_msh      =    3      !  create (=1) a mesh file (coordinates, scale factors, masks) or not (=0) 
    78    rn_hmin     =    -2 
    79    rn_e3zps_min=    5.     !  the thickness of the partial step is set larger than the minimum 
    80    rn_e3zps_rat=    0.3    !  of e3zps_min and e3zps_rat * e3t   (N.B. 0<e3zps_rat<1) 
     79   nn_bathy    =    1      !  compute (=0) or read (=1) the bathymetry file 
     80   nn_closea    =   0      !  remove (=0) or keep (=1) closed seas and lakes (ORCA) 
     81   nn_msh      =    0      !  create (=1) a mesh file or not (=0) 
     82   rn_hmin     =   -3.     !  min depth of the ocean (>0) or min number of ocean level (<0) 
     83   rn_e3zps_min=   20.     !  partial step thickness is set larger than the minimum of 
     84   rn_e3zps_rat=    0.1    !  rn_e3zps_min and rn_e3zps_rat*e3t, with 0<rn_e3zps_rat<1 
    8185                           ! 
    82    rn_rdt      =  150.     !  time step for the dynamics (and tracer if nacc=0)   ==> 5760 
    83    nn_baro     =  30       !  number of barotropic time step (for the split explicit algorithm) ("key_dynspg_ts") 
    84    rn_atfp     =   0.1     !  asselin time filter parameter 
     86   rn_rdt      =  150.     !  time step for the dynamics (and tracer if nn_acc=0) 
     87   nn_baro     =   30      !  number of barotropic time step            ("key_dynspg_ts") 
     88   rn_atfp     =    0.1    !  asselin time filter parameter 
    8589   nn_acc      =    0      !  acceleration of convergence : =1      used, rdt < rdttra(k) 
    8690                                 !                          =0, not used, rdt = rdttra 
    87    rn_rdtmin   =   300.          !  minimum time step on tracers (used if nacc=1) 
    88    rn_rdtmax   =   300.          !  maximum time step on tracers (used if nacc=1) 
    89    rn_rdth     =   300.          !  depth variation of tracer time step  (used if nacc=1) 
    90 / 
     91   rn_rdtmin   =   300.          !  minimum time step on tracers (used if nn_acc=1) 
     92   rn_rdtmax   =   300.          !  maximum time step on tracers (used if nn_acc=1) 
     93   rn_rdth     =  300.           !  depth variation of tracer time step  (used if nn_acc=1) 
     94/ 
     95!----------------------------------------------------------------------- 
     96&namdta_tem    !   data : temperature                                   ("key_dtatem") 
     97!----------------------------------------------------------------------- 
     98!              ! file name ! frequency (hours)    ! variable ! time interp. ! clim  !'yearly' or ! weights  ! rotation ! 
     99!              !           !  (if <0  months)     !   name   !  (logical)   ! (T/F) ! 'monthly'  ! filename ! pairing  ! 
     100   sn_tem = 'data_1m_potential_temperature_nomask', -1,'votemper',  .true.  , .true., 'yearly'   , ' '      , ' ' 
     101   ! 
     102   cn_dir       = './'     !  root directory for the location of the runoff files 
     103/ 
     104!----------------------------------------------------------------------- 
     105&namdta_sal    !   data : salinity                                      ("key_dtasal") 
     106!----------------------------------------------------------------------- 
     107!              ! file name ! frequency (hours)    ! variable ! time interp. ! clim  !'yearly' or ! weights  ! rotation ! 
     108!              !           !  (if <0  months)     !   name   !   (logical)  ! (T/F) ! 'monthly'  ! filename ! pairing  ! 
     109   sn_sal      =  'data_1m_salinity_nomask',  -1  ,'vosaline',    .true.    , .true., 'yearly'   , ''       , ' ' 
     110   ! 
     111   cn_dir      = './'      !  root directory for the location of the runoff files 
     112/ 
     113 
    91114!!====================================================================== 
    92115!!            ***  Surface Boundary Condition namelists  *** 
    93116!!====================================================================== 
    94 !!   namsbc        surface boundary condition 
    95 !!   namsbc_ana    analytical         formulation 
    96 !!   namsbc_flx    flux               formulation 
    97 !!   namsbc_clio   CLIO bulk formulea formulation 
    98 !!   namsbc_core   CORE bulk formulea formulation 
    99 !!   namsbc_cpl    CouPLed            formulation                       ("key_coupled") 
    100 !!   namtra_qsr    penetrative solar radiation 
    101 !!   namsbc_rnf    river runoffs 
    102 !!   namsbc_ssr    sea surface restoring term (for T and/or S) 
    103 !!   namsbc_alb    albedo parameters 
    104 !!====================================================================== 
    105  
     117!!   namsbc          surface boundary condition 
     118!!   namsbc_ana      analytical         formulation 
     119!!   namsbc_flx      flux               formulation 
     120!!   namsbc_clio     CLIO bulk formulea formulation 
     121!!   namsbc_core     CORE bulk formulea formulation 
     122!!   namsbc_cpl      CouPLed            formulation                     ("key_coupled") 
     123!!   namtra_qsr      penetrative solar radiation 
     124!!   namsbc_rnf      river runoffs 
     125!!   namsbc_apr      Atmospheric Pressure 
     126!!   namsbc_ssr      sea surface restoring term (for T and/or S) 
     127!!   namsbc_alb      albedo parameters 
     128!!====================================================================== 
     129! 
    106130!----------------------------------------------------------------------- 
    107131&namsbc        !   Surface Boundary Condition (surface module) 
    108132!----------------------------------------------------------------------- 
    109133   nn_fsbc     = 1         !  frequency of surface boundary condition computation 
    110                            !               (= the frequency of sea-ice model call) 
     134                           !     (also = the frequency of sea-ice model call) 
    111135   ln_ana      = .false    !  analytical formulation (T => fill namsbc_ana ) 
    112136   ln_flx      = .true.    !  flux formulation       (T => fill namsbc_flx ) 
    113    ln_blk_clio = .false.   !  CLIO bulk formulation  (T => fill namsbc_clio) 
    114    ln_blk_core = .false.   !  CORE bulk formulation  (T => fill namsbc_core) 
    115    ln_cpl      = .false.   !  Coupled formulation    (T => fill namsbc_cpl ) 
     137   ln_blk_clio = .false.   !  CLIO bulk formulation                     (T => fill namsbc_clio)  
     138   ln_blk_core = .false.   !  CORE bulk formulation                     (T => fill namsbc_core)  
     139   ln_cpl      = .false.   !  Coupled formulation                       (T => fill namsbc_cpl ) 
     140   ln_apr_dyn  = .false.   !  Patm gradient added in ocean & ice Eqs.   (T => fill namsbc_apr ) 
    116141   nn_ice      = 0         !  =0 no ice boundary condition   , 
    117142                           !  =1 use observed ice-cover      , 
    118                            !  =2 ice-model used                             ("key_lim3" or "key_lim2) 
    119    ln_dm2dc    = .false.   !  daily mean to diurnal cycle short wave (qsr) 
    120    ln_rnf      = .true.    !  runoffs (T => fill namsbc_rnf) 
    121    ln_ssr      = .false.   !  Sea Surface Restoring on T and/or S (T => fill namsbc_ssr) 
    122    nn_fwb      = 0         !  FreshWater Budget: =0 unchecked 
    123                            !                     =1 global mean of e-p-r set to zero at each time step 
    124                            !                     =2 annual global mean of e-p-r set to zero 
    125                            !                     =3 global emp set to zero and spread out over erp area 
     143                           !  =2 ice-model used                         ("key_lim3" or "key_lim2) 
     144   ln_dm2dc    = .false.   !  daily mean to diurnal cycle on short wave 
     145   ln_rnf      = .true.    !  runoffs                                   (T => fill namsbc_rnf) 
     146   ln_ssr      = .false.   !  Sea Surface Restoring on T and/or S       (T => fill namsbc_ssr) 
     147   nn_fwb      = 0         !  FreshWater Budget: =0 unchecked  
     148                           !     =1 global mean of e-p-r set to zero at each time step  
     149                           !     =2 annual global mean of e-p-r set to zero 
     150                           !     =3 global emp set to zero and spread out over erp area 
    126151/ 
    127152!----------------------------------------------------------------------- 
     
    129154!----------------------------------------------------------------------- 
    130155   nn_tau000   =   0       !  gently increase the stress over the first ntau_rst time-steps 
    131    rn_utau0    =   1.e0    !  uniform value for the i-stress 
    132    rn_vtau0    =   1.e0    !  uniform value for the j-stress 
     156   rn_utau0    =   0.5     !  uniform value for the i-stress 
     157   rn_vtau0    =   0.e0    !  uniform value for the j-stress 
    133158   rn_qns0     =   0.e0    !  uniform value for the total heat flux 
    134159   rn_qsr0     =   0.e0    !  uniform value for the solar radiation 
     
    138163&namsbc_flx    !   surface boundary condition : flux formulation 
    139164!----------------------------------------------------------------------- 
    140 !              !   file name      ! frequency (hours) !  variable  ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
    141 !              !                  !  (if <0  months)  !    name    !    (logical)   !  (T/F)  ! 'monthly' ! filename ! pairing  !  
    142    sn_utau     = '12km_utau' ,          1        ,  'utau' ,  .false.      , .false. , 'daily'   ,  ''      ,  '' 
    143    sn_vtau     = '12km_vtau' ,          1        ,  'vtau' ,  .false.      , .false. , 'daily'   ,  ''      ,  '' 
    144    sn_qtot     = '12km_trunkflx'       ,          3        ,  'sonsfldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
    145    sn_qsr      = '12km_trunkflx'       ,          3        ,  'soshfldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
    146    sn_emp      = '12km_trunkflx'       ,          3        ,  'sowafldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
    147 !   sn_press    = '12km_pressure'  ,          1        ,  'p_msl'     ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
     165!              !  file name  ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     166!              !             !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     167   sn_utau     = 'amm12_utau'     ,          1        ,  'utau'      , .false.      , .false. , 'daily'   ,  ''      ,  '' 
     168   sn_vtau     = 'amm12_vtau'     ,          1        ,  'vtau'      , .false.      , .false. , 'daily'   ,  ''      ,  '' 
     169   sn_qtot     = 'amm12_flx'      ,          3        ,  'sonsfldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
     170   sn_qsr      = 'amm12_flx'      ,          3        ,  'soshfldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
     171   sn_emp      = 'amm12_flx'      ,          3        ,  'sowafldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
    148172   cn_dir      = './fluxes/'        !  root directory for the location of the flux files 
    149 !   ln_foam_flx = .FALSE.  
    150 !   ln_shelf_flx = .TRUE. 
    151 / 
     173/       
    152174!----------------------------------------------------------------------- 
    153175&namsbc_clio   !   namsbc_clio  CLIO bulk formulea 
    154176!----------------------------------------------------------------------- 
    155 !              !   file name  ! frequency (hours) !  variable  ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
    156 !              !              !  (if <0  months)  !    name    !    (logical)   !  (T/F) ! 'monthly' ! filename ! pairing  ! 
    157    sn_utau     = 'taux_1m'    ,       -1          , 'sozotaux' ,    .true.      , .true. , 'yearly'  , ''       , '' 
    158    sn_vtau     = 'tauy_1m'    ,       -1          , 'sometauy' ,    .true.      , .true. , 'yearly'  , ''       , '' 
    159    sn_wndm     = 'flx'        ,       -1          , 'socliowi' ,    .true.      , .true. , 'yearly'  , ''       , '' 
    160    sn_tair     = 'flx'        ,       -1          , 'socliot2' ,    .true.      , .true. , 'yearly'  , ''       , '' 
    161    sn_humi     = 'flx'        ,       -1          , 'socliohu' ,    .true.      , .true. , 'yearly'  , ''       , '' 
    162    sn_ccov     = 'flx'        ,       -1          , 'socliocl' ,    .false.     , .true. , 'yearly'  , ''       , '' 
    163    sn_prec     = 'flx'        ,       -1          , 'socliopl' ,    .false.     , .true. , 'yearly'  , ''       , '' 
    164 ! 
     177!              !  file name  ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     178!              !             !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     179   sn_utau     = 'taux_1m'   ,       -1          , 'sozotaux',   .true.     , .true. , 'yearly'  , ''       , '' 
     180   sn_vtau     = 'tauy_1m'   ,       -1          , 'sometauy',   .true.     , .true. , 'yearly'  , ''       , '' 
     181   sn_wndm     = 'flx'       ,       -1          , 'socliowi',   .true.     , .true. , 'yearly'  , ''       , '' 
     182   sn_tair     = 'flx'       ,       -1          , 'socliot2',   .true.     , .true. , 'yearly'  , ''       , '' 
     183   sn_humi     = 'flx'       ,       -1          , 'socliohu',   .true.     , .true. , 'yearly'  , ''       , '' 
     184   sn_ccov     = 'flx'       ,       -1          , 'socliocl',   .false.    , .true. , 'yearly'  , ''       , '' 
     185   sn_prec     = 'flx'       ,       -1          , 'socliopl',   .false.    , .true. , 'yearly'  , ''       , '' 
     186 
    165187   cn_dir      = './'      !  root directory for the location of the bulk files are 
    166188/ 
     
    168190&namsbc_core   !   namsbc_core  CORE bulk formulea 
    169191!----------------------------------------------------------------------- 
    170 !              !   file name  ! frequency (hours) ! variable   ! time interpol. !  clim   ! 'yearly'/ ! weights              ! rotation ! 
    171 !              !              !  (if <0  months)  !   name     !    (logical)   !  (T/F)  ! 'monthly' ! filename             ! pairing  ! 
    172    sn_wndi     = 'u10_core'   ,       -1          , 'u10'      ,    .true.      , .true.  , 'yearly'  ,'bicubic_weights_orca2.nc' , 'U1' 
    173    sn_wndj     = 'v10_core'   ,       -1          , 'v10'      ,    .true.      , .true.  , 'yearly'  ,'bicubic_weights_orca2.nc' , 'V1' 
    174    sn_qsr      = 'qsw_core'   ,       -1          , 'swdn'     ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    175    sn_qlw      = 'qlw_core'   ,       -1          , 'lwdn'     ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    176    sn_tair     = 't2_core'    ,       -1          , 't2'       ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    177    sn_humi     = 'q2_core'    ,       -1          , 'q2'       ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    178    sn_prec     = 'precip_core',       -1          , 'precip'   ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    179    sn_snow     = 'snow_core'  ,       -1          , 'snow'     ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    180 ! 
     192!              !  file name                    ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     193!              !                               !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     194   sn_wndi     = 'u_10.15JUNE2009_orca2'       ,         6         , 'U_10_MOD',   .false.    , .true. , 'yearly'  , ''       , 'Uwnd' 
     195   sn_wndj     = 'v_10.15JUNE2009_orca2'       ,         6         , 'V_10_MOD',   .false.    , .true. , 'yearly'  , ''       , 'Vwnd' 
     196   sn_qsr      = 'ncar_rad.15JUNE2009_orca2'   ,        24         , 'SWDN_MOD',   .false.    , .true. , 'yearly'  , ''       , '' 
     197   sn_qlw      = 'ncar_rad.15JUNE2009_orca2'   ,        24         , 'LWDN_MOD',   .false.    , .true. , 'yearly'  , ''       , '' 
     198   sn_tair     = 't_10.15JUNE2009_orca2'       ,         6         , 'T_10_MOD',   .false.    , .true. , 'yearly'  , ''       , '' 
     199   sn_humi     = 'q_10.15JUNE2009_orca2'       ,         6         , 'Q_10_MOD',   .false.    , .true. , 'yearly'  , ''       , '' 
     200   sn_prec     = 'ncar_precip.15JUNE2009_orca2',        -1         , 'PRC_MOD1',   .false.    , .true. , 'yearly'  , ''       , '' 
     201   sn_snow     = 'ncar_precip.15JUNE2009_orca2',        -1         , 'SNOW'    ,   .false.    , .true. , 'yearly'  , ''       , '' 
     202   sn_tdif     = 'taudif_core'                 ,        24         , 'taudif'  ,   .false.    , .true. , 'yearly'  , ''       , '' 
     203 
    181204   cn_dir      = './'      !  root directory for the location of the bulk files 
    182    ln_2m       = .true.    !  air temperature and humidity referenced at 2m (T) instead 10m (F) 
     205   ln_2m       = .false.   !  air temperature and humidity referenced at 2m (T) instead 10m (F) 
     206   ln_taudif   = .false.   !  HF tau contribution: use "mean of stress module - module of the mean stress" data 
    183207   rn_pfac     = 1.        !  multiplicative factor for precipitation (total & snow) 
    184208/ 
    185209!----------------------------------------------------------------------- 
    186 &namsbc_cpl    !   coupled ocean/atmosphere model                        ("key_coupled") 
    187 !----------------------------------------------------------------------- 
    188                                        ! send 
    189 cn_snd_temperature= 'weighted oce and ice'  ! 'oce only' 'weighted oce and ice' 'mixed oce-ice' 
    190 cn_snd_albedo     = 'weighted ice'          ! 'none' 'weighted ice' 'mixed oce-ice' 
    191 cn_snd_thickness  = 'none'                  ! 'none' 'weighted ice and snow' 
    192 cn_snd_crt_nature = 'none'                  ! 'none' 'oce only' 'weighted oce and ice' 'mixed oce-ice' 
    193 cn_snd_crt_refere = 'spherical'             ! 'spherical' 'cartesian' 
    194 cn_snd_crt_orient = 'eastward-northward'    ! 'eastward-northward' or 'local grid' 
    195 cn_snd_crt_grid   = 'T'                     ! 'T' 
    196                                        ! receive 
    197 cn_rcv_w10m       = 'coupled'               ! 'none' 'coupled' 
    198 cn_rcv_tau_nature = 'oce only'              ! 'oce only' 'oce and ice' 'mixed oce-ice' 
    199 cn_rcv_tau_refere = 'cartesian'             ! 'spherical' 'cartesian' 
    200 cn_rcv_tau_orient = 'eastward-northward'    ! 'eastward-northward' or 'local grid' 
    201 cn_rcv_tau_grid   = 'U,V'                   ! 'T' 'U,V' 'U,V,F' 'U,V,I' 'T,F' 'T,I' 'T,U,V' 
    202 cn_rcv_dqnsdt     = 'coupled'               ! 'none' 'coupled' 
    203 cn_rcv_qsr        = 'oce and ice'           ! 'conservative' 'oce and ice' 'mixed oce-ice' 
    204 cn_rcv_qns        = 'oce and ice'           ! 'conservative' 'oce and ice' 'mixed oce-ice' 
    205 cn_rcv_emp        = 'conservative'          ! 'conservative' 'oce and ice' 'mixed oce-ice' 
    206 cn_rcv_rnf        = 'coupled'               ! 'coupled' 'climato' 'mixed' 
    207 cn_rcv_cal        = 'coupled'               ! 'none' 'coupled' 
    208 / 
    209 !----------------------------------------------------------------------- 
    210 &namsbc_cpl_co2   !   coupled ocean/biogeo/atmosphere model            ("key_cpl_carbon_cycle") 
    211 !----------------------------------------------------------------------- 
    212 cn_snd_co2        = 'coupled'         ! send    :  'none' 'coupled' 
    213 cn_rcv_co2        = 'coupled'         ! receive : 'none' 'coupled' 
     210&namsbc_cpl    !   coupled ocean/atmosphere model                       ("key_coupled") 
     211!----------------------------------------------------------------------- 
     212!                    !     description       !  multiple  !    vector   !      vector          ! vector ! 
     213!                    !                       ! categories !  reference  !    orientation       ! grids  ! 
     214! send 
     215sn_snd_temp   =       'weighted oce and ice' ,    'no'    ,     ''      ,         ''           ,   ''     
     216sn_snd_alb    =       'weighted ice'         ,    'no'    ,     ''      ,         ''           ,   ''     
     217sn_snd_thick  =       'none'                 ,    'no'   ,     ''      ,         ''           ,   ''     
     218sn_snd_crt    =       'none'                 ,    'no'    , 'spherical' , 'eastward-northward' ,  'T'        
     219sn_snd_co2    =       'coupled'              ,    'no'    ,     ''      ,         ''           ,   ''         
     220! receive 
     221sn_rcv_w10m   =       'none'                 ,    'no'    ,     ''      ,         ''          ,   ''     
     222sn_rcv_taumod =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   ''     
     223sn_rcv_tau    =       'oce only'             ,    'no'    , 'cartesian' , 'eastward-northward',  'U,V'    
     224sn_rcv_dqnsdt =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   ''     
     225sn_rcv_qsr    =       'oce and ice'          ,    'no'    ,     ''      ,         ''          ,   ''     
     226sn_rcv_qns    =       'oce and ice'          ,    'no'    ,     ''      ,         ''          ,   ''     
     227sn_rcv_emp    =       'conservative'         ,    'no'    ,     ''      ,         ''          ,   ''     
     228sn_rcv_rnf    =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   ''     
     229sn_rcv_cal    =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   ''     
     230sn_rcv_co2    =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   ''     
    214231/ 
    215232!----------------------------------------------------------------------- 
    216233&namtra_qsr    !   penetrative solar radiation 
    217234!----------------------------------------------------------------------- 
    218 !              !   file name  ! frequency (hours) ! variable   ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
    219 !              !              !  (if <0  months)  !   name     !    (logical)   !  (T/F)  ! 'monthly' ! filename ! pairing  ! 
    220    sn_chl      = 'chlorophyll',        -1         , 'CHLA'     ,    .true.      , .true.  , 'yearly'  , ''       , '' 
    221   
     235!              !  file name  ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     236!              !             !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     237   sn_chl      ='chlorophyll',        -1         , 'CHLA'    ,   .true.     , .true. , 'yearly'  , ''       , '' 
     238 
    222239   cn_dir      = './'      !  root directory for the location of the runoff files 
    223240   ln_traqsr   = .false.   !  Light penetration (T) or not (F) 
     
    229246   rn_si0      =   0.35    !  RGB & 2 bands: shortess depth of extinction 
    230247   rn_si1      =   23.0    !  2 bands: longest depth of extinction 
    231 !   rn_si2      =   62.0    !  3 bands: longest depth of extinction (for blue waveband & 0.01 mg/m2 Chl) 
    232 / 
    233 !---------------------------------------------------------------------------------- 
    234 &namtra_dwl    !  POLCOMS Style Downwell radiation  for Short wave radiation 
    235 !---------------------------------------------------------------------------------- 
    236    ln_tradwl        = .true.     !  Light penetration (T) or not (F) 
    237    ln_vary_lambda   = .true.    !  Vary Lambda or not (T) or not (F) 
    238248/ 
    239249!----------------------------------------------------------------------- 
    240250&namsbc_rnf    !   runoffs namelist surface boundary condition 
    241251!----------------------------------------------------------------------- 
    242    cn_dir       =   './'       !  root directory for the location of the runoff files 
    243    ln_rnf_emp   =   .false.    !  runoffs included into precipitation field (T) or into a file (F) 
    244    ln_rnf_depth =   .true.  
    245    ln_rnf_tem   =   .true. 
    246    ln_rnf_sal   =   .true. 
    247 !                 !  file name  ! frequency(hours) ! variable   ! time interpol. !  clim   ! 'yearly'/ !  check  ! weights  ! rotation ! 
    248 !                 !             !  (if <0 months)  !   name     !    (logical)   !  (T/F)  ! 'monthly' !  (T/F)  ! filename ! pairing  ! 
    249    sn_rnf       = 'AMM_rivers' ,        24        , 'rorunoff' ,    .false.     , .true.  , 'yearly' 
    250    sn_cnf       = 'runoff_1m_nomask' ,   0        , 'socoefr'  ,    .false.     , .true.  , 'yearly' 
    251    sn_s_rnf     = 'AMM_rivers' ,        24        , 'rosaline' ,    .false.     , .true.  , 'yearly' 
    252    sn_t_rnf     = 'AMM_rivers' ,        24        , 'rotemper' ,    .false.     , .true.  , 'yearly' 
    253    sn_dep_rnf   = 'AMM_rivers' ,        24        , 'rodepth'  ,    .false.     , .true.  , 'yearly' 
    254    ln_rnf_mouth =   .false.    !  specific treatment at rivers mouths 
    255    rn_hrnf      =   1000.e0    !  depth over which enhanced vertical mixing is used 
    256    rn_avt_rnf   =   10.e0      !  value of the additional vertical mixing coef. [m2/s] 
    257    rn_rfact     =   1.e0       !  multiplicative factor for runoff 
     252!              !  file name           ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     253!              !                      !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     254   sn_rnf      = 'amm12_rivers'       ,        24         , 'rorunoff',   .false.    , .true. , 'yearly'  , ''       , '' 
     255   sn_cnf      = 'runoff_1m_nomask'   ,         0         , 'socoefr0',   .false.    , .true. , 'yearly'  , ''       , '' 
     256   sn_s_rnf    = 'amm12_rivers'       ,        24         , 'rosaline',   .false.    , .true. , 'yearly'  , ''       , '' 
     257   sn_t_rnf    = 'amm12_rivers'       ,        24         , 'rotemper',   .false.    , .true. , 'yearly'  , ''       , '' 
     258   sn_dep_rnf  = 'amm12_rivers'       ,        24         , 'rodepth' ,   .false.    , .true. , 'yearly'  , ''       , '' 
     259 
     260   cn_dir       = './'      !  root directory for the location of the runoff files 
     261   ln_rnf_emp   = .false.   !  runoffs included into precipitation field (T) or into a file (F) 
     262   ln_rnf_mouth = .false.   !  specific treatment at rivers mouths 
     263   rn_hrnf      =  15.e0    !  depth over which enhanced vertical mixing is used 
     264   rn_avt_rnf   =   1.e-3   !  value of the additional vertical mixing coef. [m2/s] 
     265   rn_rfact     =   1.e0    !  multiplicative factor for runoff 
     266   ln_rnf_depth = .true.    !  read in depth information for runoff 
     267   ln_rnf_tem   = .true.    !  read in temperature information for runoff 
     268   ln_rnf_sal   = .true.    !  read in salinity information for runoff 
     269/ 
     270!----------------------------------------------------------------------- 
     271&namsbc_apr    !   Atmospheric pressure used as ocean forcing or in bulk 
     272!----------------------------------------------------------------------- 
     273!              ! file name ! frequency (hours) ! variable ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
     274!              !           !  (if <0  months)  !   name   !    (logical)   !  (T/F)  ! 'monthly' ! filename ! pairing  ! 
     275   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
     276 
     277   cn_dir      = './'      !  root directory for the location of the bulk files 
     278   ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
    258279/ 
    259280!----------------------------------------------------------------------- 
    260281&namsbc_ssr    !   surface boundary condition : sea surface restoring 
    261282!----------------------------------------------------------------------- 
    262 !              !   file name       ! frequency (hours) ! variable   ! time interpol. !  clim   ! 'yearly'/ !  check ! weights  ! rotation ! 
    263 !              !                   !  (if <0  months)  !   name     !    (logical)   !  (T/F)  ! 'monthly' !  (T/F) ! filename ! pairing  ! 
    264    sn_sst      = 'references_amm' ,        24         ,  'sst'     ,     .true.     , .false. , 'daily'   , .false. , ''       , '' 
     283!              !  file name  ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     284!              !             !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     285   sn_sst      = 'amm12_sstref'    ,        24         ,  'sst'     ,     .true.     , .false. , 'daily'   , .false. , ''       , '' 
    265286   sn_sss      = 'sss_data'        ,        -1         ,  'sss'     ,     .true.     , .true.  , 'yearly'  , .false. , ''       , '' 
    266      
     287 
    267288   cn_dir      = 'fluxes/' !  root directory for the location of the runoff files 
    268289   nn_sstr     =     1     !  add a retroaction term in the surface heat       flux (=1) or not (=0) 
     
    270291                           !  or to SSS only (=1) or no damping term (=0) 
    271292   rn_dqdt     =   -40.    !  magnitude of the retroaction on temperature   [W/m2/K] 
    272    rn_deds     =   -27.7   !  magnitude of the damping on salinity   [mm/day/psu] 
     293   rn_deds     =   -27.7   !  magnitude of the damping on salinity   [mm/day] 
    273294   ln_sssr_bnd =  .false.  !  flag to bound erp term (associated with nn_sssr=2) 
    274295   rn_sssr_bnd =   4.e0    !  ABS(Max/Min) value of the damping erp term [mm/day] 
    275    ln_UKMO_haney = .true.  !  correct non-solar heat flux using Haney Correction. 
    276296/       
    277297!----------------------------------------------------------------------- 
     
    295315!!   namtide       Tidal forcing at open boundaries                     ("key_bdy_tides") 
    296316!!====================================================================== 
    297  
     317! 
    298318!----------------------------------------------------------------------- 
    299319&namlbc        !   lateral momentum boundary condition 
     
    310330&namobc        !   open boundaries parameters                           ("key_obc") 
    311331!----------------------------------------------------------------------- 
    312     ln_obc_clim= .true.    !  climatological obc data files (T) or not (F) 
    313     ln_vol_cst = .false.   !  impose the total volume conservation (T) or not (F) 
    314     ln_obc_fla = .false.   !  Flather open boundary condition  
    315     nn_obcdta  =    0      !  = 0 the obc data are equal to the initial state 
     332   ln_obc_clim = .false.   !  climatological obc data files (T) or not (F) 
     333   ln_vol_cst  = .true.    !  impose the total volume conservation (T) or not (F) 
     334   ln_obc_fla = .false.   !  Flather open boundary condition  
     335   nn_obcdta   =    1      !  = 0 the obc data are equal to the initial state 
    316336                           !  = 1 the obc data are read in 'obc.dta' files 
    317     cn_obcdta  = 'annual'  !  set to annual if obc datafile hold 1 year of data 
     337   cn_obcdta   = 'annual'  !  set to annual if obc datafile hold 1 year of data 
    318338                           !  set to monthly if obc datafile hold 1 month of data 
    319     rn_dpein   =    1.     !  damping time scale for inflow at east  open boundary 
    320     rn_dpwin   =    1.     !     -           -         -       west    -      - 
    321     rn_dpnin   =   30.     !     -           -         -       north   -      - 
    322     rn_dpsin   =    1.     !     -           -         -       south   -      - 
    323     rn_dpeob   = 1500.     !  time relaxation (days) for the east  open boundary 
    324     rn_dpwob   =   15.     !     -           -         -     west    -      - 
    325     rn_dpnob   =  150.     !     -           -         -     north   -      - 
    326     rn_dpsob   =   15.     !     -           -         -     south   -      - 
    327     rn_volemp  =    0.     !  = 0 the total volume change with the surface flux (E-P-R) 
     339   rn_dpein    =    1.     !  damping time scale for inflow at east  open boundary 
     340   rn_dpwin    =    1.     !     -           -         -       west    -      - 
     341   rn_dpnin    =    1.     !     -           -         -       north   -      - 
     342   rn_dpsin    =    1.     !     -           -         -       south   -      - 
     343   rn_dpeob    = 3000.     !  time relaxation (days) for the east  open boundary 
     344   rn_dpwob    =   15.     !     -           -         -     west    -      - 
     345   rn_dpnob    = 3000.     !     -           -         -     north   -      - 
     346   rn_dpsob    =   15.     !     -           -         -     south   -      - 
     347   rn_volemp   =    1.     !  = 0 the total volume change with the surface flux (E-P-R) 
    328348                           !  = 1 the total volume remains constant 
    329349/ 
     
    331351&namagrif      !  AGRIF zoom                                            ("key_agrif") 
    332352!----------------------------------------------------------------------- 
    333     nn_cln_update = 3      !  baroclinic update frequency 
    334     ln_spc_dyn    = .true. !  use 0 as special value for dynamics 
    335     rn_sponge_tra = 2880.  !  coefficient for tracer   sponge layer [s] 
    336     rn_sponge_dyn = 2880.  !  coefficient for dynamics sponge layer [s] 
    337 / 
    338 !----------------------------------------------------------------------- 
    339 &nambdy        !  open boundaries                          ("key_bdy") 
     353   nn_cln_update =    3    !  baroclinic update frequency 
     354   ln_spc_dyn    = .true. !  use 0 as special value for dynamics 
     355   rn_sponge_tra = 2880.   !  coefficient for tracer   sponge layer [m2/s] 
     356   rn_sponge_dyn = 2880.   !  coefficient for dynamics sponge layer [m2/s] 
     357/ 
     358!----------------------------------------------------------------------- 
     359&nambdy        !  unstructured open boundaries                          ("key_bdy") 
    340360!----------------------------------------------------------------------- 
    341361    nb_bdy = 1                            !  number of open boundary sets        
    342362    ln_coords_file = .true.               !  =T : read bdy coordinates from file 
    343     cn_coords_file = 'coordinates.obc.nc' !  bdy coordinates files 
     363    cn_coords_file = 'coordinates.bdy.nc' !  bdy coordinates files 
    344364    ln_mask_file = .false.                !  =T : read mask from file 
    345365    cn_mask_file = ''                     !  name of mask file (if ln_mask_file=.TRUE.) 
     
    351371    nn_dyn3d      =  0                    !  boundary conditions for baroclinic velocities 
    352372    nn_dyn3d_dta  =  0                    !  = 0, bdy data are equal to the initial state 
    353                                           !  = 1, bdy data are read in 'bdydata   .nc' files 
     373                           !  = 1, bdy data are read in 'bdydata   .nc' files 
    354374    nn_tra        =  1                    !  boundary conditions for T and S 
    355375    nn_tra_dta    =  1                    !  = 0, bdy data are equal to the initial state 
    356                                           !  = 1, bdy data are read in 'bdydata   .nc' files 
     376                           !  = 1, bdy data are read in 'bdydata   .nc' files 
    357377    nn_rimwidth  = 10                      !  width of the relaxation zone 
    358378    nn_dmp2d_in  = 0                      ! 
     
    368388!              !   file name    ! frequency (hours) !  variable  ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
    369389!              !                !  (if <0  months)  !    name    !    (logical)   !  (T/F)  ! 'monthly' ! filename ! pairing  ! 
    370    bn_ssh =     'obcT_u2d_1d_amm7' ,         24        , 'sossheig' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
    371    bn_u2d =     'obcU_u2d_1d_amm7' ,         24        , 'vobtcrtx' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
    372    bn_v2d =     'obcV_u2d_1d_amm7' ,         24        , 'vobtcrty' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
    373    bn_u3d  =    'obcU_u3d_1d_amm7' ,         24        , 'vozocrtx' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
    374    bn_v3d  =    'obcV_u3d_1d_amm7' ,         24        , 'vomecrty' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
    375    bn_tem  =    'obcT_tra_1d_amm7' ,         24        , 'votemper' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
    376    bn_sal  =    'obcT_tra_1d_amm7' ,         24        , 'vosaline' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
    377    cn_dir  =    'obcdta/' 
     390   bn_ssh =     'amm12_bdyT_u2d_1d' ,         24        , 'sossheig' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     391   bn_u2d =     'amm12_bdyU_u2d_1d' ,         24        , 'vobtcrtx' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     392   bn_v2d =     'amm12_bdyV_u2d_1d' ,         24        , 'vobtcrty' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     393   bn_u3d  =    'amm12_bdyU_u3d_1d' ,         24        , 'vozocrtx' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     394   bn_v3d  =    'amm12_bdyV_u3d_1d' ,         24        , 'vomecrty' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     395   bn_tem  =    'amm12_bdyT_tra_1d' ,         24        , 'votemper' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     396   bn_sal  =    'amm12_bdyT_tra_1d' ,         24        , 'vosaline' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     397   cn_dir  =    'bdydta/' 
    378398   ln_full_vel = .false. 
    379399/ 
     
    381401&nambdy_tide     ! tidal forcing at open boundaries               
    382402!----------------------------------------------------------------------- 
    383    filtide      = 'amm7_bdytide_'         !  file name root of tidal forcing files 
     403   filtide      = 'amm12_bdytide_'         !  file name root of tidal forcing files 
    384404    tide_cpt(1)   ='Q1'  !  names of tidal components used 
    385405    tide_cpt(2)   ='O1'  !  names of tidal components used 
     
    414434    ln_tide_date = .true.               !  adjust tidal harmonics for start date of run 
    415435/ 
     436 
    416437!!====================================================================== 
    417438!!                 ***  Bottom boundary condition  *** 
    418439!!====================================================================== 
    419440!!   nambfr        bottom friction 
    420 !!   nambbc        bottom temperature boundary condition                ("key_trabbc") 
    421 !!   nambbl        bottom boundary layer scheme                         ("key_trabbl_dif","key_trabbl_adv") 
    422 !!====================================================================== 
    423  
     441!!   nambbc        bottom temperature boundary condition                
     442!!   nambbl        bottom boundary layer scheme                         ("key_trabbl") 
     443!!====================================================================== 
     444! 
    424445!----------------------------------------------------------------------- 
    425446&nambfr        !   bottom friction 
    426447!----------------------------------------------------------------------- 
    427    nn_bfr      =    2      !  type of bottom friction :   = 0 : no   slip,  = 2 : nonlinear friction 
    428                            !                              = 3 : free slip,  = 1 :    linear friction 
     448   nn_bfr      =    2      !  type of bottom friction :   = 0 : free slip,  = 1 : linear friction 
     449                           !                              = 2 : nonlinear friction 
    429450   rn_bfri1    =    4.e-4  !  bottom drag coefficient (linear case) 
    430451   rn_bfri2    =    2.5e-3 !  bottom drag coefficient (non linear case) 
    431    rn_bfeb2    =    0.0    !  bottom turbulent kinetic energy background  (m^2/s^2) 
     452   rn_bfeb2    =    0.0e0  !  bottom turbulent kinetic energy background  (m2/s2) 
     453   ln_bfr2d    = .false.   !  horizontal variation of the bottom friction coef (read a 2D mask file ) 
     454   rn_bfrien   =    50.    !  local multiplying factor of bfr (ln_bfr2d=T) 
     455   ln_bfrimp   = .true.    !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
    432456/ 
    433457!----------------------------------------------------------------------- 
    434458&nambbc        !   bottom temperature boundary condition 
    435459!----------------------------------------------------------------------- 
    436    nn_geoflx   =    0      !  geothermal heat flux: = 0 no flux  
     460   ln_trabbc   = .true.    !  Apply a geothermal heating at the ocean bottom 
     461   nn_geoflx   =    2      !  geothermal heat flux: = 0 no flux  
    437462                           !     = 1 constant flux 
    438463                           !     = 2 variable flux (read in geothermal_heating.nc in mW/m2)  
     
    442467&nambbl        !   bottom boundary layer scheme 
    443468!----------------------------------------------------------------------- 
    444 !                          !  diffusive bbl                             ("key_trabbl") 
    445 !                          !  advective bbl                             ("key_trabbl_adv") 
    446    rn_ahtbbl   =  0.       !  lateral mixing coefficient in the bbl  [m2/s] 
    447 / 
     469   nn_bbl_ldf  =  0      !  diffusive bbl (=1)   or not (=0) 
     470   nn_bbl_adv  =  0      !  advective bbl (=1/2) or not (=0) 
     471   rn_ahtbbl   =  1000.  !  lateral mixing coefficient in the bbl  [m2/s] 
     472   rn_gambbl   =  10.    !  advective bbl coefficient                 [s] 
     473/ 
     474 
    448475!!====================================================================== 
    449476!!                        Tracer (T & S ) namelists 
     
    454481!!   namtra_dmp    T & S newtonian damping                              ("key_tradmp") 
    455482!!====================================================================== 
    456  
     483! 
    457484!----------------------------------------------------------------------- 
    458485&nameos        !   ocean physical parameters 
    459486!----------------------------------------------------------------------- 
    460    nn_eos      =    0      !  type of equation of state and Brunt-Vaisala frequency 
     487   nn_eos      =   0       !  type of equation of state and Brunt-Vaisala frequency 
    461488                           !     = 0, UNESCO (formulation of Jackett and McDougall (1994) and of McDougall (1987) ) 
    462489                           !     = 1, linear: rho(T)   = rau0 * ( 1.028 - ralpha * T ) 
    463490                           !     = 2, linear: rho(T,S) = rau0 * ( rbeta * S - ralpha * T ) 
    464    rn_alpha    =    2.e-4  !  thermal expension coefficient (neos= 1 or 2) 
    465    rn_beta     =    0.001  !  saline  expension coefficient (neos= 2) 
     491   rn_alpha    =   2.0e-4  !  thermal expension coefficient (nn_eos= 1 or 2) 
     492   rn_beta     =   7.7e-4  !  saline  expension coefficient (nn_eos= 2) 
    466493/ 
    467494!----------------------------------------------------------------------- 
     
    469496!----------------------------------------------------------------------- 
    470497   ln_traadv_cen2   =  .false.  !  2nd order centered scheme    
    471    ln_traadv_tvd    =  .true.  !  TVD scheme                 
     498   ln_traadv_tvd    =  .true.   !  TVD scheme                 
    472499   ln_traadv_muscl  =  .false.  !  MUSCL scheme              
    473500   ln_traadv_muscl2 =  .false.  !  MUSCL2 scheme + cen2 at boundaries   
    474    ln_traadv_ubs    =  .false.   !  UBS scheme                  
    475 !  ln_traadv_ppm    =  .false.   !  PPM scheme                  
     501   ln_traadv_ubs    =  .false.  !  UBS scheme                  
     502   ln_traadv_qck    =  .false.  !  QUICKEST scheme                  
    476503/ 
    477504!----------------------------------------------------------------------- 
    478505&namtra_ldf    !   lateral diffusion scheme for tracer  
    479506!----------------------------------------------------------------------- 
    480                            !  Type of the operator :  
    481    ln_traldf_lap    =  .true.   !     laplacian operator        
    482    ln_traldf_bilap  =  .false.  !     bilaplacian operator      
    483                            !  Direction of action  : 
    484    ln_traldf_level  =  .false.  !     iso-level                 
     507   !                       !  Type of the operator :  
     508   ln_traldf_lap    =  .true.   !  laplacian operator        
     509   ln_traldf_bilap  =  .false.  !  bilaplacian operator      
     510   !                       !  Direction of action  : 
     511   ln_traldf_level  =  .false.  !  iso-level                 
    485512   ln_traldf_hor    =  .true.   !     horizontal (geopotential)         (require "key_ldfslp" when ln_sco=T) 
    486513   ln_traldf_iso    =  .false.  !     iso-neutral                       (require "key_ldfslp") 
    487                            !  Coefficient 
     514   ln_traldf_grif   =  .false.  !  griffies skew flux formulation       (require "key_ldfslp") 
     515   ln_traldf_gdia   =  .false.  !  griffies operator strfn diagnostics  (require "key_ldfslp") 
     516   ln_triad_iso     =  .false.  !  griffies operator calculates triads twice => pure lateral mixing in ML (require "key_ldfslp") 
     517   ln_botmix_grif   =  .false.  !  griffies operator with lateral mixing on bottom (require "key_ldfslp") 
     518                         !  Coefficient 
    488519   rn_aht_0         =   50.     !     horizontal eddy diffusivity for tracers [m2/s] 
    489    rn_ahtb_0        =    0.     !     background eddy diffusivity for ldf_iso [m2/s] 
     520   rn_ahtb_0        =     0.    !  background eddy diffusivity for ldf_iso [m2/s] 
    490521   rn_aeiv_0        =    0.     !     eddy induced velocity coefficient [m2/s]    (require "key_traldf_eiv") 
    491522/ 
     
    496527                           !                   =XX, damping poleward of XX degrees (XX>0) 
    497528                           !                      + F(distance-to-coast) + Red and Med Seas 
    498    nn_zdmp     =    1      !  vertical   shape =0    damping throughout the water column 
     529   nn_zdmp     =    0      !  vertical   shape =0    damping throughout the water column 
    499530                           !                   =1 no damping in the mixing layer (kz  criteria) 
    500531                           !                   =2 no damping in the mixed  layer (rho crieria) 
     
    502533   rn_bot      =  360.     !  bottom  time scale of damping   [days] 
    503534   rn_dep      =  800.     !  depth of transition between rn_surf and rn_bot [meters] 
    504    nn_file     =    1      !  create a damping.coeff NetCDF file (=1) or not (=0) 
    505 / 
     535   nn_file     =    0      !  create a damping.coeff NetCDF file (=1) or not (=0) 
     536/ 
     537 
    506538!!====================================================================== 
    507539!!                      ***  Dynamics namelists  *** 
     
    513545!!   namdyn_ldf    lateral diffusion scheme 
    514546!!====================================================================== 
    515  
     547! 
    516548!----------------------------------------------------------------------- 
    517549&namdyn_adv    !   formulation of the momentum advection 
     
    527559   ln_dynvor_ens = .false. !  energy conserving scheme     
    528560   ln_dynvor_mix = .false. !  mixed scheme                
    529    ln_dynvor_een = .true.  ! energy & enstrophy scheme   
     561   ln_dynvor_een = .true.  !  energy & enstrophy scheme   
    530562/ 
    531563!----------------------------------------------------------------------- 
     
    534566   ln_hpg_zco  = .false.   !  z-coordinate - full steps                    
    535567   ln_hpg_zps  = .false.   !  z-coordinate - partial steps (interpolation) 
    536    ln_hpg_sco  = .true.   !  s-coordinate (standard jacobian formulation) 
    537    ln_hpg_hel  = .false.   !  s-coordinate (helsinki modification) 
    538    ln_hpg_wdj  = .false.   !  s-coordinate (weighted density jacobian) 
     568   ln_hpg_sco  = .false.   !  s-coordinate (standard jacobian formulation) 
    539569   ln_hpg_djc  = .false.   !  s-coordinate (Density Jacobian with Cubic polynomial) 
    540    ln_hpg_rot  = .false.   !  s-coordinate (ROTated axes scheme) 
    541    rn_gamma    = 0.125     !  weighting coefficient (wdj scheme) 
     570   ln_hpg_prj  = .true.    !  s-coordinate (Pressure Jacobian scheme) 
    542571   ln_dynhpg_imp = .false. !  time stepping: semi-implicit time scheme  (T) 
    543572                                 !           centered      time scheme  (F) 
    544 !   nn_dynhpg_rst =  0            ! =1 dynhpg restartable restart or not (=0) 
    545573/ 
    546574!----------------------------------------------------------------------- 
     
    554582&namdyn_ldf    !   lateral diffusion on momentum 
    555583!----------------------------------------------------------------------- 
    556                            !  Type of the operator : 
    557    ln_dynldf_lap         = .true.   !  laplacian operator 
    558    ln_dynldf_bilap       = .true.   !  bilaplacian operator 
    559    ln_dynldf_level       = .false. 
     584   !                       !  Type of the operator :  
     585   ln_dynldf_lap    =  .true.   !  laplacian operator          
     586   ln_dynldf_bilap  =  .true.   !  bilaplacian operator 
    560587                           !  Direction of action  : 
    561 !   ln_dynldf_lap_level   = .false.  !  iso-level 
    562 !   ln_dynldf_lap_hor     = .true.   !  horizontal (geopotential)            (require "key_ldfslp" in s-coord.) 
    563 !   ln_dynldf_lap_iso     = .false.  !  iso-neutral                          (require "key_ldfslp") 
    564 !   ln_dynldf_bilap_level = .true.   !  iso-level 
    565 !   ln_dynldf_bilap_hor   = .false.  !  horizontal (geopotential)            (require "key_ldfslp" in s-coord.) 
    566 !   ln_dynldf_bilap_iso   = .false.  !  iso-neutral                          (require "key_ldfslp") 
    567                            !  Coefficient : 
    568    rn_ahm_0_lap          = 60.0     !  horizontal eddy viscosity   [m2/s] 
    569    rn_ahmb_0             =  0.0     !  background eddy viscosity for ldf_iso [m2/s] 
    570    rn_ahm_0_blp          = -1.0e+10 !  background eddy viscosity for ldf_iso [m2/s] 
    571 / 
     588   ln_dynldf_level  =  .false.  !  iso-level                
     589   ln_dynldf_hor    =  .true.   !  horizontal (geopotential)            (require "key_ldfslp" in s-coord.) 
     590   ln_dynldf_iso    =  .false.  !  iso-neutral                          (require "key_ldfslp") 
     591                           !  Coefficient  
     592   rn_ahm_0_lap     = 60.0      !  horizontal laplacian eddy viscosity   [m2/s] 
     593   rn_ahmb_0        =  0.0      !  background eddy viscosity for ldf_iso [m2/s] 
     594   rn_ahm_0_blp     = -1.0e+10  !  horizontal bilaplacian eddy viscosity [m4/s] 
     595/ 
     596 
    572597!!====================================================================== 
    573598!!             Tracers & Dynamics vertical physics namelists 
    574599!!====================================================================== 
    575 !!       namzdf        vertical physics 
    576 !!       namzdf_ric    richardson number dependent vertical mixing      ("key_zdfric"      ) 
    577 !!       namzdf_tke    TKE dependent vertical mixing                    ("key_zdftke"      ) 
    578 !!       namzdf_kpp    KPP dependent vertical mixing                    ("key_zdfkpp"      ) 
    579 !!       namzdf_ddm    double diffusive mixing parameterization         ("key_zdfddm"      ) 
    580 !!       namzdf_tmx    tidal mixing parameterization                    ("key_zdftmx"      ) 
    581 !!====================================================================== 
    582  
     600!!    namzdf        vertical physics 
     601!!    namzdf_ric    richardson number dependent vertical mixing         ("key_zdfric") 
     602!!    namzdf_tke    TKE dependent vertical mixing                       ("key_zdftke") 
     603!!    namzdf_kpp    KPP dependent vertical mixing                       ("key_zdfkpp") 
     604!!    namzdf_ddm    double diffusive mixing parameterization            ("key_zdfddm") 
     605!!    namzdf_tmx    tidal mixing parameterization                       ("key_zdftmx") 
     606!!====================================================================== 
     607! 
    583608!----------------------------------------------------------------------- 
    584609&namzdf        !   vertical physics 
     
    590615   ln_zdfevd   = .false.   !  enhanced vertical diffusion (evd) (T) or not (F) 
    591616   nn_evdm     =    1      !  evd apply on tracer (=0) or on tracer and momentum (=1) 
    592    rn_avevd    =   100.    !  evd mixing coefficient [m2/s] 
    593    ln_zdfnpc   = .false.   !  Non-Penetrative algorithm (T) or not (F) 
     617   rn_avevd    =  100.     !  evd mixing coefficient [m2/s] 
     618   ln_zdfnpc   = .false.   !  Non-Penetrative Convective algorithm (T) or not (F) 
    594619   nn_npc      =    1            !  frequency of application of npc 
    595620   nn_npcp     =  365            !  npc control print frequency 
     
    605630/ 
    606631!----------------------------------------------------------------------- 
    607  
    608 &namzdf_gls                !   Generic length scale model vertical diffusion  ("key_zdfgls") 
    609  
    610 !----------------------------------------------------------------------- 
    611    rn_emin     =   1.e-6   !  minimum value of e   [m2/s2] 
    612    rn_epsmin   =   1.e-12  !  minimum value of eps [m2/s3] 
    613    ln_length_lim = .true.  !  limit on the dissipation rate under stable stratification (Galperin et al., 1988) 
    614 !   rn_clim_galp   =   0.267   !  galperin limit 
    615    ln_crban = .TRUE.       !  Use Craig & Banner (1994) surface wave mixing parametrisation 
    616    ln_sigpsi = .TRUE.      !  Activate or not Burchard 2001 mods on psi schmidt number in the wb case 
    617    rn_crban = 100.         !  Craig and Banner 1994 constant for wb tke flux 
    618    rn_charn =  100000.     !  Charnock constant for wb induced roughness length 
    619    nn_tkebc_surf  =   1    !  surface tke condition (0/1=Dir/Neum) 
    620    nn_tkebc_bot   =   1    !  bottom tke condition (0/1=Dir/Neum) 
    621    nn_psibc_surf  =   1    !  surface psi condition (0/1=Dir/Neum) 
    622    nn_psibc_bot   =   1    !  bottom psi condition (0/1=Dir/Neum) 
    623    nn_stab_func   =   2    !  stability function (0=Galp, 1= KC94, 2=CanutoA, 3=CanutoB) 
    624    nn_clos        =   1    !  predefined closure type (0=MY82, 1=k-eps, 2=k-w, 3=Gen) 
    625 / 
    626 !----------------------------------------------------------------------- 
    627632&namzdf_tke    !   turbulent eddy kinetic dependent vertical diffusion  ("key_zdftke") 
    628633!----------------------------------------------------------------------- 
    629    rn_ediff    =   0.2     !  coef. for vertical eddy coef. (avt=rn_ediff*mxl*sqrt(e) ) 
     634   rn_ediff    =   0.1     !  coef. for vertical eddy coef. (avt=rn_ediff*mxl*sqrt(e) ) 
    630635   rn_ediss    =   0.7     !  coef. of the Kolmogoroff dissipation 
    631    rn_ebb      =  60.      !  coef. of the surface input of tke 
     636   rn_ebb      =  67.83    !  coef. of the surface input of tke (=67.83 suggested when ln_mxl0=T) 
    632637   rn_emin     =   1.e-6   !  minimum value of tke [m2/s2] 
    633638   rn_emin0    =   1.e-4   !  surface minimum value of tke [m2/s2] 
    634    rn_bshear   =   1.e-20  !  background shear (>0) 
    635    nn_mxl      =   3       !  mixing length: = 0 bounded by the distance to surface and bottom 
     639   nn_mxl      =   2       !  mixing length: = 0 bounded by the distance to surface and bottom 
    636640                           !                 = 1 bounded by the local vertical scale factor 
    637641                           !                 = 2 first vertical derivative of mixing length bounded by 1 
    638                            !                 = 3 same criteria as case 2 but applied in a different way 
    639    ln_mxl0     = .true.    !  mixing length scale surface value as function of wind stress (T) or not (F) 
     642                           !                 = 3 as =2 with distinct disspipative an mixing length scale 
    640643   nn_pdl      =   1       !  Prandtl number function of richarson number (=1, avt=pdl(Ri)*avm) or not (=0, avt=avm) 
    641    ln_lc       = .false.   !  Langmuir cell parameterisation 
     644   ln_mxl0     = .true.    !  surface mixing length scale = F(wind stress) (T) or not (F) 
     645   rn_mxl0     =   0.04    !  surface  buoyancy lenght scale minimum value 
     646   ln_lc       = .true.    !  Langmuir cell parameterisation (Axell 2002) 
    642647   rn_lc       =   0.15    !  coef. associated to Langmuir cells 
    643    nn_etau     =   1       !  exponentially deceasing penetration of tke due to internal & intertial waves 
    644                            !        = 0 no penetration ( O(2 km) resolution) 
    645                            !        = 1 additional tke source 
    646                            !        = 2 additional tke source applied only at the base of the mixed layer 
    647    nn_htau     =   1       !  type of exponential decrease of tke penetration 
     648   nn_etau     =   1       !  penetration of tke below the mixed layer (ML) due to internal & intertial waves 
     649                           !        = 0 no penetration 
     650                           !        = 1 add a tke source below the ML 
     651                           !        = 2 add a tke source just at the base of the ML 
     652                           !        = 3 as = 1 applied on HF part of the stress    ("key_coupled") 
     653   rn_efr      =   0.05    !  fraction of surface tke value which penetrates below the ML (nn_etau=1 or 2) 
     654   nn_htau     =   1       !  type of exponential decrease of tke penetration below the ML 
    648655                           !        = 0  constant 10 m length scale 
    649                            !        = 1  0.5m at the equator to 30m at high latitudes 
    650    rn_efr      =   0.05    !  fraction of surface tke value which penetrates inside the ocean 
     656                           !        = 1  0.5m at the equator to 30m poleward of 40 degrees 
    651657/ 
    652658!------------------------------------------------------------------------ 
    653 &namzdf_kpp    !   K-Profile Parameterization dependent vertical mixing  ("key_zdfkpp", and optionnally: 
     659&namzdf_kpp    !   K-Profile Parameterization dependent vertical mixing  ("key_zdfkpp", and optionally: 
    654660!------------------------------------------------------------------------ "key_kppcustom" or "key_kpplktb") 
    655661   ln_kpprimix = .true.    !  shear instability mixing  
     
    664670/ 
    665671!----------------------------------------------------------------------- 
     672&namzdf_gls                !   GLS vertical diffusion                   ("key_zdfgls") 
     673!----------------------------------------------------------------------- 
     674   rn_emin       = 1.e-6   !  minimum value of e   [m2/s2] 
     675   rn_epsmin     = 1.e-12  !  minimum value of eps [m2/s3] 
     676   ln_length_lim = .true.  !  limit on the dissipation rate under stable stratification (Galperin et al., 1988) 
     677   rn_clim_galp  = 0.53    !  galperin limit 
     678   ln_crban      = .true.  !  Use Craig & Banner (1994) surface wave mixing parametrisation 
     679   ln_sigpsi     = .true.  !  Activate or not Burchard 2001 mods on psi schmidt number in the wb case 
     680   rn_crban      = 100.    !  Craig and Banner 1994 constant for wb tke flux 
     681   rn_charn =  100000.     !  Charnock constant for wb induced roughness length 
     682   nn_tkebc_surf =   1     !  surface tke condition (0/1/2=Dir/Neum/Dir Mellor-Blumberg) 
     683   nn_tkebc_bot  =   1     !  bottom tke condition (0/1=Dir/Neum) 
     684   nn_psibc_surf =   1     !  surface psi condition (0/1/2=Dir/Neum/Dir Mellor-Blumberg) 
     685   nn_psibc_bot  =   1     !  bottom psi condition (0/1=Dir/Neum) 
     686   nn_stab_func  =   2     !  stability function (0=Galp, 1= KC94, 2=CanutoA, 3=CanutoB) 
     687   nn_clos       =   1     !  predefined closure type (0=MY82, 1=k-eps, 2=k-w, 3=Gen) 
     688/ 
     689!----------------------------------------------------------------------- 
    666690&namzdf_ddm    !   double diffusive mixing parameterization             ("key_zdfddm") 
    667691!----------------------------------------------------------------------- 
     
    679703   rn_tfe_itf  = 1.        !  ITF tidal dissipation efficiency 
    680704/ 
    681 !!====================================================================== 
    682 !!                  ***  Miscelaneous namelists  *** 
     705 
     706!!====================================================================== 
     707!!                  ***  Miscellaneous namelists  *** 
    683708!!====================================================================== 
    684709!!   nammpp            Massively Parallel Processing                    ("key_mpp_mpi) 
    685 !!   nammpp_dyndist    Massively Parallel domain decomposition          ("key_agrif" && "key_mpp_dyndist") 
    686710!!   namctl            Control prints & Benchmark 
    687711!!   namsol            elliptic solver / island / free surface  
    688712!!====================================================================== 
    689  
     713! 
    690714!----------------------------------------------------------------------- 
    691715&namsol        !   elliptic solver / island / free surface  
     
    696720   rn_eps      =  1.e-6    !  absolute precision of the solver 
    697721   nn_nmin     =    300    !  minimum of iterations for the SOR solver 
    698    nn_nmax     =   2800    !  maximum of iterations for the SOR solver 
     722   nn_nmax     =    800    !  maximum of iterations for the SOR solver 
    699723   nn_nmod     =     10    !  frequency of test for the SOR solver 
    700724   rn_resmax   =  1.e-10   !  absolute precision for the SOR solver 
     
    704728&nammpp        !   Massively Parallel Processing                        ("key_mpp_mpi) 
    705729!----------------------------------------------------------------------- 
    706    cn_mpi_send =  'S'      !  mpi send/recieve type   ='S', 'B', or 'I' for standard send, 
     730   cn_mpi_send =  'I'      !  mpi send/recieve type   ='S', 'B', or 'I' for standard send, 
    707731                           !  buffer blocking send or immediate non-blocking sends, resp. 
    708732   nn_buffer   =   0       !  size in bytes of exported buffer ('B' case), 0 no exportation 
    709 / 
    710 !----------------------------------------------------------------------- 
    711 &nammpp_dyndist !   Massively Parallel Distribution for AGRIF zoom      ("key_agrif" && "key_mpp_dyndist") 
    712 !----------------------------------------------------------------------- 
    713    jpni        =    4      !  jpni   number of processors following i 
    714    jpnj        =    8      !  jpnj   number of processors following j 
    715    jpnij       =    32     !  jpnij  number of local domains 
     733   ln_nnogather=  .false.  !  activate code to avoid mpi_allgather use at the northfold 
     734   jpni        =   0       !  jpni   number of processors following i (set automatically if < 1) 
     735   jpnj        =   0       !  jpnj   number of processors following j (set automatically if < 1) 
     736   jpnij       =   0       !  jpnij  number of local domains (set automatically if < 1) 
    716737/ 
    717738!----------------------------------------------------------------------- 
    718739&namctl        !   Control prints & Benchmark 
    719740!----------------------------------------------------------------------- 
    720    ln_ctl      = .true.    !  trends control print (expensive!) 
     741   ln_ctl      = .false.   !  trends control print (expensive!) 
    721742   nn_print    =    0      !  level of print (0 no extra print) 
    722743   nn_ictls    =    0      !  start i indice of control sum (use to compare mono versus 
     
    731752 
    732753!!====================================================================== 
    733 !!                       ***  Diagnostics namelists  *** 
    734 !!====================================================================== 
     754!!                  ***  Diagnostics namelists  *** 
     755!!====================================================================== 
     756!!   namnc4       netcdf4 chunking and compression settings             ("key_netcdf4") 
    735757!!   namtrd       dynamics and/or tracer trends                         ("key_trddyn","key_trdtra","key_trdmld") 
    736 !!   namgap       level mean model-data gap                             ("key_diagap") 
    737758!!   namflo       float parameters                                      ("key_float") 
    738759!!   namptr       Poleward Transport Diagnostics 
    739 !!====================================================================== 
    740  
     760!!   namhsb       Heat and salt budgets  
     761!!====================================================================== 
     762! 
     763!----------------------------------------------------------------------- 
     764&namnc4        !   netcdf4 chunking and compression settings            ("key_netcdf4") 
     765!----------------------------------------------------------------------- 
     766   nn_nchunks_i=   4       !  number of chunks in i-dimension 
     767   nn_nchunks_j=   4       !  number of chunks in j-dimension 
     768   nn_nchunks_k=   31      !  number of chunks in k-dimension 
     769                           !  setting nn_nchunks_k = jpk will give a chunk size of 1 in the vertical which 
     770                           !  is optimal for postprocessing which works exclusively with horizontal slabs 
     771   ln_nc4zip   = .true.    !  (T) use netcdf4 chunking and compression 
     772                           !  (F) ignore chunking information and produce netcdf3-compatible files 
     773/ 
    741774!----------------------------------------------------------------------- 
    742775&namtrd        !   diagnostics on dynamics and/or tracer trends         ("key_trddyn" and/or "key_trdtra") 
    743 !              !       or mixed-layer trends or barotropic vorticity    ('key_trdmld' or  "key_trdvor") 
     776!              !       or mixed-layer trends or barotropic vorticity    ("key_trdmld" or     "key_trdvor") 
    744777!----------------------------------------------------------------------- 
    745778   nn_trd      = 365       !  time step frequency dynamics and tracers trends 
     
    760793&namflo       !   float parameters                                      ("key_float") 
    761794!----------------------------------------------------------------------- 
    762     ln_rstflo = .false.    !  float restart (T) or not (F) 
    763     nn_writefl=      75    !  frequency of writing in float output file  
    764     nn_stockfl=    5475    !  frequency of creation of the float restart file  
    765     ln_argo   = .false.    !  Argo type floats (stay at the surface each 10 days) 
    766     ln_flork4 = .false.    !  trajectories computed with a 4th order Runge-Kutta (T) 
     795   ln_rstflo = .false.    !  float restart (T) or not (F) 
     796   nn_writefl =      75    !  frequency of writing in float output file  
     797   nn_stockfl =    5475    !  frequency of creation of the float restart file  
     798   ln_argo    = .false.    !  Argo type floats (stay at the surface each 10 days) 
     799   ln_flork4 = .false.    !  trajectories computed with a 4th order Runge-Kutta (T) 
    767800                           !  or computed with Blanke' scheme (F) 
    768801/ 
     
    774807   ln_subbas  = .false.    !  Atlantic/Pacific/Indian basins computation (T) or not  
    775808                           !  (orca configuration only, need input basins mask file named "subbasins.nc" 
    776 !   nn_fptr     =  15        !  Frequency of ptr computation [time step] 
    777 !   nn_fwri =  15        !  Frequency of ptr outputs 
    778  / 
    779 !----------------------------------------------------------------------- 
    780 !       nam_asminc    assim increment parameters (#ifdef key_asminc) 
    781 !----------------------------------------------------------------------- 
    782 !  aincstr    Assimilation period start time (s) relative to run start 
    783 !  aincper    Assimilation period length (s)  
    784 !  mld_choice chooses the mixed layer definition to use in the assimilation 
    785 !             1) turbocline depth 2) 0.001 density criteria 3) Kara mixed layer 
    786 !  ln_trainc  Apply tracer incerements when assimilating 
    787 !  ln_dyninc  Apply velocity incerements when assimilating 
    788 !  ln_sshinc  Apply sea surface height incerements when assimilating 
    789 &nam_asminc 
    790     aincstr   =     0.0 
    791     aincper   = 86400.0 
    792     mld_choice = 1 
    793     ln_trainc =  .false. 
    794     ln_dyninc =  .false. 
    795     ln_sshinc =  .false. 
    796     ln_seaiceinc =  .false. 
    797     ln_seaicebal =  .true. 
    798 / 
    799 !----------------------------------------------------------------------- 
    800 !       namobs    observation operator switch (#ifdef key_diaobs) 
    801 !----------------------------------------------------------------------- 
    802 ! ln_ena     Logical switch for ENACT insitu data set 
    803 ! ln_cor     Logical switch for Coriolis insitu data set 
    804 ! ln_t3d     Logical switch for T profile observations 
    805 ! ln_s3d     Logical switch for S profile observations 
    806 ! ln_pto     Logical switch for gen profile T obs sfc 
    807 ! ln_pro     Logical switch for gen profile Rho obs sfc 
    808 ! ln_pts     Logical switch for gen profile T spec sfc 
    809 ! ln_prs     Logical switch for gen profile Rho spec sfc 
    810 ! ln_pzm     Logical switch for gen profile Z model lev 
    811 ! ln_sla     Logical switch for SLA observations 
    812 ! ln_ssh     Logical switch for SSH observations 
    813 ! ln_sst     Logical switch for SST observations 
    814 ! ln_sss     Logical switch for SSS observations 
    815 ! ln_reysst  Logical switch for Reynolds SST 
    816 ! ln_ghrsst  Logical switch for GHRSST format SST observations 
    817 ! enactfiles List of filenames containing profile data in ENACT format 
    818 ! slafiles   List of filenames containing SLA data in CLS format 
    819 ! sstfiles   List of filenames containing SST data in GHRSST format 
    820 ! dobsini    Initial date in window YYYYMMDD.HHMMSS 
    821 ! dobsend    Final date in window YYYYMMDD.HHMMSS 
    822 ! n1dint     Type of vertical interpolation method 
    823 !             0 = Linear intepolation. 
    824 !             1 = Cubic spline interpolation. 
    825 ! n2dint     Type of horizontal interpolation method 
    826 !             0 = Distance-weighted interpolation 
    827 !             1 = Distance-weighted interpolation (small angle) 
    828 !             2 = Bilinear interpolation (geographical grid) 
    829 !             3 = Bilinear remapping interpolation (general grid) 
    830 !             4 = Polynomial interpolation 
    831 ! ln_nea     Logical switch to reject observations near land 
    832 ! nmsshc     MSSH correction scheme 
    833 !             0 = no correction 
    834 !             1 = compute online 
    835 !             2 = set to mdtcorr 
    836 ! mdtcutoff  MDT cutoff for computed correction 
    837 ! mdtcorr    MDT correction factor (used if nmsshc = 2) 
    838 &namobs 
    839     ln_ena = .false. 
    840     ln_cor = .false. 
    841  
    842     ln_t3d = .false. 
    843     ln_s3d = .false. 
    844     ln_sla = .false. 
    845     ln_ssh = .false. 
    846     ln_sst = .false. 
    847     ln_sss = .false. 
    848  
    849     enactfiles = 'enact.1.nc' 
    850  
    851     slafilesact= 'sla.1.nc' 
    852  
    853     seaicefiles = 'seaice.1.nc'  'seaice.2.nc' 
    854  
    855     ln_pto = .false. 
    856     ln_pro = .false. 
    857     ln_pts = .false. 
    858     ln_prs = .false. 
    859     ln_pzm = .false. 
    860     ln_reysst = .false. 
    861     ln_ghrsst = .true. 
    862     ln_seaice = .false. 
    863     ln_logchl = .false. 
    864     sstfiles   = 'Surface.1.nc'   
    865     logchlfiles = 'logchl.1.nc' 
    866     ln_grid_search_lookup = .true. 
    867     ln_obs_bound_check = .true. 
    868     ln_altbias = .false. 
    869     bias_file = 'bias.nc' 
    870     n1dint = 1 
    871     n2dint = 3 
    872     ln_nea = .false. 
    873     nmsshc = 0 
    874     mdtcutoff = 65.0 
    875     mdtcorr = 1.61 
    876 / 
    877 !----------------------------------------------------------------------- 
    878 !       nambias    bias parameters (#ifdef key_bias) 
    879 !----------------------------------------------------------------------- 
    880 &nam_bias 
    881      bias_file = 'bias.nc' 
    882      bias_time_unit = 86400.0 
    883      ln_obias = .false. 
    884      ln_bias_ts_app = .false. 
    885      ln_bias_pc_app = .true. 
    886 / 
    887 !----------------------------------------------------------------------- 
    888 &nammoor 
    889   path_moor   = "./" 
    890   nmoor       =  1 
    891    nwmoor = 24 
    892   ln_moor_out = .false. 
    893   ln_moor_pos = .false. 
    894   ln_ijproc_moor_read = .false. 
    895   ln_ijproc_moor_write = .false. 
    896 / 
    897 !----------------------------------------------------------------------- 
    898 !       namdct       Namelist for creating transports through sections 
    899 !----------------------------------------------------------------------- 
    900 &namdct 
    901    ndct         = 1     ! frequency of summing 
    902    ndctwri      = 24    ! frequency of writing 
    903    nsecdebug    = 0     ! =0; no debugging output i.e. no fort.2?? files written 
    904                                 ! =1; transect positions outputted to fort.2?? files 
    905    ln_verif     =   .false.     ! =false; only first transect output in fort.2?? files 
    906                                 ! =true; all transects output in fort 2?? files 
    907 / 
    908 !----------------------------------------------------------------------- 
    909 !       nammht   namelist for meridional heat transport diagnostic 
    910 !----------------------------------------------------------------------- 
    911 &nammht 
    912 nmht=1 
    913 nmhtwri=80 
    914 / 
    915 !----------------------------------------------------------------------- 
    916 !       nammsb  
    917 !----------------------------------------------------------------------- 
    918 &namhsb 
    919 ln_diahsb=false 
    920 / 
     809   ln_ptrcomp = .false.    !  Add decomposition : overturning 
     810   nn_fptr    =  1         !  Frequency of ptr computation [time step] 
     811   nn_fwri    =  15        !  Frequency of ptr outputs [time step] 
     812/ 
     813!----------------------------------------------------------------------- 
     814&namhsb       !  Heat and salt budgets  
     815!----------------------------------------------------------------------- 
     816   ln_diahsb  = .false.    !  check the heat and salt budgets (T) or not (F) 
     817/ 
     818 
     819!!====================================================================== 
     820!!            ***  Observation & Assimilation namelists *** 
     821!!====================================================================== 
     822!!   namobs       observation and model comparison                      ('key_diaobs') 
     823!!   nam_asminc   assimilation increments                               ('key_asminc') 
     824!!====================================================================== 
     825! 
     826!----------------------------------------------------------------------- 
     827&namobs       !  observation usage switch                               ('key_diaobs') 
     828!----------------------------------------------------------------------- 
     829   ln_t3d     = .false.    ! Logical switch for T profile observations          
     830   ln_s3d     = .false.    ! Logical switch for S profile observations           
     831   ln_ena     = .false.    ! Logical switch for ENACT insitu data set            
     832   !                       !     ln_cor                  Logical switch for Coriolis insitu data set        
     833   ln_profb   = .false.    ! Logical switch for feedback insitu data set      
     834   ln_sla     = .false.    ! Logical switch for SLA observations                
     835 
     836   ln_sladt   = .false.    ! Logical switch for AVISO SLA data               
     837 
     838   ln_slafb   = .false.    ! Logical switch for feedback SLA data             
     839                           !     ln_ssh                  Logical switch for SSH observations               
     840 
     841   ln_sst     = .false.    ! Logical switch for SST observations               
     842                           !     ln_reysst               Logical switch for Reynolds observations        
     843                           !     ln_ghrsst               Logical switch for GHRSST observations           
     844 
     845   ln_sstfb   = .false.    ! Logical switch for feedback SST data           
     846                           !     ln_sss                  Logical switch for SSS observations               
     847                           !     ln_seaice               Logical switch for Sea Ice observations         
     848                           !     ln_vel3d                Logical switch for velocity observations          
     849                           !     ln_velavcur             Logical switch for velocity daily av. cur.     
     850                           !     ln_velhrcur             Logical switch for velocity high freq. cur.    
     851                           !     ln_velavadcp            Logical switch for velocity daily av. ADCP   
     852                           !     ln_velhradcp            Logical switch for velocity high freq. ADCP 
     853                           !     ln_velfb                Logical switch for feedback velocity data        
     854                           !     ln_grid_global          Global distribtion of observations          
     855                           !     ln_grid_search_lookup   Logical switch for obs grid search w/lookup table   
     856                           !     grid_search_file        Grid search lookup file header  
     857                           !     enactfiles              ENACT input observation file names  
     858                           !     coriofiles              Coriolis input observation file name   
     859   !                       ! profbfiles: Profile feedback input observation file name  
     860   profbfiles = 'profiles_01.nc' 
     861                           !     ln_profb_enatim         Enact feedback input time setting switch     
     862                           !     slafilesact             Active SLA input observation file name 
     863                           !     slafilespas             Passive SLA input observation file name  
     864   !                       ! slafbfiles: Feedback SLA input observation file name  
     865   slafbfiles = 'sla_01.nc' 
     866                           !     sstfiles                GHRSST input observation file name        
     867   !                       ! sstfbfiles: Feedback SST input observation file name  
     868   sstfbfiles = 'sst_01.nc' 'sst_02.nc' 'sst_03.nc' 'sst_04.nc' 'sst_05.nc' 
     869                           !     seaicefiles             Sea Ice input observation file name  
     870                           !     velavcurfiles           Vel. cur. daily av. input file name   
     871                           !     velhvcurfiles           Vel. cur. high freq. input file name   
     872                           !     velavadcpfiles          Vel. ADCP daily av. input file name     
     873                           !     velhvadcpfiles          Vel. ADCP high freq. input file name  
     874                           !     velfbfiles              Vel. feedback input observation file name  
     875                           !     dobsini                 Initial date in window YYYYMMDD.HHMMSS        
     876                           !     dobsend                 Final date in window YYYYMMDD.HHMMSS          
     877                           !     n1dint                  Type of vertical interpolation method         
     878                           !     n2dint                  Type of horizontal interpolation method        
     879                           !     ln_nea                  Rejection of observations near land switch     
     880   nmsshc     = 0          ! MSSH correction scheme                          
     881                           !     mdtcorr                 MDT  correction                                
     882                           !     mdtcutoff               MDT cutoff for computed correction           
     883   ln_altbias = .false.    ! Logical switch for alt bias                 
     884   ln_ignmis  = .true.     ! Logical switch for ignoring missing files    
     885                           !     endailyavtypes   ENACT daily average types                     
     886   ln_grid_global = .true. 
     887   ln_grid_search_lookup = .false. 
     888/  
     889!----------------------------------------------------------------------- 
     890&nam_asminc   !   assimilation increments                               ('key_asminc') 
     891!----------------------------------------------------------------------- 
     892    ln_bkgwri = .false.    !  Logical switch for writing out background state  
     893    ln_trjwri = .false.    !  Logical switch for writing out state trajectory 
     894    ln_trainc = .false.    !  Logical switch for applying tracer increments 
     895    ln_dyninc = .false.    !  Logical switch for applying velocity increments 
     896    ln_sshinc = .false.    !  Logical switch for applying SSH increments  
     897    ln_asmdin = .false.    !  Logical switch for Direct Initialization (DI) 
     898    ln_asmiau = .false.    !  Logical switch for Incremental Analysis Updating (IAU) 
     899    nitbkg    = 0          !  Timestep of background in [0,nitend-nit000-1] 
     900    nitdin    = 0          !  Timestep of background for DI in [0,nitend-nit000-1] 
     901    nitiaustr = 1          !  Timestep of start of IAU interval in [0,nitend-nit000-1] 
     902    nitiaufin = 15         !  Timestep of end of IAU interval in [0,nitend-nit000-1] 
     903    niaufn    = 0          !  Type of IAU weighting function 
     904    nittrjfrq = 0          !  Frequency of trajectory output for 4D-VAR 
     905    ln_salfix = .false.    !  Logical switch for ensuring that the sa > salfixmin 
     906    salfixmin = -9999      !  Minimum salinity after applying the increments 
     907/ 
     908!----------------------------------------------------------------------- 
     909&namdyn_nept  !   Neptune effect (simplified: lateral and vertical diffusions removed) 
     910!----------------------------------------------------------------------- 
     911   ! Suggested lengthscale values are those of Eby & Holloway (1994) for a coarse model 
     912   ln_neptsimp       = .false.  ! yes/no use simplified neptune 
     913 
     914   ln_smooth_neptvel = .false.  ! yes/no smooth zunep, zvnep 
     915   rn_tslse          =  1.2e4   ! value of lengthscale L at the equator 
     916   rn_tslsp          =  3.0e3   ! value of lengthscale L at the pole 
     917   ! Specify whether to ramp down the Neptune velocity in shallow 
     918   ! water, and if so the depth range controlling such ramping down 
     919   ln_neptramp       = .true.   ! ramp down Neptune velocity in shallow water 
     920   rn_htrmin         =  100.0   ! min. depth of transition range 
     921   rn_htrmax         =  200.0   ! max. depth of transition range 
     922/ 
  • branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/CONFIG/AMM12_PISCES/EXP00/namelist

    r3034 r3108  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    22!! NEMO/OPA  :  1 - run manager      (namrun) 
    3 !! namelists    2 - Domain           (namzgr, namzgr_sco, namdom) 
     3!! namelists    2 - Domain           (namzgr, namzgr_sco, namdom, namdta_tem, namdta_sal) 
    44!!              3 - Surface boundary (namsbc, namsbc_ana, namsbc_flx, namsbc_clio, namsbc_core 
    5 !!                                    namsbc_cpl, namqsr, namsbc_rnf, namsbc_ssr, namsbc_alb) 
     5!!                                    namsbc_cpl, namtra_qsr, namsbc_rnf,  
     6!!                                    namsbc_apr, namsbc_ssr, namsbc_alb) 
    67!!              4 - lateral boundary (namlbc, namcla, namobc, namagrif, nambdy, nambdy_tide) 
    78!!              5 - bottom  boundary (nambfr, nambbc, nambbl) 
     
    910!!              7 - dynamics         (namdyn_adv, namdyn_vor, namdyn_hpg, namdyn_spg, namdyn_ldf) 
    1011!!              8 - Verical physics  (namzdf, namzdf_ric, namzdf_tke, namzdf_kpp, namzdf_ddm, namzdf_tmx) 
    11 !!              9 - diagnostics      (namtrd, namgap, namspr, namflo, namptr) 
    12 !!              9 - miscellaneous    (namsol, nammpp, nammpp_dyndist, namctl) 
     12!!              9 - diagnostics      (namnc4, namtrd, namspr, namflo, namptr, namhsb) 
     13!!             10 - miscellaneous    (namsol, nammpp, nammpp_dyndist, namctl) 
     14!!             11 - Obs & Assim      (namobs, nam_asminc) 
    1315!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    14 !  CAUTION: some scripts does not support CAPITALs for logical use .true./.false., not .TRUE./.FALSE. 
    1516 
    1617!!====================================================================== 
    1718!!                   ***  Run management namelists  *** 
    1819!!====================================================================== 
    19 !!   namrun            parameters of the run 
    20 !!====================================================================== 
    21  
     20!!   namrun        parameters of the run 
     21!!====================================================================== 
     22! 
    2223!----------------------------------------------------------------------- 
    2324&namrun        !   parameters of the run 
    2425!----------------------------------------------------------------------- 
    25    nn_no       =       0      !  job number 
    26    cn_exp      =  "amm12"     !  experience name 
    27    cn_ocerst_in  = "restart"  !  suffix of ocean restart name (input) 
    28    cn_ocerst_out = "restart"  !  suffix of ocean restart name (output) 
    29    ln_rstart   =  .true.      !  start from rest (F) or from a restart file (T) 
    30    nn_rstctl   =       0      !  restart control = 0 nit000 is not compared to the restart file value 
    31                               !                  = 1 use ndate0 in namelist (not the value in the restart file) 
    32                               !                  = 2 calendar parameters read in the restart file 
    33    nn_it000    =       1      !  first time step 
    34    nn_itend    =     5184     !  last  time step (std 5475) 
    35    nn_date0    =  20070101    !  initial calendar date yymmdd (used if nrstdt=1) 
    36    nn_leapy    =       1      !  Leap year calendar (1) or not (0) 
    37    nn_istate   =       0      !  output the initial state (1) or not (0) 
    38    nn_stock    =    5184      !  frequency of creation of a restart file (modulo referenced to 1) 
    39    nn_write    =      12      !  frequency of write in the output file   (modulo referenced to nit000) 
    40    ln_dimgnnn  =  .false.     !  DIMG file format: 1 file for all processors (F) or by processor (T) 
    41    ln_mskland  =  .false.     !  mask land points in NetCDF outputs (costly: + ~15%) 
    42    ln_clobber  =  .false.     !  clobber (overwrite) an existing file 
    43    nn_chunksz  =       0      !  chunksize (bytes) for NetCDF file (working only with iom_nf90 routines) 
    44 / 
     26   nn_no       =       0   !  job number 
     27   cn_exp      =  "AMM12"  !  experience name  
     28   nn_it000    =       1   !  first time step 
     29   nn_itend    =     576   !  last  time step (std 1 day = 576) 
     30   nn_date0    =  20070101 !  initial calendar date yymmdd (used if nn_rstctl=1) 
     31   nn_leapy    =       1   !  Leap year calendar (1) or not (0) 
     32   ln_rstart   =  .true.   !  start from rest (F) or from a restart file (T) 
     33   nn_rstctl   =       0       !  restart control = 0 nn_it000 is not compared to the restart file value 
     34                               !                  = 1 use nn_date0 in namelist (not the value in the restart file) 
     35                               !                  = 2 calendar parameters read in the restart file 
     36   cn_ocerst_in  = "restart"   !  suffix of ocean restart name (input) 
     37   cn_ocerst_out = "restart"   !  suffix of ocean restart name (output) 
     38   nn_istate   =       0   !  output the initial state (1) or not (0) 
     39   nn_stock    =     576   !  frequency of creation of a restart file (modulo referenced to 1) 
     40   nn_write    =      12   !  frequency of write in the output file   (modulo referenced to nit000) 
     41   ln_dimgnnn  = .false.   !  DIMG file format: 1 file for all processors (F) or by processor (T) 
     42   ln_mskland  = .false.   !  mask land points in NetCDF outputs (costly: + ~15%) 
     43   ln_clobber  = .false.   !  clobber (overwrite) an existing file 
     44   nn_chunksz  =       0   !  chunksize (bytes) for NetCDF file (works only with iom_nf90 routines) 
     45/ 
     46 
    4547!!====================================================================== 
    4648!!                      ***  Domain namelists  *** 
     
    4951!!   namzgr_sco   s-coordinate or hybrid z-s-coordinate 
    5052!!   namdom       space and time domain (bathymetry, mesh, timestep) 
    51 !!====================================================================== 
    52  
     53!!   namdta_tem   data: temperature                                     ("key_dtatem") 
     54!!   namdta_sal   data: salinity                                        ("key_dtasal") 
     55!!====================================================================== 
     56! 
    5357!----------------------------------------------------------------------- 
    5458&namzgr        !   vertical coordinate 
     
    7377&namdom        !   space and time domain (bathymetry, mesh, timestep) 
    7478!----------------------------------------------------------------------- 
    75    nn_bathy    =    1      !  compute (=0) or read(=1) the bathymetry file 
    76    nn_closea   =    0      !  closed seas and lakes are removed (=0) or kept (=1) from the ORCA domain 
    77    nn_msh      =    3      !  create (=1) a mesh file (coordinates, scale factors, masks) or not (=0) 
    78    rn_hmin     =    -2 
    79    rn_e3zps_min=    5.     !  the thickness of the partial step is set larger than the minimum 
    80    rn_e3zps_rat=    0.3    !  of e3zps_min and e3zps_rat * e3t   (N.B. 0<e3zps_rat<1) 
     79   nn_bathy    =    1      !  compute (=0) or read (=1) the bathymetry file 
     80   nn_closea    =   0      !  remove (=0) or keep (=1) closed seas and lakes (ORCA) 
     81   nn_msh      =    0      !  create (=1) a mesh file or not (=0) 
     82   rn_hmin     =   -3.     !  min depth of the ocean (>0) or min number of ocean level (<0) 
     83   rn_e3zps_min=   20.     !  partial step thickness is set larger than the minimum of 
     84   rn_e3zps_rat=    0.1    !  rn_e3zps_min and rn_e3zps_rat*e3t, with 0<rn_e3zps_rat<1 
    8185                           ! 
    82    rn_rdt      =  150.     !  time step for the dynamics (and tracer if nacc=0)   ==> 5760 
    83    nn_baro     =  30       !  number of barotropic time step (for the split explicit algorithm) ("key_dynspg_ts") 
    84    rn_atfp     =   0.1     !  asselin time filter parameter 
     86   rn_rdt      =  150.     !  time step for the dynamics (and tracer if nn_acc=0) 
     87   nn_baro     =   30      !  number of barotropic time step            ("key_dynspg_ts") 
     88   rn_atfp     =    0.1    !  asselin time filter parameter 
    8589   nn_acc      =    0      !  acceleration of convergence : =1      used, rdt < rdttra(k) 
    8690                                 !                          =0, not used, rdt = rdttra 
    87    rn_rdtmin   =   300.          !  minimum time step on tracers (used if nacc=1) 
    88    rn_rdtmax   =   300.          !  maximum time step on tracers (used if nacc=1) 
    89    rn_rdth     =   300.          !  depth variation of tracer time step  (used if nacc=1) 
    90 / 
     91   rn_rdtmin   =   300.          !  minimum time step on tracers (used if nn_acc=1) 
     92   rn_rdtmax   =   300.          !  maximum time step on tracers (used if nn_acc=1) 
     93   rn_rdth     =  300.           !  depth variation of tracer time step  (used if nn_acc=1) 
     94/ 
     95!----------------------------------------------------------------------- 
     96&namdta_tem    !   data : temperature                                   ("key_dtatem") 
     97!----------------------------------------------------------------------- 
     98!              ! file name ! frequency (hours)    ! variable ! time interp. ! clim  !'yearly' or ! weights  ! rotation ! 
     99!              !           !  (if <0  months)     !   name   !  (logical)   ! (T/F) ! 'monthly'  ! filename ! pairing  ! 
     100   sn_tem = 'data_1m_potential_temperature_nomask', -1,'votemper',  .true.  , .true., 'yearly'   , ' '      , ' ' 
     101   ! 
     102   cn_dir       = './'     !  root directory for the location of the runoff files 
     103/ 
     104!----------------------------------------------------------------------- 
     105&namdta_sal    !   data : salinity                                      ("key_dtasal") 
     106!----------------------------------------------------------------------- 
     107!              ! file name ! frequency (hours)    ! variable ! time interp. ! clim  !'yearly' or ! weights  ! rotation ! 
     108!              !           !  (if <0  months)     !   name   !   (logical)  ! (T/F) ! 'monthly'  ! filename ! pairing  ! 
     109   sn_sal      =  'data_1m_salinity_nomask',  -1  ,'vosaline',    .true.    , .true., 'yearly'   , ''       , ' ' 
     110   ! 
     111   cn_dir      = './'      !  root directory for the location of the runoff files 
     112/ 
     113 
    91114!!====================================================================== 
    92115!!            ***  Surface Boundary Condition namelists  *** 
    93116!!====================================================================== 
    94 !!   namsbc        surface boundary condition 
    95 !!   namsbc_ana    analytical         formulation 
    96 !!   namsbc_flx    flux               formulation 
    97 !!   namsbc_clio   CLIO bulk formulea formulation 
    98 !!   namsbc_core   CORE bulk formulea formulation 
    99 !!   namsbc_cpl    CouPLed            formulation                       ("key_coupled") 
    100 !!   namtra_qsr    penetrative solar radiation 
    101 !!   namsbc_rnf    river runoffs 
    102 !!   namsbc_ssr    sea surface restoring term (for T and/or S) 
    103 !!   namsbc_alb    albedo parameters 
    104 !!====================================================================== 
    105  
     117!!   namsbc          surface boundary condition 
     118!!   namsbc_ana      analytical         formulation 
     119!!   namsbc_flx      flux               formulation 
     120!!   namsbc_clio     CLIO bulk formulea formulation 
     121!!   namsbc_core     CORE bulk formulea formulation 
     122!!   namsbc_cpl      CouPLed            formulation                     ("key_coupled") 
     123!!   namtra_qsr      penetrative solar radiation 
     124!!   namsbc_rnf      river runoffs 
     125!!   namsbc_apr      Atmospheric Pressure 
     126!!   namsbc_ssr      sea surface restoring term (for T and/or S) 
     127!!   namsbc_alb      albedo parameters 
     128!!====================================================================== 
     129! 
    106130!----------------------------------------------------------------------- 
    107131&namsbc        !   Surface Boundary Condition (surface module) 
    108132!----------------------------------------------------------------------- 
    109133   nn_fsbc     = 1         !  frequency of surface boundary condition computation 
    110                            !               (= the frequency of sea-ice model call) 
     134                           !     (also = the frequency of sea-ice model call) 
    111135   ln_ana      = .false    !  analytical formulation (T => fill namsbc_ana ) 
    112136   ln_flx      = .true.    !  flux formulation       (T => fill namsbc_flx ) 
    113    ln_blk_clio = .false.   !  CLIO bulk formulation  (T => fill namsbc_clio) 
    114    ln_blk_core = .false.   !  CORE bulk formulation  (T => fill namsbc_core) 
    115    ln_cpl      = .false.   !  Coupled formulation    (T => fill namsbc_cpl ) 
     137   ln_blk_clio = .false.   !  CLIO bulk formulation                     (T => fill namsbc_clio)  
     138   ln_blk_core = .false.   !  CORE bulk formulation                     (T => fill namsbc_core)  
     139   ln_cpl      = .false.   !  Coupled formulation                       (T => fill namsbc_cpl ) 
     140   ln_apr_dyn  = .false.   !  Patm gradient added in ocean & ice Eqs.   (T => fill namsbc_apr ) 
    116141   nn_ice      = 0         !  =0 no ice boundary condition   , 
    117142                           !  =1 use observed ice-cover      , 
    118                            !  =2 ice-model used                             ("key_lim3" or "key_lim2) 
    119    ln_dm2dc    = .false.   !  daily mean to diurnal cycle short wave (qsr) 
    120    ln_rnf      = .true.    !  runoffs (T => fill namsbc_rnf) 
    121    ln_ssr      = .false.   !  Sea Surface Restoring on T and/or S (T => fill namsbc_ssr) 
    122    nn_fwb      = 0         !  FreshWater Budget: =0 unchecked 
    123                            !                     =1 global mean of e-p-r set to zero at each time step 
    124                            !                     =2 annual global mean of e-p-r set to zero 
    125                            !                     =3 global emp set to zero and spread out over erp area 
     143                           !  =2 ice-model used                         ("key_lim3" or "key_lim2) 
     144   ln_dm2dc    = .false.   !  daily mean to diurnal cycle on short wave 
     145   ln_rnf      = .true.    !  runoffs                                   (T => fill namsbc_rnf) 
     146   ln_ssr      = .false.   !  Sea Surface Restoring on T and/or S       (T => fill namsbc_ssr) 
     147   nn_fwb      = 0         !  FreshWater Budget: =0 unchecked  
     148                           !     =1 global mean of e-p-r set to zero at each time step  
     149                           !     =2 annual global mean of e-p-r set to zero 
     150                           !     =3 global emp set to zero and spread out over erp area 
    126151/ 
    127152!----------------------------------------------------------------------- 
     
    129154!----------------------------------------------------------------------- 
    130155   nn_tau000   =   0       !  gently increase the stress over the first ntau_rst time-steps 
    131    rn_utau0    =   1.e0    !  uniform value for the i-stress 
    132    rn_vtau0    =   1.e0    !  uniform value for the j-stress 
     156   rn_utau0    =   0.5     !  uniform value for the i-stress 
     157   rn_vtau0    =   0.e0    !  uniform value for the j-stress 
    133158   rn_qns0     =   0.e0    !  uniform value for the total heat flux 
    134159   rn_qsr0     =   0.e0    !  uniform value for the solar radiation 
     
    138163&namsbc_flx    !   surface boundary condition : flux formulation 
    139164!----------------------------------------------------------------------- 
    140 !              !   file name      ! frequency (hours) !  variable  ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
    141 !              !                  !  (if <0  months)  !    name    !    (logical)   !  (T/F)  ! 'monthly' ! filename ! pairing  !  
    142    sn_utau     = '12km_utau' ,          1        ,  'utau' ,  .false.      , .false. , 'daily'   ,  ''      ,  '' 
    143    sn_vtau     = '12km_vtau' ,          1        ,  'vtau' ,  .false.      , .false. , 'daily'   ,  ''      ,  '' 
    144    sn_qtot     = '12km_trunkflx'       ,          3        ,  'sonsfldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
    145    sn_qsr      = '12km_trunkflx'       ,          3        ,  'soshfldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
    146    sn_emp      = '12km_trunkflx'       ,          3        ,  'sowafldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
    147 !   sn_press    = '12km_pressure'  ,          1        ,  'p_msl'     ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
     165!              !  file name  ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     166!              !             !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     167   sn_utau     = 'amm12_utau'     ,          1        ,  'utau'      , .false.      , .false. , 'daily'   ,  ''      ,  '' 
     168   sn_vtau     = 'amm12_vtau'     ,          1        ,  'vtau'      , .false.      , .false. , 'daily'   ,  ''      ,  '' 
     169   sn_qtot     = 'amm12_flx'      ,          3        ,  'sonsfldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
     170   sn_qsr      = 'amm12_flx'      ,          3        ,  'soshfldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
     171   sn_emp      = 'amm12_flx'      ,          3        ,  'sowafldo'  ,  .true.      , .false. , 'daily'   ,  ''      ,  '' 
    148172   cn_dir      = './fluxes/'        !  root directory for the location of the flux files 
    149 !   ln_foam_flx = .FALSE.  
    150 !   ln_shelf_flx = .TRUE. 
    151 / 
     173/       
    152174!----------------------------------------------------------------------- 
    153175&namsbc_clio   !   namsbc_clio  CLIO bulk formulea 
    154176!----------------------------------------------------------------------- 
    155 !              !   file name  ! frequency (hours) !  variable  ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
    156 !              !              !  (if <0  months)  !    name    !    (logical)   !  (T/F) ! 'monthly' ! filename ! pairing  ! 
    157    sn_utau     = 'taux_1m'    ,       -1          , 'sozotaux' ,    .true.      , .true. , 'yearly'  , ''       , '' 
    158    sn_vtau     = 'tauy_1m'    ,       -1          , 'sometauy' ,    .true.      , .true. , 'yearly'  , ''       , '' 
    159    sn_wndm     = 'flx'        ,       -1          , 'socliowi' ,    .true.      , .true. , 'yearly'  , ''       , '' 
    160    sn_tair     = 'flx'        ,       -1          , 'socliot2' ,    .true.      , .true. , 'yearly'  , ''       , '' 
    161    sn_humi     = 'flx'        ,       -1          , 'socliohu' ,    .true.      , .true. , 'yearly'  , ''       , '' 
    162    sn_ccov     = 'flx'        ,       -1          , 'socliocl' ,    .false.     , .true. , 'yearly'  , ''       , '' 
    163    sn_prec     = 'flx'        ,       -1          , 'socliopl' ,    .false.     , .true. , 'yearly'  , ''       , '' 
    164 ! 
     177!              !  file name  ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     178!              !             !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     179   sn_utau     = 'taux_1m'   ,       -1          , 'sozotaux',   .true.     , .true. , 'yearly'  , ''       , '' 
     180   sn_vtau     = 'tauy_1m'   ,       -1          , 'sometauy',   .true.     , .true. , 'yearly'  , ''       , '' 
     181   sn_wndm     = 'flx'       ,       -1          , 'socliowi',   .true.     , .true. , 'yearly'  , ''       , '' 
     182   sn_tair     = 'flx'       ,       -1          , 'socliot2',   .true.     , .true. , 'yearly'  , ''       , '' 
     183   sn_humi     = 'flx'       ,       -1          , 'socliohu',   .true.     , .true. , 'yearly'  , ''       , '' 
     184   sn_ccov     = 'flx'       ,       -1          , 'socliocl',   .false.    , .true. , 'yearly'  , ''       , '' 
     185   sn_prec     = 'flx'       ,       -1          , 'socliopl',   .false.    , .true. , 'yearly'  , ''       , '' 
     186 
    165187   cn_dir      = './'      !  root directory for the location of the bulk files are 
    166188/ 
     
    168190&namsbc_core   !   namsbc_core  CORE bulk formulea 
    169191!----------------------------------------------------------------------- 
    170 !              !   file name  ! frequency (hours) ! variable   ! time interpol. !  clim   ! 'yearly'/ ! weights              ! rotation ! 
    171 !              !              !  (if <0  months)  !   name     !    (logical)   !  (T/F)  ! 'monthly' ! filename             ! pairing  ! 
    172    sn_wndi     = 'u10_core'   ,       -1          , 'u10'      ,    .true.      , .true.  , 'yearly'  ,'bicubic_weights_orca2.nc' , 'U1' 
    173    sn_wndj     = 'v10_core'   ,       -1          , 'v10'      ,    .true.      , .true.  , 'yearly'  ,'bicubic_weights_orca2.nc' , 'V1' 
    174    sn_qsr      = 'qsw_core'   ,       -1          , 'swdn'     ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    175    sn_qlw      = 'qlw_core'   ,       -1          , 'lwdn'     ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    176    sn_tair     = 't2_core'    ,       -1          , 't2'       ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    177    sn_humi     = 'q2_core'    ,       -1          , 'q2'       ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    178    sn_prec     = 'precip_core',       -1          , 'precip'   ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    179    sn_snow     = 'snow_core'  ,       -1          , 'snow'     ,    .true.      , .true.  , 'yearly'  ,'bilinear_weights_orca2.nc', '' 
    180 ! 
     192!              !  file name                    ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     193!              !                               !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     194   sn_wndi     = 'u_10.15JUNE2009_orca2'       ,         6         , 'U_10_MOD',   .false.    , .true. , 'yearly'  , ''       , 'Uwnd' 
     195   sn_wndj     = 'v_10.15JUNE2009_orca2'       ,         6         , 'V_10_MOD',   .false.    , .true. , 'yearly'  , ''       , 'Vwnd' 
     196   sn_qsr      = 'ncar_rad.15JUNE2009_orca2'   ,        24         , 'SWDN_MOD',   .false.    , .true. , 'yearly'  , ''       , '' 
     197   sn_qlw      = 'ncar_rad.15JUNE2009_orca2'   ,        24         , 'LWDN_MOD',   .false.    , .true. , 'yearly'  , ''       , '' 
     198   sn_tair     = 't_10.15JUNE2009_orca2'       ,         6         , 'T_10_MOD',   .false.    , .true. , 'yearly'  , ''       , '' 
     199   sn_humi     = 'q_10.15JUNE2009_orca2'       ,         6         , 'Q_10_MOD',   .false.    , .true. , 'yearly'  , ''       , '' 
     200   sn_prec     = 'ncar_precip.15JUNE2009_orca2',        -1         , 'PRC_MOD1',   .false.    , .true. , 'yearly'  , ''       , '' 
     201   sn_snow     = 'ncar_precip.15JUNE2009_orca2',        -1         , 'SNOW'    ,   .false.    , .true. , 'yearly'  , ''       , '' 
     202   sn_tdif     = 'taudif_core'                 ,        24         , 'taudif'  ,   .false.    , .true. , 'yearly'  , ''       , '' 
     203 
    181204   cn_dir      = './'      !  root directory for the location of the bulk files 
    182    ln_2m       = .true.    !  air temperature and humidity referenced at 2m (T) instead 10m (F) 
     205   ln_2m       = .false.   !  air temperature and humidity referenced at 2m (T) instead 10m (F) 
     206   ln_taudif   = .false.   !  HF tau contribution: use "mean of stress module - module of the mean stress" data 
    183207   rn_pfac     = 1.        !  multiplicative factor for precipitation (total & snow) 
    184208/ 
    185209!----------------------------------------------------------------------- 
    186 &namsbc_cpl    !   coupled ocean/atmosphere model                        ("key_coupled") 
    187 !----------------------------------------------------------------------- 
    188                                        ! send 
    189 cn_snd_temperature= 'weighted oce and ice'  ! 'oce only' 'weighted oce and ice' 'mixed oce-ice' 
    190 cn_snd_albedo     = 'weighted ice'          ! 'none' 'weighted ice' 'mixed oce-ice' 
    191 cn_snd_thickness  = 'none'                  ! 'none' 'weighted ice and snow' 
    192 cn_snd_crt_nature = 'none'                  ! 'none' 'oce only' 'weighted oce and ice' 'mixed oce-ice' 
    193 cn_snd_crt_refere = 'spherical'             ! 'spherical' 'cartesian' 
    194 cn_snd_crt_orient = 'eastward-northward'    ! 'eastward-northward' or 'local grid' 
    195 cn_snd_crt_grid   = 'T'                     ! 'T' 
    196                                        ! receive 
    197 cn_rcv_w10m       = 'coupled'               ! 'none' 'coupled' 
    198 cn_rcv_tau_nature = 'oce only'              ! 'oce only' 'oce and ice' 'mixed oce-ice' 
    199 cn_rcv_tau_refere = 'cartesian'             ! 'spherical' 'cartesian' 
    200 cn_rcv_tau_orient = 'eastward-northward'    ! 'eastward-northward' or 'local grid' 
    201 cn_rcv_tau_grid   = 'U,V'                   ! 'T' 'U,V' 'U,V,F' 'U,V,I' 'T,F' 'T,I' 'T,U,V' 
    202 cn_rcv_dqnsdt     = 'coupled'               ! 'none' 'coupled' 
    203 cn_rcv_qsr        = 'oce and ice'           ! 'conservative' 'oce and ice' 'mixed oce-ice' 
    204 cn_rcv_qns        = 'oce and ice'           ! 'conservative' 'oce and ice' 'mixed oce-ice' 
    205 cn_rcv_emp        = 'conservative'          ! 'conservative' 'oce and ice' 'mixed oce-ice' 
    206 cn_rcv_rnf        = 'coupled'               ! 'coupled' 'climato' 'mixed' 
    207 cn_rcv_cal        = 'coupled'               ! 'none' 'coupled' 
    208 / 
    209 !----------------------------------------------------------------------- 
    210 &namsbc_cpl_co2   !   coupled ocean/biogeo/atmosphere model            ("key_cpl_carbon_cycle") 
    211 !----------------------------------------------------------------------- 
    212 cn_snd_co2        = 'coupled'         ! send    :  'none' 'coupled' 
    213 cn_rcv_co2        = 'coupled'         ! receive : 'none' 'coupled' 
     210&namsbc_cpl    !   coupled ocean/atmosphere model                       ("key_coupled") 
     211!----------------------------------------------------------------------- 
     212!                    !     description       !  multiple  !    vector   !      vector          ! vector ! 
     213!                    !                       ! categories !  reference  !    orientation       ! grids  ! 
     214! send 
     215sn_snd_temp   =       'weighted oce and ice' ,    'no'    ,     ''      ,         ''           ,   ''     
     216sn_snd_alb    =       'weighted ice'         ,    'no'    ,     ''      ,         ''           ,   ''     
     217sn_snd_thick  =       'none'                 ,    'no'   ,     ''      ,         ''           ,   ''     
     218sn_snd_crt    =       'none'                 ,    'no'    , 'spherical' , 'eastward-northward' ,  'T'        
     219sn_snd_co2    =       'coupled'              ,    'no'    ,     ''      ,         ''           ,   ''         
     220! receive 
     221sn_rcv_w10m   =       'none'                 ,    'no'    ,     ''      ,         ''          ,   ''     
     222sn_rcv_taumod =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   ''     
     223sn_rcv_tau    =       'oce only'             ,    'no'    , 'cartesian' , 'eastward-northward',  'U,V'    
     224sn_rcv_dqnsdt =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   ''     
     225sn_rcv_qsr    =       'oce and ice'          ,    'no'    ,     ''      ,         ''          ,   ''     
     226sn_rcv_qns    =       'oce and ice'          ,    'no'    ,     ''      ,         ''          ,   ''     
     227sn_rcv_emp    =       'conservative'         ,    'no'    ,     ''      ,         ''          ,   ''     
     228sn_rcv_rnf    =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   ''     
     229sn_rcv_cal    =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   ''     
     230sn_rcv_co2    =       'coupled'              ,    'no'    ,     ''      ,         ''          ,   ''     
    214231/ 
    215232!----------------------------------------------------------------------- 
    216233&namtra_qsr    !   penetrative solar radiation 
    217234!----------------------------------------------------------------------- 
    218 !              !   file name  ! frequency (hours) ! variable   ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
    219 !              !              !  (if <0  months)  !   name     !    (logical)   !  (T/F)  ! 'monthly' ! filename ! pairing  ! 
    220    sn_chl      = 'chlorophyll',        -1         , 'CHLA'     ,    .true.      , .true.  , 'yearly'  , ''       , '' 
    221   
     235!              !  file name  ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     236!              !             !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     237   sn_chl      ='chlorophyll',        -1         , 'CHLA'    ,   .true.     , .true. , 'yearly'  , ''       , '' 
     238 
    222239   cn_dir      = './'      !  root directory for the location of the runoff files 
    223240   ln_traqsr   = .false.   !  Light penetration (T) or not (F) 
     
    229246   rn_si0      =   0.35    !  RGB & 2 bands: shortess depth of extinction 
    230247   rn_si1      =   23.0    !  2 bands: longest depth of extinction 
    231 !   rn_si2      =   62.0    !  3 bands: longest depth of extinction (for blue waveband & 0.01 mg/m2 Chl) 
    232 / 
    233 !---------------------------------------------------------------------------------- 
    234 &namtra_dwl    !  POLCOMS Style Downwell radiation  for Short wave radiation 
    235 !---------------------------------------------------------------------------------- 
    236    ln_tradwl        = .true.     !  Light penetration (T) or not (F) 
    237    ln_vary_lambda   = .true.    !  Vary Lambda or not (T) or not (F) 
    238248/ 
    239249!----------------------------------------------------------------------- 
    240250&namsbc_rnf    !   runoffs namelist surface boundary condition 
    241251!----------------------------------------------------------------------- 
    242    cn_dir       =   './'       !  root directory for the location of the runoff files 
    243    ln_rnf_emp   =   .false.    !  runoffs included into precipitation field (T) or into a file (F) 
    244    ln_rnf_depth =   .true.  
    245    ln_rnf_tem   =   .true. 
    246    ln_rnf_sal   =   .true. 
    247 !                 !  file name  ! frequency(hours) ! variable   ! time interpol. !  clim   ! 'yearly'/ !  check  ! weights  ! rotation ! 
    248 !                 !             !  (if <0 months)  !   name     !    (logical)   !  (T/F)  ! 'monthly' !  (T/F)  ! filename ! pairing  ! 
    249    sn_rnf       = 'AMM_rivers' ,        24        , 'rorunoff' ,    .false.     , .true.  , 'yearly' 
    250    sn_cnf       = 'runoff_1m_nomask' ,   0        , 'socoefr'  ,    .false.     , .true.  , 'yearly' 
    251    sn_s_rnf     = 'AMM_rivers' ,        24        , 'rosaline' ,    .false.     , .true.  , 'yearly' 
    252    sn_t_rnf     = 'AMM_rivers' ,        24        , 'rotemper' ,    .false.     , .true.  , 'yearly' 
    253    sn_dep_rnf   = 'AMM_rivers' ,        24        , 'rodepth'  ,    .false.     , .true.  , 'yearly' 
    254    ln_rnf_mouth =   .false.    !  specific treatment at rivers mouths 
    255    rn_hrnf      =   1000.e0    !  depth over which enhanced vertical mixing is used 
    256    rn_avt_rnf   =   10.e0      !  value of the additional vertical mixing coef. [m2/s] 
    257    rn_rfact     =   1.e0       !  multiplicative factor for runoff 
     252!              !  file name           ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     253!              !                      !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     254   sn_rnf      = 'amm12_rivers'       ,        24         , 'rorunoff',   .false.    , .true. , 'yearly'  , ''       , '' 
     255   sn_cnf      = 'runoff_1m_nomask'   ,         0         , 'socoefr0',   .false.    , .true. , 'yearly'  , ''       , '' 
     256   sn_s_rnf    = 'amm12_rivers'       ,        24         , 'rosaline',   .false.    , .true. , 'yearly'  , ''       , '' 
     257   sn_t_rnf    = 'amm12_rivers'       ,        24         , 'rotemper',   .false.    , .true. , 'yearly'  , ''       , '' 
     258   sn_dep_rnf  = 'amm12_rivers'       ,        24         , 'rodepth' ,   .false.    , .true. , 'yearly'  , ''       , '' 
     259 
     260   cn_dir       = './'      !  root directory for the location of the runoff files 
     261   ln_rnf_emp   = .false.   !  runoffs included into precipitation field (T) or into a file (F) 
     262   ln_rnf_mouth = .false.   !  specific treatment at rivers mouths 
     263   rn_hrnf      =  15.e0    !  depth over which enhanced vertical mixing is used 
     264   rn_avt_rnf   =   1.e-3   !  value of the additional vertical mixing coef. [m2/s] 
     265   rn_rfact     =   1.e0    !  multiplicative factor for runoff 
     266   ln_rnf_depth = .true.    !  read in depth information for runoff 
     267   ln_rnf_tem   = .true.    !  read in temperature information for runoff 
     268   ln_rnf_sal   = .true.    !  read in salinity information for runoff 
     269/ 
     270!----------------------------------------------------------------------- 
     271&namsbc_apr    !   Atmospheric pressure used as ocean forcing or in bulk 
     272!----------------------------------------------------------------------- 
     273!              ! file name ! frequency (hours) ! variable ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
     274!              !           !  (if <0  months)  !   name   !    (logical)   !  (T/F)  ! 'monthly' ! filename ! pairing  ! 
     275   sn_apr      = 'patm'    ,         -1        ,'somslpre',    .true.      , .true.  , 'yearly'  ,  ''      ,   '' 
     276 
     277   cn_dir      = './'      !  root directory for the location of the bulk files 
     278   ln_ref_apr  = .false.   !  ref. pressure: global mean Patm (T) or a constant (F) 
    258279/ 
    259280!----------------------------------------------------------------------- 
    260281&namsbc_ssr    !   surface boundary condition : sea surface restoring 
    261282!----------------------------------------------------------------------- 
    262 !              !   file name       ! frequency (hours) ! variable   ! time interpol. !  clim   ! 'yearly'/ !  check ! weights  ! rotation ! 
    263 !              !                   !  (if <0  months)  !   name     !    (logical)   !  (T/F)  ! 'monthly' !  (T/F) ! filename ! pairing  ! 
    264    sn_sst      = 'references_amm' ,        24         ,  'sst'     ,     .true.     , .false. , 'daily'   , .false. , ''       , '' 
     283!              !  file name  ! frequency (hours) ! variable  ! time interp. !  clim  ! 'yearly'/ ! weights  ! rotation ! 
     284!              !             !  (if <0  months)  !   name    !   (logical)  !  (T/F) ! 'monthly' ! filename ! pairing  ! 
     285   sn_sst      = 'amm12_sstref'    ,        24         ,  'sst'     ,     .true.     , .false. , 'daily'   , .false. , ''       , '' 
    265286   sn_sss      = 'sss_data'        ,        -1         ,  'sss'     ,     .true.     , .true.  , 'yearly'  , .false. , ''       , '' 
    266      
     287 
    267288   cn_dir      = 'fluxes/' !  root directory for the location of the runoff files 
    268289   nn_sstr     =     1     !  add a retroaction term in the surface heat       flux (=1) or not (=0) 
     
    270291                           !  or to SSS only (=1) or no damping term (=0) 
    271292   rn_dqdt     =   -40.    !  magnitude of the retroaction on temperature   [W/m2/K] 
    272    rn_deds     =   -27.7   !  magnitude of the damping on salinity   [mm/day/psu] 
     293   rn_deds     =   -27.7   !  magnitude of the damping on salinity   [mm/day] 
    273294   ln_sssr_bnd =  .false.  !  flag to bound erp term (associated with nn_sssr=2) 
    274295   rn_sssr_bnd =   4.e0    !  ABS(Max/Min) value of the damping erp term [mm/day] 
    275    ln_UKMO_haney = .true.  !  correct non-solar heat flux using Haney Correction. 
    276296/       
    277297!----------------------------------------------------------------------- 
     
    295315!!   namtide       Tidal forcing at open boundaries                     ("key_bdy_tides") 
    296316!!====================================================================== 
    297  
     317! 
    298318!----------------------------------------------------------------------- 
    299319&namlbc        !   lateral momentum boundary condition 
     
    310330&namobc        !   open boundaries parameters                           ("key_obc") 
    311331!----------------------------------------------------------------------- 
    312     ln_obc_clim= .true.    !  climatological obc data files (T) or not (F) 
    313     ln_vol_cst = .false.   !  impose the total volume conservation (T) or not (F) 
    314     ln_obc_fla = .false.   !  Flather open boundary condition  
    315     nn_obcdta  =    0      !  = 0 the obc data are equal to the initial state 
     332   ln_obc_clim = .false.   !  climatological obc data files (T) or not (F) 
     333   ln_vol_cst  = .true.    !  impose the total volume conservation (T) or not (F) 
     334   ln_obc_fla = .false.   !  Flather open boundary condition  
     335   nn_obcdta   =    1      !  = 0 the obc data are equal to the initial state 
    316336                           !  = 1 the obc data are read in 'obc.dta' files 
    317     cn_obcdta  = 'annual'  !  set to annual if obc datafile hold 1 year of data 
     337   cn_obcdta   = 'annual'  !  set to annual if obc datafile hold 1 year of data 
    318338                           !  set to monthly if obc datafile hold 1 month of data 
    319     rn_dpein   =    1.     !  damping time scale for inflow at east  open boundary 
    320     rn_dpwin   =    1.     !     -           -         -       west    -      - 
    321     rn_dpnin   =   30.     !     -           -         -       north   -      - 
    322     rn_dpsin   =    1.     !     -           -         -       south   -      - 
    323     rn_dpeob   = 1500.     !  time relaxation (days) for the east  open boundary 
    324     rn_dpwob   =   15.     !     -           -         -     west    -      - 
    325     rn_dpnob   =  150.     !     -           -         -     north   -      - 
    326     rn_dpsob   =   15.     !     -           -         -     south   -      - 
    327     rn_volemp  =    0.     !  = 0 the total volume change with the surface flux (E-P-R) 
     339   rn_dpein    =    1.     !  damping time scale for inflow at east  open boundary 
     340   rn_dpwin    =    1.     !     -           -         -       west    -      - 
     341   rn_dpnin    =    1.     !     -           -         -       north   -      - 
     342   rn_dpsin    =    1.     !     -           -         -       south   -      - 
     343   rn_dpeob    = 3000.     !  time relaxation (days) for the east  open boundary 
     344   rn_dpwob    =   15.     !     -           -         -     west    -      - 
     345   rn_dpnob    = 3000.     !     -           -         -     north   -      - 
     346   rn_dpsob    =   15.     !     -           -         -     south   -      - 
     347   rn_volemp   =    1.     !  = 0 the total volume change with the surface flux (E-P-R) 
    328348                           !  = 1 the total volume remains constant 
    329349/ 
     
    331351&namagrif      !  AGRIF zoom                                            ("key_agrif") 
    332352!----------------------------------------------------------------------- 
    333     nn_cln_update = 3      !  baroclinic update frequency 
    334     ln_spc_dyn    = .true. !  use 0 as special value for dynamics 
    335     rn_sponge_tra = 2880.  !  coefficient for tracer   sponge layer [s] 
    336     rn_sponge_dyn = 2880.  !  coefficient for dynamics sponge layer [s] 
     353   nn_cln_update =    3    !  baroclinic update frequency 
     354   ln_spc_dyn    = .true. !  use 0 as special value for dynamics 
     355   rn_sponge_tra = 2880.   !  coefficient for tracer   sponge layer [m2/s] 
     356   rn_sponge_dyn = 2880.   !  coefficient for dynamics sponge layer [m2/s] 
    337357/ 
    338358!----------------------------------------------------------------------- 
    339359&nambdy        !  unstructured open boundaries                          ("key_bdy") 
    340360!----------------------------------------------------------------------- 
    341     cn_mask    = 'mask_amm_bdyT.nc'  !  name of mask file (if ln_bdy_mask=.TRUE.) 
    342     cn_dta_frs_T  = 'bdydata_grid_T.nc'  !  name of data file (T-points) 
    343     cn_dta_frs_U  = 'bdydata_grid_U.nc'  !  name of data file (U-points) 
    344     cn_dta_frs_V  = 'bdydata_grid_V.nc'  !  name of data file (V-points) 
    345     cn_dta_fla_T  = 'bdydata_bt_grid_T.nc'  !  name of data file (T-points) 
    346     cn_dta_fla_U  = 'bdydata_bt_grid_U.nc'  !  name of data file (U-points) 
    347     cn_dta_fla_V  = 'bdydata_bt_grid_V.nc'  !  name of data file (V-points) 
    348     ln_tides   = .true.               !  Apply tidal harmonic forcing with Flather condition 
    349     ln_clim    = .false.              !  contain 1 (T) or 12 (F) time dumps and be cyclic 
    350     ln_vol     = .true.               !  total volume correction (see volbdy parameter) 
    351     ln_mask    = .false.              !  boundary mask from filbdy_mask (T) or boundaries are on edges of domain (F) 
    352     ln_dyn_fla = .true.               !  Apply Flather condition to velocities 
    353     ln_dyn_frs = .false.              !  Apply FRS condition to velocities 
    354     ln_tra_frs = .true.               !  Apply FRS condition to temperature and salinity  
    355     nn_dtactl       =  1                  !  = 0, bdy data are equal to the initial state 
     361    nb_bdy = 1                            !  number of open boundary sets        
     362    ln_coords_file = .true.               !  =T : read bdy coordinates from file 
     363    cn_coords_file = 'coordinates.bdy.nc' !  bdy coordinates files 
     364    ln_mask_file = .false.                !  =T : read mask from file 
     365    cn_mask_file = ''                     !  name of mask file (if ln_mask_file=.TRUE.) 
     366    nn_dyn2d      =  2                    !  boundary conditions for barotropic fields 
     367    nn_dyn2d_dta  =  3                    !  = 0, bdy data are equal to the initial state 
    356368                                          !  = 1, bdy data are read in 'bdydata   .nc' files 
    357     nn_rimwidth    = 10                   !  width of the relaxation zone 
    358     nn_volctl         = 1                    !  = 0, the total water flux across open boundaries is zero 
    359                                           !  = 1, the total volume of the system is conserved 
    360 / 
    361 !----------------------------------------------------------------------- 
    362 &nambdy_tide     ! tidal forcing at unstructured boundaries               
    363 !----------------------------------------------------------------------- 
    364     filtide        = 'AMM_bdytide_'  !  file name root of tidal forcing files 
    365     tide_cpt(1)    ='Q1'       !  names of tidal components used 
    366     tide_cpt(2)    ='O1'       !  names of tidal components used 
    367     tide_cpt(3)    ='P1'       !  names of tidal components used 
    368     tide_cpt(4)    ='S1'       !  names of tidal components used 
    369     tide_cpt(5)    ='K1'       !  names of tidal components used 
    370     tide_cpt(6)    ='2N2'      !  names of tidal components used 
    371     tide_cpt(7)    ='MU2'      !  names of tidal components used 
    372     tide_cpt(8)    ='N2'       !  names of tidal components used 
    373     tide_cpt(9)    ='NU2'      !  names of tidal components used 
    374     tide_cpt(10)   ='M2'       !  names of tidal components used 
    375     tide_cpt(11)   ='L2'       !  names of tidal components used 
    376     tide_cpt(12)   ='T2'       !  names of tidal components used 
    377     tide_cpt(13)   ='S2'       !  names of tidal components used 
    378     tide_cpt(14)   ='K2'       !  names of tidal components used 
    379     tide_cpt(15)   ='M4'       !  names of tidal components used 
    380     tide_speed(1)  = 13.398661 !  phase speeds of tidal components (deg/hour) 
    381     tide_speed(2)  = 13.943036 !  phase speeds of tidal components (deg/hour) 
    382     tide_speed(3)  = 14.958932 !  phase speeds of tidal components (deg/hour) 
    383     tide_speed(4)  = 15.000001 !  phase speeds of tidal components (deg/hour) 
    384     tide_speed(5)  = 15.041069 !  phase speeds of tidal components (deg/hour) 
    385     tide_speed(6)  = 27.895355 !  phase speeds of tidal components (deg/hour) 
    386     tide_speed(7)  = 27.968210 !  phase speeds of tidal components (deg/hour) 
    387     tide_speed(8)  = 28.439730 !  phase speeds of tidal components (deg/hour) 
    388     tide_speed(9)  = 28.512585 !  phase speeds of tidal components (deg/hour) 
    389     tide_speed(10) = 28.984106 !  phase speeds of tidal components (deg/hour) 
    390     tide_speed(11) = 29.528479 !  phase speeds of tidal components (deg/hour) 
    391     tide_speed(12) = 29.958935 !  phase speeds of tidal components (deg/hour) 
    392     tide_speed(13) = 30.000002 !  phase speeds of tidal components (deg/hour) 
    393     tide_speed(14) = 30.082138 !  phase speeds of tidal components (deg/hour) 
    394     tide_speed(15) = 57.968212 !  phase speeds of tidal components (deg/hour) 
    395     ln_tide_date   = .true.    !  adjust tidal harmonics for start date of run 
    396 !    ln_tide_czbar = .true.               !  Apply Equil. Tide 
    397 !    ln_harm_ana  = .true.               !  Use Harmonic Analyzer 
    398 / 
     369                                          !  = 2, use tidal harmonic forcing data from files 
     370                                          !  = 3, use external data AND tidal harmonic forcing 
     371    nn_dyn3d      =  0                    !  boundary conditions for baroclinic velocities 
     372    nn_dyn3d_dta  =  0                    !  = 0, bdy data are equal to the initial state 
     373                           !  = 1, bdy data are read in 'bdydata   .nc' files 
     374    nn_tra        =  1                    !  boundary conditions for T and S 
     375    nn_tra_dta    =  1                    !  = 0, bdy data are equal to the initial state 
     376                           !  = 1, bdy data are read in 'bdydata   .nc' files 
     377    nn_rimwidth  = 10                      !  width of the relaxation zone 
     378    nn_dmp2d_in  = 0                      ! 
     379    nn_dmp2d_out = 0                      ! 
     380    nn_dmp2d_in  = 0                      ! 
     381    nn_dmp2d_out = 0                      ! 
     382    ln_vol     = .false.                  !  total volume correction (see nn_volctl parameter) 
     383    nn_volctl  = 1                        !  = 0, the total water flux across open boundaries is zero 
     384/ 
     385!----------------------------------------------------------------------- 
     386&nambdy_dta      !  open boundaries - external data           ("key_bdy") 
     387!----------------------------------------------------------------------- 
     388!              !   file name    ! frequency (hours) !  variable  ! time interpol. !  clim   ! 'yearly'/ ! weights  ! rotation ! 
     389!              !                !  (if <0  months)  !    name    !    (logical)   !  (T/F)  ! 'monthly' ! filename ! pairing  ! 
     390   bn_ssh =     'amm12_bdyT_u2d_1d' ,         24        , 'sossheig' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     391   bn_u2d =     'amm12_bdyU_u2d_1d' ,         24        , 'vobtcrtx' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     392   bn_v2d =     'amm12_bdyV_u2d_1d' ,         24        , 'vobtcrty' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     393   bn_u3d  =    'amm12_bdyU_u3d_1d' ,         24        , 'vozocrtx' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     394   bn_v3d  =    'amm12_bdyV_u3d_1d' ,         24        , 'vomecrty' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     395   bn_tem  =    'amm12_bdyT_tra_1d' ,         24        , 'votemper' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     396   bn_sal  =    'amm12_bdyT_tra_1d' ,         24        , 'vosaline' ,     .true.     , .false. ,  'daily'  ,    ''    ,   '' 
     397   cn_dir  =    'bdydta/' 
     398   ln_full_vel = .false. 
     399/ 
     400!----------------------------------------------------------------------- 
     401&nambdy_tide     ! tidal forcing at open boundaries               
     402!----------------------------------------------------------------------- 
     403   filtide      = 'amm12_bdytide_'         !  file name root of tidal forcing files 
     404    tide_cpt(1)   ='Q1'  !  names of tidal components used 
     405    tide_cpt(2)   ='O1'  !  names of tidal components used 
     406    tide_cpt(3)   ='P1'  !  names of tidal components used 
     407    tide_cpt(4)   ='S1'  !  names of tidal components used 
     408    tide_cpt(5)   ='K1'  !  names of tidal components used 
     409    tide_cpt(6)   ='2N2' !  names of tidal components used 
     410    tide_cpt(7)   ='MU2' !  names of tidal components used 
     411    tide_cpt(8)   ='N2'  !  names of tidal components used 
     412    tide_cpt(9)   ='NU2' !  names of tidal components used 
     413    tide_cpt(10)   ='M2'  !  names of tidal components used 
     414    tide_cpt(11)   ='L2'  !  names of tidal components used 
     415    tide_cpt(12)   ='T2'  !  names of tidal components used 
     416    tide_cpt(13)   ='S2'  !  names of tidal components used 
     417    tide_cpt(14)   ='K2'  !  names of tidal components used 
     418    tide_cpt(15)   ='M4'  !  names of tidal components used 
     419    tide_speed(1)   = 13.398661 !  phase speeds of tidal components (deg/hour) 
     420    tide_speed(2)   = 13.943036 !  phase speeds of tidal components (deg/hour) 
     421    tide_speed(3)   = 14.958932 !  phase speeds of tidal components (deg/hour) 
     422    tide_speed(4)   = 15.000001 !  phase speeds of tidal components (deg/hour) 
     423    tide_speed(5)   = 15.041069 !  phase speeds of tidal components (deg/hour) 
     424    tide_speed(6)   = 27.895355 !  phase speeds of tidal components (deg/hour) 
     425    tide_speed(7)   = 27.968210 !  phase speeds of tidal components (deg/hour) 
     426    tide_speed(8)   = 28.439730 !  phase speeds of tidal components (deg/hour) 
     427    tide_speed(9)   = 28.512585 !  phase speeds of tidal components (deg/hour) 
     428    tide_speed(10)   = 28.984106 !  phase speeds of tidal components (deg/hour) 
     429    tide_speed(11)   = 29.528479 !  phase speeds of tidal components (deg/hour) 
     430    tide_speed(12)   = 29.958935 !  phase speeds of tidal components (deg/hour) 
     431    tide_speed(13)   = 30.000002 !  phase speeds of tidal components (deg/hour) 
     432    tide_speed(14)   = 30.082138 !  phase speeds of tidal components (deg/hour) 
     433    tide_speed(15)   = 57.968212 !  phase speeds of tidal components (deg/hour) 
     434    ln_tide_date = .true.               !  adjust tidal harmonics for start date of run 
     435/ 
     436 
    399437!!====================================================================== 
    400438!!                 ***  Bottom boundary condition  *** 
    401439!!====================================================================== 
    402440!!   nambfr        bottom friction 
    403 !!   nambbc        bottom temperature boundary condition                ("key_trabbc") 
    404 !!   nambbl        bottom boundary layer scheme                         ("key_trabbl_dif","key_trabbl_adv") 
    405 !!====================================================================== 
    406  
     441!!   nambbc        bottom temperature boundary condition                
     442!!   nambbl        bottom boundary layer scheme                         ("key_trabbl") 
     443!!====================================================================== 
     444! 
    407445!----------------------------------------------------------------------- 
    408446&nambfr        !   bottom friction 
    409447!----------------------------------------------------------------------- 
    410    nn_bfr      =    2      !  type of bottom friction :   = 0 : no   slip,  = 2 : nonlinear friction 
    411                            !                              = 3 : free slip,  = 1 :    linear friction 
     448   nn_bfr      =    2      !  type of bottom friction :   = 0 : free slip,  = 1 : linear friction 
     449                           !                              = 2 : nonlinear friction 
    412450   rn_bfri1    =    4.e-4  !  bottom drag coefficient (linear case) 
    413451   rn_bfri2    =    2.5e-3 !  bottom drag coefficient (non linear case) 
    414    rn_bfeb2    =    0.0    !  bottom turbulent kinetic energy background  (m^2/s^2) 
     452   rn_bfeb2    =    0.0e0  !  bottom turbulent kinetic energy background  (m2/s2) 
     453   ln_bfr2d    = .false.   !  horizontal variation of the bottom friction coef (read a 2D mask file ) 
     454   rn_bfrien   =    50.    !  local multiplying factor of bfr (ln_bfr2d=T) 
     455   ln_bfrimp   = .true.    !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
    415456/ 
    416457!----------------------------------------------------------------------- 
    417458&nambbc        !   bottom temperature boundary condition 
    418459!----------------------------------------------------------------------- 
    419    nn_geoflx   =    0      !  geothermal heat flux: = 0 no flux  
     460   ln_trabbc   = .true.    !  Apply a geothermal heating at the ocean bottom 
     461   nn_geoflx   =    2      !  geothermal heat flux: = 0 no flux  
    420462                           !     = 1 constant flux 
    421463                           !     = 2 variable flux (read in geothermal_heating.nc in mW/m2)  
     
    425467&nambbl        !   bottom boundary layer scheme 
    426468!----------------------------------------------------------------------- 
    427 !                          !  diffusive bbl                             ("key_trabbl") 
    428 !                          !  advective bbl                             ("key_trabbl_adv") 
    429    rn_ahtbbl   =  0.       !  lateral mixing coefficient in the bbl  [m2/s] 
    430 / 
     469   nn_bbl_ldf  =  0      !  diffusive bbl (=1)   or not (=0) 
     470   nn_bbl_adv  =  0      !  advective bbl (=1/2) or not (=0) 
     471   rn_ahtbbl   =  1000.  !  lateral mixing coefficient in the bbl  [m2/s] 
     472   rn_gambbl   =  10.    !  advective bbl coefficient                 [s] 
     473/ 
     474 
    431475!!====================================================================== 
    432476!!                        Tracer (T & S ) namelists 
     
    437481!!   namtra_dmp    T & S newtonian damping                              ("key_tradmp") 
    438482!!====================================================================== 
    439  
     483! 
    440484!----------------------------------------------------------------------- 
    441485&nameos        !   ocean physical parameters 
    442486!----------------------------------------------------------------------- 
    443    nn_eos      =    0      !  type of equation of state and Brunt-Vaisala frequency 
     487   nn_eos      =   0       !  type of equation of state and Brunt-Vaisala frequency 
    444488                           !     = 0, UNESCO (formulation of Jackett and McDougall (1994) and of McDougall (1987) ) 
    445489                           !     = 1, linear: rho(T)   = rau0 * ( 1.028 - ralpha * T ) 
    446490                           !     = 2, linear: rho(T,S) = rau0 * ( rbeta * S - ralpha * T ) 
    447    rn_alpha    =    2.e-4  !  thermal expension coefficient (neos= 1 or 2) 
    448    rn_beta     =    0.001  !  saline  expension coefficient (neos= 2) 
     491   rn_alpha    =   2.0e-4  !  thermal expension coefficient (nn_eos= 1 or 2) 
     492   rn_beta     =   7.7e-4  !  saline  expension coefficient (nn_eos= 2) 
    449493/ 
    450494!----------------------------------------------------------------------- 
     
    452496!----------------------------------------------------------------------- 
    453497   ln_traadv_cen2   =  .false.  !  2nd order centered scheme    
    454    ln_traadv_tvd    =  .true.  !  TVD scheme                 
     498   ln_traadv_tvd    =  .true.   !  TVD scheme                 
    455499   ln_traadv_muscl  =  .false.  !  MUSCL scheme              
    456500   ln_traadv_muscl2 =  .false.  !  MUSCL2 scheme + cen2 at boundaries   
    457    ln_traadv_ubs    =  .false.   !  UBS scheme                  
    458 !  ln_traadv_ppm    =  .false.   !  PPM scheme                  
     501   ln_traadv_ubs    =  .false.  !  UBS scheme                  
     502   ln_traadv_qck    =  .false.  !  QUICKEST scheme                  
    459503/ 
    460504!----------------------------------------------------------------------- 
    461505&namtra_ldf    !   lateral diffusion scheme for tracer  
    462506!----------------------------------------------------------------------- 
    463                            !  Type of the operator :  
    464    ln_traldf_lap    =  .true.   !     laplacian operator        
    465    ln_traldf_bilap  =  .false.  !     bilaplacian operator      
    466                            !  Direction of action  : 
    467    ln_traldf_level  =  .false.  !     iso-level                 
     507   !                       !  Type of the operator :  
     508   ln_traldf_lap    =  .true.   !  laplacian operator        
     509   ln_traldf_bilap  =  .false.  !  bilaplacian operator      
     510   !                       !  Direction of action  : 
     511   ln_traldf_level  =  .false.  !  iso-level                 
    468512   ln_traldf_hor    =  .true.   !     horizontal (geopotential)         (require "key_ldfslp" when ln_sco=T) 
    469513   ln_traldf_iso    =  .false.  !     iso-neutral                       (require "key_ldfslp") 
    470                            !  Coefficient 
     514   ln_traldf_grif   =  .false.  !  griffies skew flux formulation       (require "key_ldfslp") 
     515   ln_traldf_gdia   =  .false.  !  griffies operator strfn diagnostics  (require "key_ldfslp") 
     516   ln_triad_iso     =  .false.  !  griffies operator calculates triads twice => pure lateral mixing in ML (require "key_ldfslp") 
     517   ln_botmix_grif   =  .false.  !  griffies operator with lateral mixing on bottom (require "key_ldfslp") 
     518                         !  Coefficient 
    471519   rn_aht_0         =   50.     !     horizontal eddy diffusivity for tracers [m2/s] 
    472    rn_ahtb_0        =    0.     !     background eddy diffusivity for ldf_iso [m2/s] 
     520   rn_ahtb_0        =     0.    !  background eddy diffusivity for ldf_iso [m2/s] 
    473521   rn_aeiv_0        =    0.     !     eddy induced velocity coefficient [m2/s]    (require "key_traldf_eiv") 
    474522/ 
     
    479527                           !                   =XX, damping poleward of XX degrees (XX>0) 
    480528                           !                      + F(distance-to-coast) + Red and Med Seas 
    481    nn_zdmp     =    1      !  vertical   shape =0    damping throughout the water column 
     529   nn_zdmp     =    0      !  vertical   shape =0    damping throughout the water column 
    482530                           !                   =1 no damping in the mixing layer (kz  criteria) 
    483531                           !                   =2 no damping in the mixed  layer (rho crieria) 
     
    485533   rn_bot      =  360.     !  bottom  time scale of damping   [days] 
    486534   rn_dep      =  800.     !  depth of transition between rn_surf and rn_bot [meters] 
    487    nn_file     =    1      !  create a damping.coeff NetCDF file (=1) or not (=0) 
    488 / 
     535   nn_file     =    0      !  create a damping.coeff NetCDF file (=1) or not (=0) 
     536/ 
     537 
    489538!!====================================================================== 
    490539!!                      ***  Dynamics namelists  *** 
     
    496545!!   namdyn_ldf    lateral diffusion scheme 
    497546!!====================================================================== 
    498  
     547! 
    499548!----------------------------------------------------------------------- 
    500549&namdyn_adv    !   formulation of the momentum advection 
     
    510559   ln_dynvor_ens = .false. !  energy conserving scheme     
    511560   ln_dynvor_mix = .false. !  mixed scheme                
    512    ln_dynvor_een = .true.  ! energy & enstrophy scheme   
     561   ln_dynvor_een = .true.  !  energy & enstrophy scheme   
    513562/ 
    514563!----------------------------------------------------------------------- 
     
    517566   ln_hpg_zco  = .false.   !  z-coordinate - full steps                    
    518567   ln_hpg_zps  = .false.   !  z-coordinate - partial steps (interpolation) 
    519    ln_hpg_sco  = .true.   !  s-coordinate (standard jacobian formulation) 
    520    ln_hpg_hel  = .false.   !  s-coordinate (helsinki modification) 
    521    ln_hpg_wdj  = .false.   !  s-coordinate (weighted density jacobian) 
     568   ln_hpg_sco  = .false.   !  s-coordinate (standard jacobian formulation) 
    522569   ln_hpg_djc  = .false.   !  s-coordinate (Density Jacobian with Cubic polynomial) 
    523    ln_hpg_rot  = .false.   !  s-coordinate (ROTated axes scheme) 
    524    rn_gamma    = 0.125     !  weighting coefficient (wdj scheme) 
     570   ln_hpg_prj  = .true.    !  s-coordinate (Pressure Jacobian scheme) 
    525571   ln_dynhpg_imp = .false. !  time stepping: semi-implicit time scheme  (T) 
    526572                                 !           centered      time scheme  (F) 
    527 !   nn_dynhpg_rst =  0            ! =1 dynhpg restartable restart or not (=0) 
    528573/ 
    529574!----------------------------------------------------------------------- 
     
    537582&namdyn_ldf    !   lateral diffusion on momentum 
    538583!----------------------------------------------------------------------- 
    539                            !  Type of the operator : 
    540    ln_dynldf_lap         = .true.   !  laplacian operator 
    541    ln_dynldf_bilap       = .true.   !  bilaplacian operator 
    542    ln_dynldf_level       = .false. 
     584   !                       !  Type of the operator :  
     585   ln_dynldf_lap    =  .true.   !  laplacian operator          
     586   ln_dynldf_bilap  =  .true.   !  bilaplacian operator 
    543587                           !  Direction of action  : 
    544 !   ln_dynldf_lap_level   = .false.  !  iso-level 
    545 !   ln_dynldf_lap_hor     = .true.   !  horizontal (geopotential)            (require "key_ldfslp" in s-coord.) 
    546 !   ln_dynldf_lap_iso     = .false.  !  iso-neutral                          (require "key_ldfslp") 
    547 !   ln_dynldf_bilap_level = .true.   !  iso-level 
    548 !   ln_dynldf_bilap_hor   = .false.  !  horizontal (geopotential)            (require "key_ldfslp" in s-coord.) 
    549 !   ln_dynldf_bilap_iso   = .false.  !  iso-neutral                          (require "key_ldfslp") 
    550                            !  Coefficient : 
    551    rn_ahm_0_lap          = 60.0     !  horizontal eddy viscosity   [m2/s] 
    552    rn_ahmb_0             =  0.0     !  background eddy viscosity for ldf_iso [m2/s] 
    553    rn_ahm_0_blp          = -1.0e+10 !  background eddy viscosity for ldf_iso [m2/s] 
    554 / 
     588   ln_dynldf_level  =  .false.  !  iso-level                
     589   ln_dynldf_hor    =  .true.   !  horizontal (geopotential)            (require "key_ldfslp" in s-coord.) 
     590   ln_dynldf_iso    =  .false.  !  iso-neutral                          (require "key_ldfslp") 
     591                           !  Coefficient  
     592   rn_ahm_0_lap     = 60.0      !  horizontal laplacian eddy viscosity   [m2/s] 
     593   rn_ahmb_0        =  0.0      !  background eddy viscosity for ldf_iso [m2/s] 
     594   rn_ahm_0_blp     = -1.0e+10  !  horizontal bilaplacian eddy viscosity [m4/s] 
     595/ 
     596 
    555597!!====================================================================== 
    556598!!             Tracers & Dynamics vertical physics namelists 
    557599!!====================================================================== 
    558 !!       namzdf        vertical physics 
    559 !!       namzdf_ric    richardson number dependent vertical mixing      ("key_zdfric"      ) 
    560 !!       namzdf_tke    TKE dependent vertical mixing                    ("key_zdftke"      ) 
    561 !!       namzdf_kpp    KPP dependent vertical mixing                    ("key_zdfkpp"      ) 
    562 !!       namzdf_ddm    double diffusive mixing parameterization         ("key_zdfddm"      ) 
    563 !!       namzdf_tmx    tidal mixing parameterization                    ("key_zdftmx"      ) 
    564 !!====================================================================== 
    565  
     600!!    namzdf        vertical physics 
     601!!    namzdf_ric    richardson number dependent vertical mixing         ("key_zdfric") 
     602!!    namzdf_tke    TKE dependent vertical mixing                       ("key_zdftke") 
     603!!    namzdf_kpp    KPP dependent vertical mixing                       ("key_zdfkpp") 
     604!!    namzdf_ddm    double diffusive mixing parameterization            ("key_zdfddm") 
     605!!    namzdf_tmx    tidal mixing parameterization                       ("key_zdftmx") 
     606!!====================================================================== 
     607! 
    566608!----------------------------------------------------------------------- 
    567609&namzdf        !   vertical physics 
     
    573615   ln_zdfevd   = .false.   !  enhanced vertical diffusion (evd) (T) or not (F) 
    574616   nn_evdm     =    1      !  evd apply on tracer (=0) or on tracer and momentum (=1) 
    575    rn_avevd    =   100.    !  evd mixing coefficient [m2/s] 
    576    ln_zdfnpc   = .false.   !  Non-Penetrative algorithm (T) or not (F) 
     617   rn_avevd    =  100.     !  evd mixing coefficient [m2/s] 
     618   ln_zdfnpc   = .false.   !  Non-Penetrative Convective algorithm (T) or not (F) 
    577619   nn_npc      =    1            !  frequency of application of npc 
    578620   nn_npcp     =  365            !  npc control print frequency 
     
    588630/ 
    589631!----------------------------------------------------------------------- 
    590  
    591 &namzdf_gls                !   Generic length scale model vertical diffusion  ("key_zdfgls") 
    592  
    593 !----------------------------------------------------------------------- 
    594    rn_emin     =   1.e-6   !  minimum value of e   [m2/s2] 
    595    rn_epsmin   =   1.e-12  !  minimum value of eps [m2/s3] 
    596    ln_length_lim = .true.  !  limit on the dissipation rate under stable stratification (Galperin et al., 1988) 
    597 !   rn_clim_galp   =   0.267   !  galperin limit 
    598    ln_crban = .TRUE.       !  Use Craig & Banner (1994) surface wave mixing parametrisation 
    599    ln_sigpsi = .TRUE.      !  Activate or not Burchard 2001 mods on psi schmidt number in the wb case 
    600    rn_crban = 100.         !  Craig and Banner 1994 constant for wb tke flux 
    601    rn_charn =  100000.     !  Charnock constant for wb induced roughness length 
    602    nn_tkebc_surf  =   1    !  surface tke condition (0/1=Dir/Neum) 
    603    nn_tkebc_bot   =   1    !  bottom tke condition (0/1=Dir/Neum) 
    604    nn_psibc_surf  =   1    !  surface psi condition (0/1=Dir/Neum) 
    605    nn_psibc_bot   =   1    !  bottom psi condition (0/1=Dir/Neum) 
    606    nn_stab_func   =   2    !  stability function (0=Galp, 1= KC94, 2=CanutoA, 3=CanutoB) 
    607    nn_clos        =   1    !  predefined closure type (0=MY82, 1=k-eps, 2=k-w, 3=Gen) 
    608 / 
    609 !----------------------------------------------------------------------- 
    610632&namzdf_tke    !   turbulent eddy kinetic dependent vertical diffusion  ("key_zdftke") 
    611633!----------------------------------------------------------------------- 
    612    rn_ediff    =   0.2     !  coef. for vertical eddy coef. (avt=rn_ediff*mxl*sqrt(e) ) 
     634   rn_ediff    =   0.1     !  coef. for vertical eddy coef. (avt=rn_ediff*mxl*sqrt(e) ) 
    613635   rn_ediss    =   0.7     !  coef. of the Kolmogoroff dissipation 
    614    rn_ebb      =  60.      !  coef. of the surface input of tke 
     636   rn_ebb      =  67.83    !  coef. of the surface input of tke (=67.83 suggested when ln_mxl0=T) 
    615637   rn_emin     =   1.e-6   !  minimum value of tke [m2/s2] 
    616638   rn_emin0    =   1.e-4   !  surface minimum value of tke [m2/s2] 
    617    rn_bshear   =   1.e-20  !  background shear (>0) 
    618    nn_mxl      =   3       !  mixing length: = 0 bounded by the distance to surface and bottom 
     639   nn_mxl      =   2       !  mixing length: = 0 bounded by the distance to surface and bottom 
    619640                           !                 = 1 bounded by the local vertical scale factor 
    620641                           !                 = 2 first vertical derivative of mixing length bounded by 1 
    621                            !                 = 3 same criteria as case 2 but applied in a different way 
    622    ln_mxl0     = .true.    !  mixing length scale surface value as function of wind stress (T) or not (F) 
     642                           !                 = 3 as =2 with distinct disspipative an mixing length scale 
    623643   nn_pdl      =   1       !  Prandtl number function of richarson number (=1, avt=pdl(Ri)*avm) or not (=0, avt=avm) 
    624    ln_lc       = .false.   !  Langmuir cell parameterisation 
     644   ln_mxl0     = .true.    !  surface mixing length scale = F(wind stress) (T) or not (F) 
     645   rn_mxl0     =   0.04    !  surface  buoyancy lenght scale minimum value 
     646   ln_lc       = .true.    !  Langmuir cell parameterisation (Axell 2002) 
    625647   rn_lc       =   0.15    !  coef. associated to Langmuir cells 
    626    nn_etau     =   1       !  exponentially deceasing penetration of tke due to internal & intertial waves 
    627                            !        = 0 no penetration ( O(2 km) resolution) 
    628                            !        = 1 additional tke source 
    629                            !        = 2 additional tke source applied only at the base of the mixed layer 
    630    nn_htau     =   1       !  type of exponential decrease of tke penetration 
     648   nn_etau     =   1       !  penetration of tke below the mixed layer (ML) due to internal & intertial waves 
     649                           !        = 0 no penetration 
     650                           !        = 1 add a tke source below the ML 
     651                           !        = 2 add a tke source just at the base of the ML 
     652                           !        = 3 as = 1 applied on HF part of the stress    ("key_coupled") 
     653   rn_efr      =   0.05    !  fraction of surface tke value which penetrates below the ML (nn_etau=1 or 2) 
     654   nn_htau     =   1       !  type of exponential decrease of tke penetration below the ML 
    631655                           !        = 0  constant 10 m length scale 
    632                            !        = 1  0.5m at the equator to 30m at high latitudes 
    633    rn_efr      =   0.05    !  fraction of surface tke value which penetrates inside the ocean 
     656                           !        = 1  0.5m at the equator to 30m poleward of 40 degrees 
    634657/ 
    635658!------------------------------------------------------------------------ 
    636 &namzdf_kpp    !   K-Profile Parameterization dependent vertical mixing  ("key_zdfkpp", and optionnally: 
     659&namzdf_kpp    !   K-Profile Parameterization dependent vertical mixing  ("key_zdfkpp", and optionally: 
    637660!------------------------------------------------------------------------ "key_kppcustom" or "key_kpplktb") 
    638661   ln_kpprimix = .true.    !  shear instability mixing  
     
    647670/ 
    648671!----------------------------------------------------------------------- 
     672&namzdf_gls                !   GLS vertical diffusion                   ("key_zdfgls") 
     673!----------------------------------------------------------------------- 
     674   rn_emin       = 1.e-6   !  minimum value of e   [m2/s2] 
     675   rn_epsmin     = 1.e-12  !  minimum value of eps [m2/s3] 
     676   ln_length_lim = .true.  !  limit on the dissipation rate under stable stratification (Galperin et al., 1988) 
     677   rn_clim_galp  = 0.53    !  galperin limit 
     678   ln_crban      = .true.  !  Use Craig & Banner (1994) surface wave mixing parametrisation 
     679   ln_sigpsi     = .true.  !  Activate or not Burchard 2001 mods on psi schmidt number in the wb case 
     680   rn_crban      = 100.    !  Craig and Banner 1994 constant for wb tke flux 
     681   rn_charn =  100000.     !  Charnock constant for wb induced roughness length 
     682   nn_tkebc_surf =   1     !  surface tke condition (0/1/2=Dir/Neum/Dir Mellor-Blumberg) 
     683   nn_tkebc_bot  =   1     !  bottom tke condition (0/1=Dir/Neum) 
     684   nn_psibc_surf =   1     !  surface psi condition (0/1/2=Dir/Neum/Dir Mellor-Blumberg) 
     685   nn_psibc_bot  =   1     !  bottom psi condition (0/1=Dir/Neum) 
     686   nn_stab_func  =   2     !  stability function (0=Galp, 1= KC94, 2=CanutoA, 3=CanutoB) 
     687   nn_clos       =   1     !  predefined closure type (0=MY82, 1=k-eps, 2=k-w, 3=Gen) 
     688/ 
     689!----------------------------------------------------------------------- 
    649690&namzdf_ddm    !   double diffusive mixing parameterization             ("key_zdfddm") 
    650691!----------------------------------------------------------------------- 
     
    662703   rn_tfe_itf  = 1.        !  ITF tidal dissipation efficiency 
    663704/ 
    664 !!====================================================================== 
    665 !!                  ***  Miscelaneous namelists  *** 
     705 
     706!!====================================================================== 
     707!!                  ***  Miscellaneous namelists  *** 
    666708!!====================================================================== 
    667709!!   nammpp            Massively Parallel Processing                    ("key_mpp_mpi) 
    668 !!   nammpp_dyndist    Massively Parallel domain decomposition          ("key_agrif" && "key_mpp_dyndist") 
    669710!!   namctl            Control prints & Benchmark 
    670711!!   namsol            elliptic solver / island / free surface  
    671712!!====================================================================== 
    672  
     713! 
    673714!----------------------------------------------------------------------- 
    674715&namsol        !   elliptic solver / island / free surface  
     
    679720   rn_eps      =  1.e-6    !  absolute precision of the solver 
    680721   nn_nmin     =    300    !  minimum of iterations for the SOR solver 
    681    nn_nmax     =   2800    !  maximum of iterations for the SOR solver 
     722   nn_nmax     =    800    !  maximum of iterations for the SOR solver 
    682723   nn_nmod     =     10    !  frequency of test for the SOR solver 
    683724   rn_resmax   =  1.e-10   !  absolute precision for the SOR solver 
     
    687728&nammpp        !   Massively Parallel Processing                        ("key_mpp_mpi) 
    688729!----------------------------------------------------------------------- 
    689    cn_mpi_send =  'S'      !  mpi send/recieve type   ='S', 'B', or 'I' for standard send, 
     730   cn_mpi_send =  'I'      !  mpi send/recieve type   ='S', 'B', or 'I' for standard send, 
    690731                           !  buffer blocking send or immediate non-blocking sends, resp. 
    691732   nn_buffer   =   0       !  size in bytes of exported buffer ('B' case), 0 no exportation 
    692 / 
    693 !----------------------------------------------------------------------- 
    694 &nammpp_dyndist !   Massively Parallel Distribution for AGRIF zoom      ("key_agrif" && "key_mpp_dyndist") 
    695 !----------------------------------------------------------------------- 
    696    jpni        =    4      !  jpni   number of processors following i 
    697    jpnj        =    8      !  jpnj   number of processors following j 
    698    jpnij       =    32     !  jpnij  number of local domains 
     733   ln_nnogather=  .false.  !  activate code to avoid mpi_allgather use at the northfold 
     734   jpni        =   0       !  jpni   number of processors following i (set automatically if < 1) 
     735   jpnj        =   0       !  jpnj   number of processors following j (set automatically if < 1) 
     736   jpnij       =   0       !  jpnij  number of local domains (set automatically if < 1) 
    699737/ 
    700738!----------------------------------------------------------------------- 
    701739&namctl        !   Control prints & Benchmark 
    702740!----------------------------------------------------------------------- 
    703    ln_ctl      = .true.    !  trends control print (expensive!) 
     741   ln_ctl      = .false.   !  trends control print (expensive!) 
    704742   nn_print    =    0      !  level of print (0 no extra print) 
    705743   nn_ictls    =    0      !  start i indice of control sum (use to compare mono versus 
     
    714752 
    715753!!====================================================================== 
    716 !!                       ***  Diagnostics namelists  *** 
    717 !!====================================================================== 
     754!!                  ***  Diagnostics namelists  *** 
     755!!====================================================================== 
     756!!   namnc4       netcdf4 chunking and compression settings             ("key_netcdf4") 
    718757!!   namtrd       dynamics and/or tracer trends                         ("key_trddyn","key_trdtra","key_trdmld") 
    719 !!   namgap       level mean model-data gap                             ("key_diagap") 
    720758!!   namflo       float parameters                                      ("key_float") 
    721759!!   namptr       Poleward Transport Diagnostics 
    722 !!====================================================================== 
    723  
     760!!   namhsb       Heat and salt budgets  
     761!!====================================================================== 
     762! 
     763!----------------------------------------------------------------------- 
     764&namnc4        !   netcdf4 chunking and compression settings            ("key_netcdf4") 
     765!----------------------------------------------------------------------- 
     766   nn_nchunks_i=   4       !  number of chunks in i-dimension 
     767   nn_nchunks_j=   4       !  number of chunks in j-dimension 
     768   nn_nchunks_k=   31      !  number of chunks in k-dimension 
     769                           !  setting nn_nchunks_k = jpk will give a chunk size of 1 in the vertical which 
     770                           !  is optimal for postprocessing which works exclusively with horizontal slabs 
     771   ln_nc4zip   = .true.    !  (T) use netcdf4 chunking and compression 
     772                           !  (F) ignore chunking information and produce netcdf3-compatible files 
     773/ 
    724774!----------------------------------------------------------------------- 
    725775&namtrd        !   diagnostics on dynamics and/or tracer trends         ("key_trddyn" and/or "key_trdtra") 
    726 !              !       or mixed-layer trends or barotropic vorticity    ('key_trdmld' or  "key_trdvor") 
     776!              !       or mixed-layer trends or barotropic vorticity    ("key_trdmld" or     "key_trdvor") 
    727777!----------------------------------------------------------------------- 
    728778   nn_trd      = 365       !  time step frequency dynamics and tracers trends 
     
    743793&namflo       !   float parameters                                      ("key_float") 
    744794!----------------------------------------------------------------------- 
    745     ln_rstflo = .false.    !  float restart (T) or not (F) 
    746     nn_writefl=      75    !  frequency of writing in float output file  
    747     nn_stockfl=    5475    !  frequency of creation of the float restart file  
    748     ln_argo   = .false.    !  Argo type floats (stay at the surface each 10 days) 
    749     ln_flork4 = .false.    !  trajectories computed with a 4th order Runge-Kutta (T) 
     795   ln_rstflo = .false.    !  float restart (T) or not (F) 
     796   nn_writefl =      75    !  frequency of writing in float output file  
     797   nn_stockfl =    5475    !  frequency of creation of the float restart file  
     798   ln_argo    = .false.    !  Argo type floats (stay at the surface each 10 days) 
     799   ln_flork4 = .false.    !  trajectories computed with a 4th order Runge-Kutta (T) 
    750800                           !  or computed with Blanke' scheme (F) 
    751801/ 
     
    757807   ln_subbas  = .false.    !  Atlantic/Pacific/Indian basins computation (T) or not  
    758808                           !  (orca configuration only, need input basins mask file named "subbasins.nc" 
    759 !   nn_fptr     =  15        !  Frequency of ptr computation [time step] 
    760 !   nn_fwri =  15        !  Frequency of ptr outputs 
    761  / 
    762 !----------------------------------------------------------------------- 
    763 !       nam_asminc    assim increment parameters (#ifdef key_asminc) 
    764 !----------------------------------------------------------------------- 
    765 !  aincstr    Assimilation period start time (s) relative to run start 
    766 !  aincper    Assimilation period length (s)  
    767 !  mld_choice chooses the mixed layer definition to use in the assimilation 
    768 !             1) turbocline depth 2) 0.001 density criteria 3) Kara mixed layer 
    769 !  ln_trainc  Apply tracer incerements when assimilating 
    770 !  ln_dyninc  Apply velocity incerements when assimilating 
    771 !  ln_sshinc  Apply sea surface height incerements when assimilating 
    772 &nam_asminc 
    773     aincstr   =     0.0 
    774     aincper   = 86400.0 
    775     mld_choice = 1 
    776     ln_trainc =  .false. 
    777     ln_dyninc =  .false. 
    778     ln_sshinc =  .false. 
    779     ln_seaiceinc =  .false. 
    780     ln_seaicebal =  .true. 
    781 / 
    782 !----------------------------------------------------------------------- 
    783 !       namobs    observation operator switch (#ifdef key_diaobs) 
    784 !----------------------------------------------------------------------- 
    785 ! ln_ena     Logical switch for ENACT insitu data set 
    786 ! ln_cor     Logical switch for Coriolis insitu data set 
    787 ! ln_t3d     Logical switch for T profile observations 
    788 ! ln_s3d     Logical switch for S profile observations 
    789 ! ln_pto     Logical switch for gen profile T obs sfc 
    790 ! ln_pro     Logical switch for gen profile Rho obs sfc 
    791 ! ln_pts     Logical switch for gen profile T spec sfc 
    792 ! ln_prs     Logical switch for gen profile Rho spec sfc 
    793 ! ln_pzm     Logical switch for gen profile Z model lev 
    794 ! ln_sla     Logical switch for SLA observations 
    795 ! ln_ssh     Logical switch for SSH observations 
    796 ! ln_sst     Logical switch for SST observations 
    797 ! ln_sss     Logical switch for SSS observations 
    798 ! ln_reysst  Logical switch for Reynolds SST 
    799 ! ln_ghrsst  Logical switch for GHRSST format SST observations 
    800 ! enactfiles List of filenames containing profile data in ENACT format 
    801 ! slafiles   List of filenames containing SLA data in CLS format 
    802 ! sstfiles   List of filenames containing SST data in GHRSST format 
    803 ! dobsini    Initial date in window YYYYMMDD.HHMMSS 
    804 ! dobsend    Final date in window YYYYMMDD.HHMMSS 
    805 ! n1dint     Type of vertical interpolation method 
    806 !             0 = Linear intepolation. 
    807 !             1 = Cubic spline interpolation. 
    808 ! n2dint     Type of horizontal interpolation method 
    809 !             0 = Distance-weighted interpolation 
    810 !             1 = Distance-weighted interpolation (small angle) 
    811 !             2 = Bilinear interpolation (geographical grid) 
    812 !             3 = Bilinear remapping interpolation (general grid) 
    813 !             4 = Polynomial interpolation 
    814 ! ln_nea     Logical switch to reject observations near land 
    815 ! nmsshc     MSSH correction scheme 
    816 !             0 = no correction 
    817 !             1 = compute online 
    818 !             2 = set to mdtcorr 
    819 ! mdtcutoff  MDT cutoff for computed correction 
    820 ! mdtcorr    MDT correction factor (used if nmsshc = 2) 
    821 &namobs 
    822     ln_ena = .false. 
    823     ln_cor = .false. 
    824  
    825     ln_t3d = .false. 
    826     ln_s3d = .false. 
    827     ln_sla = .false. 
    828     ln_ssh = .false. 
    829     ln_sst = .false. 
    830     ln_sss = .false. 
    831  
    832     enactfiles = 'enact.1.nc' 
    833  
    834     slafilesact= 'sla.1.nc' 
    835  
    836     seaicefiles = 'seaice.1.nc'  'seaice.2.nc' 
    837  
    838     ln_pto = .false. 
    839     ln_pro = .false. 
    840     ln_pts = .false. 
    841     ln_prs = .false. 
    842     ln_pzm = .false. 
    843     ln_reysst = .false. 
    844     ln_ghrsst = .true. 
    845     ln_seaice = .false. 
    846     ln_logchl = .false. 
    847     sstfiles   = 'Surface.1.nc'   
    848     logchlfiles = 'logchl.1.nc' 
    849     ln_grid_search_lookup = .true. 
    850     ln_obs_bound_check = .true. 
    851     ln_altbias = .false. 
    852     bias_file = 'bias.nc' 
    853     n1dint = 1 
    854     n2dint = 3 
    855     ln_nea = .false. 
    856     nmsshc = 0 
    857     mdtcutoff = 65.0 
    858     mdtcorr = 1.61 
    859 / 
    860 !----------------------------------------------------------------------- 
    861 !       nambias    bias parameters (#ifdef key_bias) 
    862 !----------------------------------------------------------------------- 
    863 &nam_bias 
    864      bias_file = 'bias.nc' 
    865      bias_time_unit = 86400.0 
    866      ln_obias = .false. 
    867      ln_bias_ts_app = .false. 
    868      ln_bias_pc_app = .true. 
    869 / 
    870 !----------------------------------------------------------------------- 
    871 &nammoor 
    872   path_moor   = "./" 
    873   nmoor       =  1 
    874    nwmoor = 24 
    875   ln_moor_out = .false. 
    876   ln_moor_pos = .false. 
    877   ln_ijproc_moor_read = .false. 
    878   ln_ijproc_moor_write = .false. 
    879 / 
    880 !----------------------------------------------------------------------- 
    881 !       namdct       Namelist for creating transports through sections 
    882 !----------------------------------------------------------------------- 
    883 &namdct 
    884    ndct         = 1     ! frequency of summing 
    885    ndctwri      = 24    ! frequency of writing 
    886    nsecdebug    = 0     ! =0; no debugging output i.e. no fort.2?? files written 
    887                                 ! =1; transect positions outputted to fort.2?? files 
    888    ln_verif     =   .false.     ! =false; only first transect output in fort.2?? files 
    889                                 ! =true; all transects output in fort 2?? files 
    890 / 
    891 !----------------------------------------------------------------------- 
    892 !       nammht   namelist for meridional heat transport diagnostic 
    893 !----------------------------------------------------------------------- 
    894 &nammht 
    895 nmht=1 
    896 nmhtwri=80 
    897 / 
    898 !----------------------------------------------------------------------- 
    899 !       nammsb  
    900 !----------------------------------------------------------------------- 
    901 &namhsb 
    902 ln_diahsb=false 
    903 / 
     809   ln_ptrcomp = .false.    !  Add decomposition : overturning 
     810   nn_fptr    =  1         !  Frequency of ptr computation [time step] 
     811   nn_fwri    =  15        !  Frequency of ptr outputs [time step] 
     812/ 
     813!----------------------------------------------------------------------- 
     814&namhsb       !  Heat and salt budgets  
     815!----------------------------------------------------------------------- 
     816   ln_diahsb  = .false.    !  check the heat and salt budgets (T) or not (F) 
     817/ 
     818 
     819!!====================================================================== 
     820!!            ***  Observation & Assimilation namelists *** 
     821!!====================================================================== 
     822!!   namobs       observation and model comparison                      ('key_diaobs') 
     823!!   nam_asminc   assimilation increments                               ('key_asminc') 
     824!!====================================================================== 
     825! 
     826!----------------------------------------------------------------------- 
     827&namobs       !  observation usage switch                               ('key_diaobs') 
     828!----------------------------------------------------------------------- 
     829   ln_t3d     = .false.    ! Logical switch for T profile observations          
     830   ln_s3d     = .false.    ! Logical switch for S profile observations           
     831   ln_ena     = .false.    ! Logical switch for ENACT insitu data set            
     832   !                       !     ln_cor                  Logical switch for Coriolis insitu data set        
     833   ln_profb   = .false.    ! Logical switch for feedback insitu data set      
     834   ln_sla     = .false.    ! Logical switch for SLA observations                
     835 
     836   ln_sladt   = .false.    ! Logical switch for AVISO SLA data               
     837 
     838   ln_slafb   = .false.    ! Logical switch for feedback SLA data             
     839                           !     ln_ssh                  Logical switch for SSH observations               
     840 
     841   ln_sst     = .false.    ! Logical switch for SST observations               
     842                           !     ln_reysst               Logical switch for Reynolds observations        
     843                           !     ln_ghrsst               Logical switch for GHRSST observations           
     844 
     845   ln_sstfb   = .false.    ! Logical switch for feedback SST data           
     846                           !     ln_sss                  Logical switch for SSS observations               
     847                           !     ln_seaice               Logical switch for Sea Ice observations         
     848                           !     ln_vel3d                Logical switch for velocity observations          
     849                           !     ln_velavcur             Logical switch for velocity daily av. cur.     
     850                           !     ln_velhrcur             Logical switch for velocity high freq. cur.    
     851                           !     ln_velavadcp            Logical switch for velocity daily av. ADCP   
     852                           !     ln_velhradcp            Logical switch for velocity high freq. ADCP 
     853                           !     ln_velfb                Logical switch for feedback velocity data        
     854                           !     ln_grid_global          Global distribtion of observations          
     855                           !     ln_grid_search_lookup   Logical switch for obs grid search w/lookup table   
     856                           !     grid_search_file        Grid search lookup file header  
     857                           !     enactfiles              ENACT input observation file names  
     858                           !     coriofiles              Coriolis input observation file name   
     859   !                       ! profbfiles: Profile feedback input observation file name  
     860   profbfiles = 'profiles_01.nc' 
     861                           !     ln_profb_enatim         Enact feedback input time setting switch     
     862                           !     slafilesact             Active SLA input observation file name 
     863                           !     slafilespas             Passive SLA input observation file name  
     864   !                       ! slafbfiles: Feedback SLA input observation file name  
     865   slafbfiles = 'sla_01.nc' 
     866                           !     sstfiles                GHRSST input observation file name        
     867   !                       ! sstfbfiles: Feedback SST input observation file name  
     868   sstfbfiles = 'sst_01.nc' 'sst_02.nc' 'sst_03.nc' 'sst_04.nc' 'sst_05.nc' 
     869                           !     seaicefiles             Sea Ice input observation file name  
     870                           !     velavcurfiles           Vel. cur. daily av. input file name   
     871                           !     velhvcurfiles           Vel. cur. high freq. input file name   
     872                           !     velavadcpfiles          Vel. ADCP daily av. input file name     
     873                           !     velhvadcpfiles          Vel. ADCP high freq. input file name  
     874                           !     velfbfiles              Vel. feedback input observation file name  
     875                           !     dobsini                 Initial date in window YYYYMMDD.HHMMSS        
     876                           !     dobsend                 Final date in window YYYYMMDD.HHMMSS          
     877                           !     n1dint                  Type of vertical interpolation method         
     878                           !     n2dint                  Type of horizontal interpolation method        
     879                           !     ln_nea                  Rejection of observations near land switch     
     880   nmsshc     = 0          ! MSSH correction scheme                          
     881                           !     mdtcorr                 MDT  correction                                
     882                           !     mdtcutoff               MDT cutoff for computed correction           
     883   ln_altbias = .false.    ! Logical switch for alt bias                 
     884   ln_ignmis  = .true.     ! Logical switch for ignoring missing files    
     885                           !     endailyavtypes   ENACT daily average types                     
     886   ln_grid_global = .true. 
     887   ln_grid_search_lookup = .false. 
     888/  
     889!----------------------------------------------------------------------- 
     890&nam_asminc   !   assimilation increments                               ('key_asminc') 
     891!----------------------------------------------------------------------- 
     892    ln_bkgwri = .false.    !  Logical switch for writing out background state  
     893    ln_trjwri = .false.    !  Logical switch for writing out state trajectory 
     894    ln_trainc = .false.    !  Logical switch for applying tracer increments 
     895    ln_dyninc = .false.    !  Logical switch for applying velocity increments 
     896    ln_sshinc = .false.    !  Logical switch for applying SSH increments  
     897    ln_asmdin = .false.    !  Logical switch for Direct Initialization (DI) 
     898    ln_asmiau = .false.    !  Logical switch for Incremental Analysis Updating (IAU) 
     899    nitbkg    = 0          !  Timestep of background in [0,nitend-nit000-1] 
     900    nitdin    = 0          !  Timestep of background for DI in [0,nitend-nit000-1] 
     901    nitiaustr = 1          !  Timestep of start of IAU interval in [0,nitend-nit000-1] 
     902    nitiaufin = 15         !  Timestep of end of IAU interval in [0,nitend-nit000-1] 
     903    niaufn    = 0          !  Type of IAU weighting function 
     904    nittrjfrq = 0          !  Frequency of trajectory output for 4D-VAR 
     905    ln_salfix = .false.    !  Logical switch for ensuring that the sa > salfixmin 
     906    salfixmin = -9999      !  Minimum salinity after applying the increments 
     907/ 
     908!----------------------------------------------------------------------- 
     909&namdyn_nept  !   Neptune effect (simplified: lateral and vertical diffusions removed) 
     910!----------------------------------------------------------------------- 
     911   ! Suggested lengthscale values are those of Eby & Holloway (1994) for a coarse model 
     912   ln_neptsimp       = .false.  ! yes/no use simplified neptune 
     913 
     914   ln_smooth_neptvel = .false.  ! yes/no smooth zunep, zvnep 
     915   rn_tslse          =  1.2e4   ! value of lengthscale L at the equator 
     916   rn_tslsp          =  3.0e3   ! value of lengthscale L at the pole 
     917   ! Specify whether to ramp down the Neptune velocity in shallow 
     918   ! water, and if so the depth range controlling such ramping down 
     919   ln_neptramp       = .true.   ! ramp down Neptune velocity in shallow water 
     920   rn_htrmin         =  100.0   ! min. depth of transition range 
     921   rn_htrmax         =  200.0   ! max. depth of transition range 
     922/ 
  • branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/CONFIG/GYRE/EXP00/namelist

    r3101 r3108  
    408408   ln_bfr2d    = .false.   !  horizontal variation of the bottom friction coef (read a 2D mask file ) 
    409409   rn_bfrien   =    50.    !  local multiplying factor of bfr (ln_bfr2d = .true.) 
    410    ln_bfrimp   = .false.   !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
     410   ln_bfrimp   = .true.    !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
    411411/ 
    412412!----------------------------------------------------------------------- 
     
    522522   ln_hpg_zps  = .false.   !  z-coordinate - partial steps (interpolation) 
    523523   ln_hpg_sco  = .false.   !  s-coordinate (standard jacobian formulation) 
    524    ln_hpg_hel  = .false.   !  s-coordinate (helsinki modification) 
    525    ln_hpg_wdj  = .false.   !  s-coordinate (weighted density jacobian) 
    526524   ln_hpg_djc  = .false.   !  s-coordinate (Density Jacobian with Cubic polynomial) 
    527    ln_hpg_rot  = .false.   !  s-coordinate (ROTated axes scheme) 
    528525   ln_hpg_prj  = .false.   !  s-coordinate (Pressure Jacobian scheme) 
    529    rn_gamma    = 0.e0      !  weighting coefficient (wdj scheme) 
    530526   ln_dynhpg_imp = .false. !  time stepping: semi-implicit time scheme  (T) 
    531527                                 !           centered      time scheme  (F) 
  • branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist

    r3101 r3108  
    408408   ln_bfr2d    = .false.   !  horizontal variation of the bottom friction coef (read a 2D mask file ) 
    409409   rn_bfrien   =    50.    !  local multiplying factor of bfr (ln_bfr2d=T) 
    410    ln_bfrimp   = .false.   !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
     410   ln_bfrimp   = .true.    !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
    411411/ 
    412412!----------------------------------------------------------------------- 
     
    520520   ln_hpg_zps  = .true.    !  z-coordinate - partial steps (interpolation) 
    521521   ln_hpg_sco  = .false.   !  s-coordinate (standard jacobian formulation) 
    522    ln_hpg_hel  = .false.   !  s-coordinate (helsinki modification) 
    523    ln_hpg_wdj  = .false.   !  s-coordinate (weighted density jacobian) 
    524522   ln_hpg_djc  = .false.   !  s-coordinate (Density Jacobian with Cubic polynomial) 
    525    ln_hpg_rot  = .false.   !  s-coordinate (ROTated axes scheme) 
    526523   ln_hpg_prj  = .false.   !  s-coordinate (Pressure Jacobian scheme) 
    527    rn_gamma    = 0.e0      !  weighting coefficient (wdj scheme) 
    528524   ln_dynhpg_imp = .false. !  time stepping: semi-implicit time scheme  (T) 
    529525                                 !           centered      time scheme  (F) 
  • branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist

    r3101 r3108  
    408408   ln_bfr2d    = .false.   !  horizontal variation of the bottom friction coef (read a 2D mask file ) 
    409409   rn_bfrien   =    50.    !  local multiplying factor of bfr (ln_bfr2d=T) 
    410    ln_bfrimp   = .false.   !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
     410   ln_bfrimp   = .true.    !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
    411411/ 
    412412!----------------------------------------------------------------------- 
     
    522522   ln_hpg_zps  = .true.    !  z-coordinate - partial steps (interpolation) 
    523523   ln_hpg_sco  = .false.   !  s-coordinate (standard jacobian formulation) 
    524    ln_hpg_hel  = .false.   !  s-coordinate (helsinki modification) 
    525    ln_hpg_wdj  = .false.   !  s-coordinate (weighted density jacobian) 
    526524   ln_hpg_djc  = .false.   !  s-coordinate (Density Jacobian with Cubic polynomial) 
    527    ln_hpg_rot  = .false.   !  s-coordinate (ROTated axes scheme) 
    528525   ln_hpg_prj  = .false.   !  s-coordinate (Pressure Jacobian scheme) 
    529    rn_gamma    = 0.e0      !  weighting coefficient (wdj scheme) 
    530526   ln_dynhpg_imp = .false. !  time stepping: semi-implicit time scheme  (T) 
    531527                                 !           centered      time scheme  (F) 
  • branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist

    r3101 r3108  
    408408   ln_bfr2d    =   .false. !  horizontal variation of the bottom friction coef (read a 2D mask file ) 
    409409   rn_bfrien   =    50.    !  local multiplying factor of bfr (ln_bfr2d = .true.) 
    410    ln_bfrimp   = .false.   !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
     410   ln_bfrimp   = .true.    !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
    411411/ 
    412412!----------------------------------------------------------------------- 
     
    523523   ln_hpg_zps  = .true.    !  z-coordinate - partial steps (interpolation) 
    524524   ln_hpg_sco  = .false.   !  s-coordinate (standard jacobian formulation) 
    525    ln_hpg_hel  = .false.   !  s-coordinate (helsinki modification) 
    526    ln_hpg_wdj  = .false.   !  s-coordinate (weighted density jacobian) 
    527525   ln_hpg_djc  = .false.   !  s-coordinate (Density Jacobian with Cubic polynomial) 
    528    ln_hpg_rot  = .false.   !  s-coordinate (ROTated axes scheme) 
    529526   ln_hpg_prj  = .false.   !  s-coordinate (Pressure Jacobian scheme) 
    530    rn_gamma    = 0.e0      !  weighting coefficient (wdj scheme) 
    531527   ln_dynhpg_imp = .false. !  time stepping: semi-implicit time scheme  (T) 
    532528                                 !           centered      time scheme  (F) 
  • branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/CONFIG/POMME/EXP00/namelist

    r3101 r3108  
    408408   ln_bfr2d    = .false.   !  horizontal variation of the bottom friction coef (read a 2D mask file ) 
    409409   rn_bfrien   =    50.    !  local multiplying factor of bfr (ln_bfr2d=T) 
    410    ln_bfrimp   = .false.   !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
     410   ln_bfrimp   = .true.    !  implicit bottom friction (requires ln_zdfexp = .false. if true) 
    411411/ 
    412412!----------------------------------------------------------------------- 
     
    522522   ln_hpg_zps  = .true.    !  z-coordinate - partial steps (interpolation) 
    523523   ln_hpg_sco  = .false.   !  s-coordinate (standard jacobian formulation) 
    524    ln_hpg_hel  = .false.   !  s-coordinate (helsinki modification) 
    525    ln_hpg_wdj  = .false.   !  s-coordinate (weighted density jacobian) 
    526524   ln_hpg_djc  = .false.   !  s-coordinate (Density Jacobian with Cubic polynomial) 
    527    ln_hpg_rot  = .false.   !  s-coordinate (ROTated axes scheme) 
    528525   ln_hpg_prj  = .false.   !  s-coordinate (Pressure Jacobian scheme) 
    529    rn_gamma    = 0.e0      !  weighting coefficient (wdj scheme) 
    530526   ln_dynhpg_imp = .true.  !  time stepping: semi-implicit time scheme  (T) 
    531527                                 !           centered      time scheme  (F) 
  • branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r3102 r3108  
    1414   !!             -   !  2005-11  (G. Madec) style & small optimisation 
    1515   !!            3.3  !  2010-10  (C. Ethe, G. Madec) reorganisation of initialisation phase 
     16   !!            3.4  !  2011-11  (A. Coward, H. Liu) introduction of prj scheme;  
     17   !!                 !           suppression of hel, wdj and rot options 
    1618   !!---------------------------------------------------------------------- 
    1719 
     
    2325   !!       hpg_zps  : z-coordinate plus partial steps (interpolation) 
    2426   !!       hpg_sco  : s-coordinate (standard jacobian formulation) 
    25    !!       hpg_hel  : s-coordinate (helsinki modification) 
    26    !!       hpg_wdj  : s-coordinate (weighted density jacobian) 
    2727   !!       hpg_djc  : s-coordinate (Density Jacobian with Cubic polynomial) 
    28    !!       hpg_rot  : s-coordinate (ROTated axes scheme) 
    2928   !!       hpg_prj  : s-coordinate (Pressure Jacobian with Cubic polynomial) 
    3029   !!---------------------------------------------------------------------- 
     
    4948   LOGICAL , PUBLIC ::   ln_hpg_zps    = .FALSE.   !: z-coordinate - partial steps (interpolation) 
    5049   LOGICAL , PUBLIC ::   ln_hpg_sco    = .FALSE.   !: s-coordinate (standard jacobian formulation) 
    51    LOGICAL , PUBLIC ::   ln_hpg_hel    = .FALSE.   !: s-coordinate (helsinki modification) 
    52    LOGICAL , PUBLIC ::   ln_hpg_wdj    = .FALSE.   !: s-coordinate (weighted density jacobian) 
    5350   LOGICAL , PUBLIC ::   ln_hpg_djc    = .FALSE.   !: s-coordinate (Density Jacobian with Cubic polynomial) 
    54    LOGICAL , PUBLIC ::   ln_hpg_rot    = .FALSE.   !: s-coordinate (ROTated axes scheme) 
    5551   LOGICAL , PUBLIC ::   ln_hpg_prj    = .FALSE.   !: s-coordinate (Pressure Jacobian scheme) 
    56    REAL(wp), PUBLIC ::   rn_gamma      = 0._wp     !: weighting coefficient 
    5752   LOGICAL , PUBLIC ::   ln_dynhpg_imp = .FALSE.   !: semi-implicite hpg flag 
    5853 
     
    9893      CASE (  1 )   ;   CALL hpg_zps    ( kt )      ! z-coordinate plus partial steps (interpolation) 
    9994      CASE (  2 )   ;   CALL hpg_sco    ( kt )      ! s-coordinate (standard jacobian formulation) 
    100       CASE (  3 )   ;   CALL hpg_hel    ( kt )      ! s-coordinate (helsinki modification) 
    101       CASE (  4 )   ;   CALL hpg_wdj    ( kt )      ! s-coordinate (weighted density jacobian) 
    102       CASE (  5 )   ;   CALL hpg_djc    ( kt )      ! s-coordinate (Density Jacobian with Cubic polynomial) 
    103       CASE (  6 )   ;   CALL hpg_rot    ( kt )      ! s-coordinate (ROTated axes scheme) 
    104       CASE (  7 )   ;   CALL hpg_prj    ( kt )      ! s-coordinate (Pressure Jacobian scheme) 
     95      CASE (  3 )   ;   CALL hpg_djc    ( kt )      ! s-coordinate (Density Jacobian with Cubic polynomial) 
     96      CASE (  4 )   ;   CALL hpg_prj    ( kt )      ! s-coordinate (Pressure Jacobian scheme) 
    10597      END SELECT 
    10698      ! 
     
    131123      INTEGER ::   ioptio = 0      ! temporary integer 
    132124      !! 
    133       NAMELIST/namdyn_hpg/ ln_hpg_zco, ln_hpg_zps, ln_hpg_sco, ln_hpg_hel,    & 
    134          &                 ln_hpg_wdj, ln_hpg_djc, ln_hpg_rot, ln_hpg_prj,    & 
    135          &                 rn_gamma  , ln_dynhpg_imp 
     125      NAMELIST/namdyn_hpg/ ln_hpg_zco, ln_hpg_zps, ln_hpg_sco,     & 
     126         &                 ln_hpg_djc, ln_hpg_prj, ln_dynhpg_imp 
    136127      !!---------------------------------------------------------------------- 
    137128      ! 
     
    147138         WRITE(numout,*) '      z-coord. - partial steps (interpolation)          ln_hpg_zps    = ', ln_hpg_zps 
    148139         WRITE(numout,*) '      s-coord. (standard jacobian formulation)          ln_hpg_sco    = ', ln_hpg_sco 
    149          WRITE(numout,*) '      s-coord. (helsinki modification)                  ln_hpg_hel    = ', ln_hpg_hel 
    150          WRITE(numout,*) '      s-coord. (weighted density jacobian)              ln_hpg_wdj    = ', ln_hpg_wdj 
    151140         WRITE(numout,*) '      s-coord. (Density Jacobian: Cubic polynomial)     ln_hpg_djc    = ', ln_hpg_djc 
    152          WRITE(numout,*) '      s-coord. (ROTated axes scheme)                    ln_hpg_rot    = ', ln_hpg_rot 
    153141         WRITE(numout,*) '      s-coord. (Pressure Jacobian: Cubic polynomial)    ln_hpg_prj    = ', ln_hpg_prj 
    154          WRITE(numout,*) '      weighting coeff. (wdj scheme)                     rn_gamma      = ', rn_gamma 
    155142         WRITE(numout,*) '      time stepping: centered (F) or semi-implicit (T)  ln_dynhpg_imp = ', ln_dynhpg_imp 
    156143      ENDIF 
     
    165152      IF( ln_hpg_zps )   nhpg = 1 
    166153      IF( ln_hpg_sco )   nhpg = 2 
    167       IF( ln_hpg_hel )   nhpg = 3 
    168       IF( ln_hpg_wdj )   nhpg = 4 
    169       IF( ln_hpg_djc )   nhpg = 5 
    170       IF( ln_hpg_rot )   nhpg = 6 
    171       IF( ln_hpg_prj )   nhpg = 7 
     154      IF( ln_hpg_djc )   nhpg = 3 
     155      IF( ln_hpg_prj )   nhpg = 4 
    172156      ! 
    173157      !                               ! Consistency check 
     
    176160      IF( ln_hpg_zps )   ioptio = ioptio + 1 
    177161      IF( ln_hpg_sco )   ioptio = ioptio + 1 
    178       IF( ln_hpg_hel )   ioptio = ioptio + 1 
    179       IF( ln_hpg_wdj )   ioptio = ioptio + 1 
    180162      IF( ln_hpg_djc )   ioptio = ioptio + 1 
    181       IF( ln_hpg_rot )   ioptio = ioptio + 1 
    182163      IF( ln_hpg_prj )   ioptio = ioptio + 1 
    183164      IF( ioptio /= 1 )   CALL ctl_stop( 'NO or several hydrostatic pressure gradient options used' ) 
     
    428409   END SUBROUTINE hpg_sco 
    429410 
    430  
    431    SUBROUTINE hpg_hel( kt ) 
    432       !!--------------------------------------------------------------------- 
    433       !!                  ***  ROUTINE hpg_hel  *** 
    434       !! 
    435       !! ** Method  :   s-coordinate case. 
    436       !!      The now hydrostatic pressure gradient at a given level 
    437       !!      jk is computed by taking the vertical integral of the in-situ  
    438       !!      density gradient along the model level from the suface to that  
    439       !!      level. s-coordinates (ln_sco): a corrective term is added 
    440       !!      to the horizontal pressure gradient : 
    441       !!         zhpi = grav .....  + 1/e1u mi(rhd) di[ grav dep3w ] 
    442       !!         zhpj = grav .....  + 1/e2v mj(rhd) dj[ grav dep3w ] 
    443       !!      add it to the general momentum trend (ua,va). 
    444       !!         ua = ua - 1/e1u * zhpi 
    445       !!         va = va - 1/e2v * zhpj 
    446       !! 
    447       !! ** Action : - Update (ua,va) with the now hydrastatic pressure trend 
    448       !!             - Save the trend (l_trddyn=T) 
    449       !!---------------------------------------------------------------------- 
    450       USE oce, ONLY:   zhpi => ta , zhpj => sa   ! (ta,sa) used as 3D workspace 
    451       !! 
    452       INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
    453       !! 
    454       INTEGER  ::   ji, jj, jk           ! dummy loop indices 
    455       REAL(wp) ::   zcoef0, zuap, zvap   ! temporary scalars 
    456       !!---------------------------------------------------------------------- 
    457  
    458       IF( kt == nit000 ) THEN 
    459          IF(lwp) WRITE(numout,*) 
    460          IF(lwp) WRITE(numout,*) 'dyn:hpg_hel : hydrostatic pressure gradient trend' 
    461          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~   s-coordinate case, helsinki modified scheme' 
    462       ENDIF 
    463  
    464       ! Local constant initialization 
    465       zcoef0 = - grav * 0.5_wp 
    466   
    467       ! Surface value 
    468       DO jj = 2, jpjm1 
    469          DO ji = fs_2, fs_jpim1   ! vector opt. 
    470             ! hydrostatic pressure gradient along s-surfaces 
    471             zhpi(ji,jj,1) = zcoef0 / e1u(ji,jj) * ( fse3t(ji+1,jj  ,1) * rhd(ji+1,jj  ,1)  & 
    472                &                                  - fse3t(ji  ,jj  ,1) * rhd(ji  ,jj  ,1) ) 
    473             zhpj(ji,jj,1) = zcoef0 / e2v(ji,jj) * ( fse3t(ji  ,jj+1,1) * rhd(ji  ,jj+1,1)  & 
    474                &                                  - fse3t(ji  ,jj  ,1) * rhd(ji  ,jj  ,1) ) 
    475             ! s-coordinate pressure gradient correction 
    476             zuap = -zcoef0 * ( rhd   (ji+1,jj,1) + rhd   (ji,jj,1) )   & 
    477                &           * ( fsdept(ji+1,jj,1) - fsdept(ji,jj,1) ) / e1u(ji,jj) 
    478             zvap = -zcoef0 * ( rhd   (ji,jj+1,1) + rhd   (ji,jj,1) )   & 
    479                &           * ( fsdept(ji,jj+1,1) - fsdept(ji,jj,1) ) / e2v(ji,jj) 
    480             ! add to the general momentum trend 
    481             ua(ji,jj,1) = ua(ji,jj,1) + zhpi(ji,jj,1) + zuap 
    482             va(ji,jj,1) = va(ji,jj,1) + zhpj(ji,jj,1) + zvap 
    483          END DO 
    484       END DO 
    485       ! 
    486       ! interior value (2=<jk=<jpkm1) 
    487       DO jk = 2, jpkm1 
    488          DO jj = 2, jpjm1 
    489             DO ji = fs_2, fs_jpim1   ! vector opt. 
    490                ! hydrostatic pressure gradient along s-surfaces 
    491                zhpi(ji,jj,jk) = zhpi(ji,jj,jk-1) & 
    492                   &           +  zcoef0 / e1u(ji,jj) * ( fse3t(ji+1,jj,jk  ) * rhd(ji+1,jj,jk)     & 
    493                   &                                     -fse3t(ji  ,jj,jk  ) * rhd(ji  ,jj,jk)   ) & 
    494                   &           +  zcoef0 / e1u(ji,jj) * ( fse3t(ji+1,jj,jk-1) * rhd(ji+1,jj,jk-1)   & 
    495                   &                                     -fse3t(ji  ,jj,jk-1) * rhd(ji  ,jj,jk-1) ) 
    496                zhpj(ji,jj,jk) = zhpj(ji,jj,jk-1) & 
    497                   &           +  zcoef0 / e2v(ji,jj) * ( fse3t(ji,jj+1,jk  ) * rhd(ji,jj+1,jk)     & 
    498                   &                                     -fse3t(ji,jj  ,jk  ) * rhd(ji,jj,  jk)   ) & 
    499                   &           +  zcoef0 / e2v(ji,jj) * ( fse3t(ji,jj+1,jk-1) * rhd(ji,jj+1,jk-1)   & 
    500                   &                                     -fse3t(ji,jj  ,jk-1) * rhd(ji,jj,  jk-1) ) 
    501                ! s-coordinate pressure gradient correction 
    502                zuap = - zcoef0 * ( rhd   (ji+1,jj,jk) + rhd   (ji,jj,jk) )   & 
    503                   &            * ( fsdept(ji+1,jj,jk) - fsdept(ji,jj,jk) ) / e1u(ji,jj) 
    504                zvap = - zcoef0 * ( rhd   (ji,jj+1,jk) + rhd   (ji,jj,jk) )   & 
    505                   &            * ( fsdept(ji,jj+1,jk) - fsdept(ji,jj,jk) ) / e2v(ji,jj) 
    506                ! add to the general momentum trend 
    507                ua(ji,jj,jk) = ua(ji,jj,jk) + zhpi(ji,jj,jk) + zuap 
    508                va(ji,jj,jk) = va(ji,jj,jk) + zhpj(ji,jj,jk) + zvap 
    509             END DO 
    510          END DO 
    511       END DO 
    512       ! 
    513    END SUBROUTINE hpg_hel 
    514  
    515  
    516    SUBROUTINE hpg_wdj( kt ) 
    517       !!--------------------------------------------------------------------- 
    518       !!                  ***  ROUTINE hpg_wdj  *** 
    519       !! 
    520       !! ** Method  :   Weighted Density Jacobian (wdj) scheme (song 1998) 
    521       !!      The weighting coefficients from the namelist parameter rn_gamma 
    522       !!      (alpha=0.5-rn_gamma ; beta=1-alpha=0.5+rn_gamma 
    523       !! 
    524       !! Reference : Song, Mon. Wea. Rev., 126, 3213-3230, 1998. 
    525       !!---------------------------------------------------------------------- 
    526       USE oce, ONLY:   zhpi => ta , zhpj => sa   ! (ta,sa) used as 3D workspace 
    527       !! 
    528       INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
    529       !! 
    530       INTEGER  ::   ji, jj, jk           ! dummy loop indices 
    531       REAL(wp) ::   zcoef0, zuap, zvap   ! temporary scalars 
    532       REAL(wp) ::   zalph , zbeta        !    "         " 
    533       !!---------------------------------------------------------------------- 
    534  
    535       IF( kt == nit000 ) THEN 
    536          IF(lwp) WRITE(numout,*) 
    537          IF(lwp) WRITE(numout,*) 'dyn:hpg_wdj : hydrostatic pressure gradient trend' 
    538          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~   Weighted Density Jacobian' 
    539       ENDIF 
    540  
    541       ! Local constant initialization 
    542       zcoef0 = - grav * 0.5_wp 
    543       zalph  = 0.5_wp - rn_gamma    ! weighting coefficients (alpha=0.5-rn_gamma 
    544       zbeta  = 0.5_wp + rn_gamma    !                        (beta =1-alpha=0.5+rn_gamma 
    545  
    546       ! Surface value (no ponderation) 
    547       DO jj = 2, jpjm1 
    548          DO ji = fs_2, fs_jpim1   ! vector opt. 
    549             ! hydrostatic pressure gradient along s-surfaces 
    550             zhpi(ji,jj,1) = zcoef0 / e1u(ji,jj) * (  fse3w(ji+1,jj  ,1) * rhd(ji+1,jj  ,1)   & 
    551                &                                   - fse3w(ji  ,jj  ,1) * rhd(ji  ,jj  ,1)  ) 
    552             zhpj(ji,jj,1) = zcoef0 / e2v(ji,jj) * (  fse3w(ji  ,jj+1,1) * rhd(ji  ,jj+1,1)   & 
    553                &                                   - fse3w(ji  ,jj  ,1) * rhd(ji,  jj  ,1)  ) 
    554             ! s-coordinate pressure gradient correction 
    555             zuap = -zcoef0 * ( rhd   (ji+1,jj,1) + rhd   (ji,jj,1) )   & 
    556                &           * ( fsde3w(ji+1,jj,1) - fsde3w(ji,jj,1) ) / e1u(ji,jj) 
    557             zvap = -zcoef0 * ( rhd   (ji,jj+1,1) + rhd   (ji,jj,1) )   & 
    558                &           * ( fsde3w(ji,jj+1,1) - fsde3w(ji,jj,1) ) / e2v(ji,jj) 
    559             ! add to the general momentum trend 
    560             ua(ji,jj,1) = ua(ji,jj,1) + zhpi(ji,jj,1) + zuap 
    561             va(ji,jj,1) = va(ji,jj,1) + zhpj(ji,jj,1) + zvap 
    562          END DO 
    563       END DO 
    564  
    565       ! Interior value (2=<jk=<jpkm1) (weighted with zalph & zbeta) 
    566       DO jk = 2, jpkm1 
    567          DO jj = 2, jpjm1 
    568             DO ji = fs_2, fs_jpim1   ! vector opt. 
    569                zhpi(ji,jj,jk) = zhpi(ji,jj,jk-1) + zcoef0 / e1u(ji,jj)                            & 
    570                   &           * (   (            fsde3w(ji+1,jj,jk  ) + fsde3w(ji,jj,jk  )        & 
    571                   &                            - fsde3w(ji+1,jj,jk-1) - fsde3w(ji,jj,jk-1)    )   & 
    572                   &               * (  zalph * ( rhd   (ji+1,jj,jk-1) - rhd   (ji,jj,jk-1) )      & 
    573                   &                  + zbeta * ( rhd   (ji+1,jj,jk  ) - rhd   (ji,jj,jk  ) )  )   & 
    574                   &             -   (            rhd   (ji+1,jj,jk  ) + rhd   (ji,jj,jk  )        & 
    575                   &                           - rhd   (ji+1,jj,jk-1) - rhd   (ji,jj,jk-1)     )   & 
    576                   &               * (  zalph * ( fsde3w(ji+1,jj,jk-1) - fsde3w(ji,jj,jk-1) )      & 
    577                   &                  + zbeta * ( fsde3w(ji+1,jj,jk  ) - fsde3w(ji,jj,jk  ) )  )  ) 
    578                zhpj(ji,jj,jk) = zhpj(ji,jj,jk-1) + zcoef0 / e2v(ji,jj)                            & 
    579                   &           * (   (           fsde3w(ji,jj+1,jk  ) + fsde3w(ji,jj,jk  )         & 
    580                   &                           - fsde3w(ji,jj+1,jk-1) - fsde3w(ji,jj,jk-1)     )   & 
    581                   &               * (  zalph * ( rhd   (ji,jj+1,jk-1) - rhd   (ji,jj,jk-1) )      & 
    582                   &                  + zbeta * ( rhd   (ji,jj+1,jk  ) - rhd   (ji,jj,jk  ) )  )   & 
    583                   &             -   (            rhd   (ji,jj+1,jk  ) + rhd   (ji,jj,jk  )        & 
    584                   &                            - rhd   (ji,jj+1,jk-1) - rhd   (ji,jj,jk-1)    )   & 
    585                   &               * (  zalph * ( fsde3w(ji,jj+1,jk-1) - fsde3w(ji,jj,jk-1) )      & 
    586                   &                  + zbeta * ( fsde3w(ji,jj+1,jk  ) - fsde3w(ji,jj,jk  ) )  )  ) 
    587                ! add to the general momentum trend 
    588                ua(ji,jj,jk) = ua(ji,jj,jk) + zhpi(ji,jj,jk) 
    589                va(ji,jj,jk) = va(ji,jj,jk) + zhpj(ji,jj,jk) 
    590             END DO 
    591          END DO 
    592       END DO 
    593       ! 
    594    END SUBROUTINE hpg_wdj 
    595  
    596  
    597411   SUBROUTINE hpg_djc( kt ) 
    598412      !!--------------------------------------------------------------------- 
     
    826640 
    827641 
    828    SUBROUTINE hpg_rot( kt ) 
    829       !!--------------------------------------------------------------------- 
    830       !!                  ***  ROUTINE hpg_rot  *** 
    831       !! 
    832       !! ** Method  :   rotated axes scheme (Thiem and Berntsen 2005) 
    833       !! 
    834       !! Reference: Thiem & Berntsen, Ocean Modelling, In press, 2005. 
    835       !!---------------------------------------------------------------------- 
    836       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    837       USE oce     , ONLY:   zhpi    => ta       , zhpj    => sa       ! (ta,sa) used as 3D workspace 
    838       USE wrk_nemo, ONLY:   zdistr  => wrk_2d_1 , zsina   => wrk_2d_2 , zcosa  => wrk_2d_3 
    839       USE wrk_nemo, ONLY:   zhpiorg => wrk_3d_1 , zhpirot => wrk_3d_2 
    840       USE wrk_nemo, ONLY:   zhpitra => wrk_3d_3 , zhpine  => wrk_3d_4 
    841       USE wrk_nemo, ONLY:   zhpjorg => wrk_3d_5 , zhpjrot => wrk_3d_6 
    842       USE wrk_nemo, ONLY:   zhpjtra => wrk_3d_7 , zhpjne  => wrk_3d_8 
    843       !! 
    844       INTEGER, INTENT(in) ::   kt    ! ocean time-step index 
    845       !! 
    846       INTEGER  ::   ji, jj, jk          ! dummy loop indices 
    847       REAL(wp) ::   zforg, zcoef0, zuap, zmskd1, zmskd1m   ! temporary scalar 
    848       REAL(wp) ::   zfrot        , zvap, zmskd2, zmskd2m   !    "         " 
    849       !!---------------------------------------------------------------------- 
    850  
    851       IF( wrk_in_use(2, 1,2,3)             .OR.   & 
    852           wrk_in_use(3, 1,2,3,4,5,6,7,8) ) THEN 
    853          CALL ctl_stop('dyn:hpg_rot: requested workspace arrays unavailable')   ;   RETURN 
    854       ENDIF 
    855  
    856       IF( kt == nit000 ) THEN 
    857          IF(lwp) WRITE(numout,*) 
    858          IF(lwp) WRITE(numout,*) 'dyn:hpg_rot : hydrostatic pressure gradient trend' 
    859          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~   s-coordinate case, rotated axes scheme used' 
    860       ENDIF 
    861  
    862       ! ------------------------------- 
    863       !  Local constant initialization 
    864       ! ------------------------------- 
    865       zcoef0 = - grav * 0.5_wp 
    866       zforg  = 0.95_wp 
    867       zfrot  = 1._wp - zforg 
    868  
    869       ! inverse of the distance between 2 diagonal T-points (defined at F-point) (here zcoef0/distance) 
    870       zdistr(:,:) = zcoef0 / SQRT( e1f(:,:)*e1f(:,:) + e2f(:,:)*e1f(:,:) ) 
    871  
    872       ! sinus and cosinus of diagonal angle at F-point 
    873       zsina(:,:) = ATAN2( e2f(:,:), e1f(:,:) ) 
    874       zcosa(:,:) = COS( zsina(:,:) ) 
    875       zsina(:,:) = SIN( zsina(:,:) ) 
    876  
    877       ! --------------- 
    878       !  Surface value 
    879       ! --------------- 
    880       ! compute and add to the general trend the pressure gradients along the axes 
    881       DO jj = 2, jpjm1 
    882          DO ji = fs_2, fs_jpim1   ! vector opt. 
    883             ! hydrostatic pressure gradient along s-surfaces 
    884             zhpiorg(ji,jj,1) = zcoef0 / e1u(ji,jj) * (  fse3t(ji+1,jj,1) * rhd(ji+1,jj,1)   & 
    885                &                                      - fse3t(ji  ,jj,1) * rhd(ji  ,jj,1)  ) 
    886             zhpjorg(ji,jj,1) = zcoef0 / e2v(ji,jj) * (  fse3t(ji,jj+1,1) * rhd(ji,jj+1,1)   & 
    887                &                                      - fse3t(ji,jj  ,1) * rhd(ji,jj  ,1)  ) 
    888             ! s-coordinate pressure gradient correction 
    889             zuap = -zcoef0 * ( rhd   (ji+1,jj  ,1) + rhd   (ji,jj,1) )   & 
    890                &           * ( fsdept(ji+1,jj  ,1) - fsdept(ji,jj,1) ) / e1u(ji,jj) 
    891             zvap = -zcoef0 * ( rhd   (ji  ,jj+1,1) + rhd   (ji,jj,1) )   & 
    892                &           * ( fsdept(ji  ,jj+1,1) - fsdept(ji,jj,1) ) / e2v(ji,jj) 
    893             ! add to the general momentum trend 
    894             ua(ji,jj,1) = ua(ji,jj,1) + zforg * ( zhpiorg(ji,jj,1) + zuap ) 
    895             va(ji,jj,1) = va(ji,jj,1) + zforg * ( zhpjorg(ji,jj,1) + zvap ) 
    896          END DO 
    897       END DO 
    898  
    899       ! compute the pressure gradients in the diagonal directions 
    900       DO jj = 1, jpjm1 
    901          DO ji = 1, fs_jpim1   ! vector opt. 
    902             zmskd1 = tmask(ji+1,jj+1,1) * tmask(ji  ,jj,1)      ! mask in the 1st diagnonal 
    903             zmskd2 = tmask(ji  ,jj+1,1) * tmask(ji+1,jj,1)      ! mask in the 2nd diagnonal 
    904             ! hydrostatic pressure gradient along s-surfaces 
    905             zhpitra(ji,jj,1) = zdistr(ji,jj) * zmskd1 * (  fse3t(ji+1,jj+1,1) * rhd(ji+1,jj+1,1)   & 
    906                &                                         - fse3t(ji  ,jj  ,1) * rhd(ji  ,jj  ,1)  ) 
    907             zhpjtra(ji,jj,1) = zdistr(ji,jj) * zmskd2 * (  fse3t(ji  ,jj+1,1) * rhd(ji  ,jj+1,1)   & 
    908                &                                         - fse3t(ji+1,jj  ,1) * rhd(ji+1,jj  ,1)  ) 
    909             ! s-coordinate pressure gradient correction 
    910             zuap = -zdistr(ji,jj) * zmskd1 * ( rhd   (ji+1,jj+1,1) + rhd   (ji  ,jj,1) )   & 
    911                &                           * ( fsdept(ji+1,jj+1,1) - fsdept(ji  ,jj,1) ) 
    912             zvap = -zdistr(ji,jj) * zmskd2 * ( rhd   (ji  ,jj+1,1) + rhd   (ji+1,jj,1) )   & 
    913                &                           * ( fsdept(ji  ,jj+1,1) - fsdept(ji+1,jj,1) ) 
    914             ! back rotation 
    915             zhpine(ji,jj,1) = zcosa(ji,jj) * ( zhpitra(ji,jj,1) + zuap )   & 
    916                &            - zsina(ji,jj) * ( zhpjtra(ji,jj,1) + zvap ) 
    917             zhpjne(ji,jj,1) = zsina(ji,jj) * ( zhpitra(ji,jj,1) + zuap )   & 
    918                &            + zcosa(ji,jj) * ( zhpjtra(ji,jj,1) + zvap ) 
    919          END DO 
    920       END DO 
    921  
    922       ! interpolate and add to the general trend the diagonal gradient 
    923       DO jj = 2, jpjm1 
    924          DO ji = fs_2, fs_jpim1   ! vector opt. 
    925             ! averaging 
    926             zhpirot(ji,jj,1) = 0.5 * ( zhpine(ji,jj,1) + zhpine(ji  ,jj-1,1) ) 
    927             zhpjrot(ji,jj,1) = 0.5 * ( zhpjne(ji,jj,1) + zhpjne(ji-1,jj  ,1) ) 
    928             ! add to the general momentum trend 
    929             ua(ji,jj,1) = ua(ji,jj,1) + zfrot * zhpirot(ji,jj,1)  
    930             va(ji,jj,1) = va(ji,jj,1) + zfrot * zhpjrot(ji,jj,1)  
    931          END DO 
    932       END DO 
    933  
    934       ! ----------------- 
    935       ! 2. interior value (2=<jk=<jpkm1) 
    936       ! ----------------- 
    937       ! compute and add to the general trend the pressure gradients along the axes 
    938       DO jk = 2, jpkm1 
    939          DO jj = 2, jpjm1 
    940             DO ji = fs_2, fs_jpim1   ! vector opt. 
    941                ! hydrostatic pressure gradient along s-surfaces 
    942                zhpiorg(ji,jj,jk) = zhpiorg(ji,jj,jk-1)                                                 & 
    943                   &              +  zcoef0 / e1u(ji,jj) * (  fse3t(ji+1,jj,jk  ) * rhd(ji+1,jj,jk  )   & 
    944                   &                                        - fse3t(ji  ,jj,jk  ) * rhd(ji  ,jj,jk  )   & 
    945                   &                                        + fse3t(ji+1,jj,jk-1) * rhd(ji+1,jj,jk-1)   & 
    946                   &                                        - fse3t(ji  ,jj,jk-1) * rhd(ji  ,jj,jk-1)  ) 
    947                zhpjorg(ji,jj,jk) = zhpjorg(ji,jj,jk-1)                                                 & 
    948                   &              +  zcoef0 / e2v(ji,jj) * (  fse3t(ji,jj+1,jk  ) * rhd(ji,jj+1,jk  )   & 
    949                   &                                        - fse3t(ji,jj  ,jk  ) * rhd(ji,jj,  jk  )   & 
    950                   &                                        + fse3t(ji,jj+1,jk-1) * rhd(ji,jj+1,jk-1)   & 
    951                   &                                        - fse3t(ji,jj  ,jk-1) * rhd(ji,jj,  jk-1)  ) 
    952                ! s-coordinate pressure gradient correction 
    953                zuap = - zcoef0 * ( rhd   (ji+1,jj  ,jk) + rhd   (ji,jj,jk) )   & 
    954                   &            * ( fsdept(ji+1,jj  ,jk) - fsdept(ji,jj,jk) ) / e1u(ji,jj) 
    955                zvap = - zcoef0 * ( rhd   (ji  ,jj+1,jk) + rhd   (ji,jj,jk) )   & 
    956                   &            * ( fsdept(ji  ,jj+1,jk) - fsdept(ji,jj,jk) ) / e2v(ji,jj) 
    957                ! add to the general momentum trend 
    958                ua(ji,jj,jk) = ua(ji,jj,jk) + zforg*( zhpiorg(ji,jj,jk) + zuap ) 
    959                va(ji,jj,jk) = va(ji,jj,jk) + zforg*( zhpjorg(ji,jj,jk) + zvap ) 
    960             END DO 
    961          END DO 
    962       END DO 
    963  
    964       ! compute the pressure gradients in the diagonal directions 
    965       DO jk = 2, jpkm1 
    966          DO jj = 1, jpjm1 
    967             DO ji = 1, fs_jpim1   ! vector opt. 
    968                zmskd1  = tmask(ji+1,jj+1,jk  ) * tmask(ji  ,jj,jk  )      ! level jk   mask in the 1st diagnonal 
    969                zmskd1m = tmask(ji+1,jj+1,jk-1) * tmask(ji  ,jj,jk-1)      ! level jk-1    "               "      
    970                zmskd2  = tmask(ji  ,jj+1,jk  ) * tmask(ji+1,jj,jk  )      ! level jk   mask in the 2nd diagnonal 
    971                zmskd2m = tmask(ji  ,jj+1,jk-1) * tmask(ji+1,jj,jk-1)      ! level jk-1    "               "      
    972                ! hydrostatic pressure gradient along s-surfaces 
    973                zhpitra(ji,jj,jk) = zhpitra(ji,jj,jk-1)                                                       & 
    974                   &              + zdistr(ji,jj) * zmskd1  * ( fse3t(ji+1,jj+1,jk  ) * rhd(ji+1,jj+1,jk)     & 
    975                   &                                           -fse3t(ji  ,jj  ,jk  ) * rhd(ji  ,jj  ,jk) )   & 
    976                   &              + zdistr(ji,jj) * zmskd1m * ( fse3t(ji+1,jj+1,jk-1) * rhd(ji+1,jj+1,jk-1)   & 
    977                   &                                           -fse3t(ji  ,jj  ,jk-1) * rhd(ji  ,jj  ,jk-1) ) 
    978                zhpjtra(ji,jj,jk) = zhpjtra(ji,jj,jk-1)                                                       & 
    979                   &              + zdistr(ji,jj) * zmskd2  * ( fse3t(ji  ,jj+1,jk  ) * rhd(ji  ,jj+1,jk)     & 
    980                   &                                           -fse3t(ji+1,jj  ,jk  ) * rhd(ji+1,jj,  jk) )   & 
    981                   &              + zdistr(ji,jj) * zmskd2m * ( fse3t(ji  ,jj+1,jk-1) * rhd(ji  ,jj+1,jk-1)   & 
    982                   &                                           -fse3t(ji+1,jj  ,jk-1) * rhd(ji+1,jj,  jk-1) ) 
    983                ! s-coordinate pressure gradient correction 
    984                zuap = - zdistr(ji,jj) * zmskd1 * ( rhd   (ji+1,jj+1,jk) + rhd   (ji  ,jj,jk) )   & 
    985                   &                            * ( fsdept(ji+1,jj+1,jk) - fsdept(ji  ,jj,jk) ) 
    986                zvap = - zdistr(ji,jj) * zmskd2 * ( rhd   (ji  ,jj+1,jk) + rhd   (ji+1,jj,jk) )   & 
    987                   &                            * ( fsdept(ji  ,jj+1,jk) - fsdept(ji+1,jj,jk) ) 
    988                ! back rotation 
    989                zhpine(ji,jj,jk) = zcosa(ji,jj) * ( zhpitra(ji,jj,jk) + zuap )   & 
    990                   &             - zsina(ji,jj) * ( zhpjtra(ji,jj,jk) + zvap ) 
    991                zhpjne(ji,jj,jk) = zsina(ji,jj) * ( zhpitra(ji,jj,jk) + zuap )   & 
    992                   &             + zcosa(ji,jj) * ( zhpjtra(ji,jj,jk) + zvap ) 
    993             END DO 
    994          END DO 
    995       END DO 
    996  
    997       ! interpolate and add to the general trend 
    998       DO jk = 2, jpkm1 
    999          DO jj = 2, jpjm1 
    1000             DO ji = fs_2, fs_jpim1   ! vector opt. 
    1001                ! averaging 
    1002                zhpirot(ji,jj,jk) = 0.5 * ( zhpine(ji,jj,jk) + zhpine(ji  ,jj-1,jk) ) 
    1003                zhpjrot(ji,jj,jk) = 0.5 * ( zhpjne(ji,jj,jk) + zhpjne(ji-1,jj  ,jk) ) 
    1004                ! add to the general momentum trend 
    1005                ua(ji,jj,jk) = ua(ji,jj,jk) + zfrot * zhpirot(ji,jj,jk)  
    1006                va(ji,jj,jk) = va(ji,jj,jk) + zfrot * zhpjrot(ji,jj,jk)  
    1007             END DO 
    1008          END DO 
    1009       END DO 
    1010       ! 
    1011       IF( wrk_not_released(2, 1,2,3)           .OR.   & 
    1012           wrk_not_released(3, 1,2,3,4,5,6,7,8) )   CALL ctl_stop('dyn:hpg_rot: failed to release workspace arrays') 
    1013       ! 
    1014    END SUBROUTINE hpg_rot 
    1015  
    1016     
    1017642   SUBROUTINE hpg_prj( kt ) 
    1018643      !!--------------------------------------------------------------------- 
  • branches/2011/dev_NOC_UKMO_MERGE/NEMOGCM/SETTE/sette.sh

    r2756 r3108  
    126126## for (( config=2; config<=${NBTEST}; config++ )) 
    127127 
    128 for config in 1 2 3 4 5 6 7 8 
     128for config in 1 2 3 4 5 6 7 8 9 
    129129do 
    130130 
     
    414414fi 
    415415 
     416if [ ${config} -eq 9 ] ;  then 
     417# Restartability tests for AMM12 
     418    export TEST_NAME="LONG" 
     419    cd ${SETTE_DIR} 
     420    . ../CONFIG/makenemo -m ${CMP_NAM} -n AMM12 -r AMM12 
     421    cd ${SETTE_DIR} 
     422    . param.cfg 
     423    . all_functions.sh 
     424    . prepare_exe_dir.sh 
     425    cd ${EXE_DIR} 
     426    set_namelist namelist cn_exp \"AMM12_LONG\" 
     427    set_namelist namelist nn_it000 1 
     428    set_namelist namelist nn_itend 120 
     429    set_namelist namelist nn_stock 60 
     430    set_namelist namelist ln_clobber .true. 
     431    cd ${SETTE_DIR} 
     432    . ./fcm_job.sh input_AMM12.cfg 1 ${TEST_NAME} 
     433 
     434    cd ${SETTE_DIR} 
     435    export TEST_NAME="SHORT" 
     436    . prepare_exe_dir.sh 
     437    cd ${EXE_DIR} 
     438    set_namelist namelist cn_exp \"AMM12_SHORT\" 
     439    set_namelist namelist nn_it000 61 
     440    set_namelist namelist nn_itend 120 
     441    set_namelist namelist nn_stock 60 
     442    set_namelist namelist ln_rstart .true. 
     443    set_namelist namelist nn_rstctl 2 
     444    set_namelist namelist ln_clobber .true. 
     445    cp ..\/LONG\/AMM12_LONG_00000060_restart.nc . 
     446    set_namelist namelist cn_ocerst_in \"AMM12_LONG_00000060_restart.nc\" 
     447    cd ${SETTE_DIR} 
     448    . ./fcm_job.sh input_AMM12.cfg 1 ${TEST_NAME} 
     449fi 
    416450done 
Note: See TracChangeset for help on using the changeset viewer.