Changeset 3973


Ignore:
Timestamp:
2013-07-12T13:54:28+02:00 (7 years ago)
Author:
clevy
Message:

Configuration setting/Step3, see ticket:#1074

Location:
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM
Files:
5 added
16 deleted
39 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/AMM12/EXP00/namelist_cfg

    r3954 r3973  
    1515   nn_stock    =     2880  !  frequency of creation of a restart file (modulo referenced to 1) 
    1616   nn_write    =     144   !  frequency of write in the output file   (modulo referenced to nit000)  
     17/ 
     18!----------------------------------------------------------------------- 
     19&namcfg        !   parameters of the configuration 
     20!----------------------------------------------------------------------- 
     21   cp_cfg      =  "amm"                !  name of the configuration 
     22   jp_cfg      =     011               !  resolution of the configuration 
     23   jpidta      =     198               !  1st lateral dimension ( >= jpi ) 
     24   jpjdta      =     224               !  2nd    "         "    ( >= jpj ) 
     25   jpkdta      =      51               !  number of levels      ( >= jpk ) 
     26   jpiglo      =     198               !  1st dimension of global domain --> i =jpidta 
     27   jpjglo      =     224               !  2nd    -                  -    --> j  =jpjdta 
     28   jpizoom     =       1               !  left bottom (i,j) indices of the zoom 
     29   jpjzoom     =       1               !  in data domain indices 
     30   jperio      =       0               !  lateral cond. type (between 0 and 6) 
     31   jphgr_msh   =       0               !  type of horizontal mesh 
     32   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     33   ppgphi0     =  999999.0             ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     34   ppe1_deg    =  999999.0             !  zonal      grid-spacing (degrees) 
     35   ppe2_deg    =  999999.0             !  meridional grid-spacing (degrees) 
     36   ppe1_m      =  999999.0             !  zonal      grid-spacing (degrees) 
     37   ppe2_m      =  999999.0             !  meridional grid-spacing (degrees) 
     38   ppsur       =  999998.0             !  ORCA r4, r2 and r05 coefficients 
     39   ppa0        =  999998.0             ! (default coefficients) 
     40   ppa1        =  999998.0             ! 
     41   ppkth       =      23.563           ! 
     42   ppacr       =       9.0             ! 
     43   ppdzmin     =       6.0             !  Minimum vertical spacing 
     44   pphmax      =    5720.              !  Maximum depth 
     45   ldbletanh   =  .FALSE.              !  Use/do not use double tanf function for vertical coordinates 
     46   ppa2        =  999999.              !  Double tanh function parameters 
     47   ppkth2      =  999999.              ! 
     48   ppacr2      =  999999.              ! 
    1749/ 
    1850!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/AMM12/cpp_AMM12.fcm

    r3875 r3973  
    1  bld::tool::fppkeys  key_bdy key_tide key_vectopt_loop key_amm_12km  key_dynspg_ts key_ldfslp  key_zdfgls  key_vvl key_diainstant key_mpp_mpi key_iomput key_nosignedzero 
     1 bld::tool::fppkeys  key_bdy key_tide key_vectopt_loop key_dynspg_ts key_ldfslp  key_zdfgls  key_vvl key_diainstant key_mpp_mpi key_iomput key_nosignedzero 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE/EXP00/namelist_cfg

    r3875 r3973  
    22!! NEMO/OPA  : GYRE_PISCES Configuration namelist to overwrite reference dynamical namelist 
    33!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    4  
    5 !!====================================================================== 
    6 !!                   ***  Run management namelists  *** 
    7 !!====================================================================== 
    8 !!   namrun        parameters of the run 
    9 !!====================================================================== 
    10 ! 
    114!----------------------------------------------------------------------- 
    125&namrun        !   parameters of the run 
     
    1811   nn_write    =      60   !  frequency of write in the output file   (modulo referenced to nn_it000) 
    1912/ 
     13!----------------------------------------------------------------------- 
     14&namcfg     !   parameters of the configuration    
     15!----------------------------------------------------------------------- 
     16   cp_cfg      =  "gyre"                 !  name of the configuration 
     17   jp_cfg      =       1                 !  resolution of the configuration 
     18   jpidta      =      32                 !  1st lateral dimension ( >= jpi ) = 30*jp_cfg+2 
     19   jpjdta      =      22                 !  2nd    "         "    ( >= jpj ) = 20*jp_cfg+2  
     20   jpkdta      =      31                 !  number of levels      ( >= jpk ) 
     21   jpiglo      =      32                 !  1st dimension of global domain --> i  = jpidta 
     22   jpjglo      =      22                 !  2nd    -                  -    --> j  = jpjdta 
     23   jpizoom     =       1                 !  left bottom (i,j) indices of the zoom 
     24   jpjzoom     =       1                 !  in data domain indices 
     25   jperio      =       0                 !  lateral cond. type (between 0 and 6) 
     26   jphgr_msh   =       5                 !  type of horizontal mesh 
     27   ppglam0     =       0.0               !  longitude of first raw and column T-point (jphgr_msh = 1) 
     28   ppgphi0     =      29.0               ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     29   ppe1_deg    =  999999.0               !  zonal      grid-spacing (degrees) 
     30   ppe2_deg    =  999999.0               !  meridional grid-spacing (degrees) 
     31   ppe1_m      =  999999.0               !  zonal      grid-spacing (degrees) 
     32   ppe2_m      =  999999.0               !  meridional grid-spacing (degrees) 
     33   ppsur       =   -2033.194295283385    !  ORCA r4, r2 and r05 coefficients 
     34   ppa0        =     155.8325369664153   ! (default coefficients) 
     35   ppa1        =     146.3615918601890   ! 
     36   ppkth       =      17.28520372419791  ! 
     37   ppacr       =       5.0               ! 
     38   ppdzmin     =  999999.0               !  Minimum vertical spacing 
     39   pphmax      =  999999.0               !  Maximum depth 
     40   ldbletanh   =  .FALSE.                !  Use/do not use double tanf function for vertical coordinates 
     41   ppa2        =  999999.0               !  Double tanh function parameters 
     42   ppkth2      =  999999.0               ! 
     43   ppacr2      =  999999.0               ! 
     44/ 
     45!----------------------------------------------------------------------- 
    2046&namzgr        !   vertical coordinate 
    2147!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE/cpp_GYRE.fcm

    r3875 r3973  
    1  bld::tool::fppkeys key_gyre key_dynspg_flt key_ldfslp key_zdftke key_iomput key_mpp_mpi key_nosignedzero 
     1 bld::tool::fppkeys key_dynspg_flt key_ldfslp key_zdftke key_iomput key_mpp_mpi key_nosignedzero 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE_BFM/EXP00/namelist_cfg

    r3875 r3973  
    1818   nn_write    =      60   !  frequency of write in the output file   (modulo referenced to nn_it000) 
    1919/ 
     20!----------------------------------------------------------------------- 
     21&namcfg     !   parameters of the configuration    
     22!----------------------------------------------------------------------- 
     23   cp_cfg      =  "gyre"                 !  name of the configuration 
     24   jp_cfg      =       1                 !  resolution of the configuration 
     25   jpidta      =      32                 !  1st lateral dimension ( >= jpi ) = 30*jp_cfg+2 
     26   jpjdta      =      22                 !  2nd    "         "    ( >= jpj ) = 20*jp_cfg+2  
     27   jpkdta      =      31                 !  number of levels      ( >= jpk ) 
     28   jpiglo      =      32                 !  1st dimension of global domain --> i  = jpidta 
     29   jpjglo      =      22                 !  2nd    -                  -    --> j  = jpjdta 
     30   jpizoom     =       1                 !  left bottom (i,j) indices of the zoom 
     31   jpjzoom     =       1                 !  in data domain indices 
     32   jperio      =       0                 !  lateral cond. type (between 0 and 6) 
     33   jphgr_msh   =       5                 !  type of horizontal mesh 
     34   ppglam0     =       0.0               !  longitude of first raw and column T-point (jphgr_msh = 1) 
     35   ppgphi0     =      29.0               ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     36   ppe1_deg    =  999999.0               !  zonal      grid-spacing (degrees) 
     37   ppe2_deg    =  999999.0               !  meridional grid-spacing (degrees) 
     38   ppe1_m      =  999999.0               !  zonal      grid-spacing (degrees) 
     39   ppe2_m      =  999999.0               !  meridional grid-spacing (degrees) 
     40   ppsur       =   -2033.194295283385    !  ORCA r4, r2 and r05 coefficients 
     41   ppa0        =     155.8325369664153   ! (default coefficients) 
     42   ppa1        =     146.3615918601890   ! 
     43   ppkth       =      17.28520372419791  ! 
     44   ppacr       =       5.0               ! 
     45   ppdzmin     =  999999.0               !  Minimum vertical spacing 
     46   pphmax      =  999999.0               !  Maximum depth 
     47   ldbletanh   =  .FALSE.                !  Use/do not use double tanf function for vertical coordinates 
     48   ppa2        =  999999.0               !  Double tanh function parameters 
     49   ppkth2      =  999999.0               ! 
     50   ppacr2      =  999999.0               ! 
     51/ 
    2052&namzgr        !   vertical coordinate 
    2153!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE_BFM/cpp_GYRE_BFM.fcm

    r3875 r3973  
    1 bld::tool::fppkeys  key_gyre key_dynspg_flt key_ldfslp key_zdftke key_vectopt_loop key_top key_my_trc key_mpp_mpi key_iomput key_nosignedzero 
     1bld::tool::fppkeys  key_dynspg_flt key_ldfslp key_zdftke key_vectopt_loop key_top key_my_trc key_mpp_mpi key_iomput key_nosignedzero 
    22inc $BFMDIR/src/nemo/bfm.fcm 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE_PISCES/EXP00/namelist_cfg

    r3954 r3973  
    22!! NEMO/OPA  : GYRE_PISCES Configuration namelist to overwrite reference dynamical namelist 
    33!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    4  
    5 !!====================================================================== 
    6 !!                   ***  Run management namelists  *** 
    7 !!====================================================================== 
    8 !!   namrun        parameters of the run 
    9 !!====================================================================== 
    10 ! 
    114!----------------------------------------------------------------------- 
    125&namrun        !   parameters of the run 
     
    1811   nn_write    =      60   !  frequency of write in the output file   (modulo referenced to nn_it000) 
    1912/ 
     13!----------------------------------------------------------------------- 
     14&namcfg     !   parameters of the configuration    
     15!----------------------------------------------------------------------- 
     16   cp_cfg      =  "gyre"                 !  name of the configuration 
     17   jp_cfg      =       1                 !  resolution of the configuration 
     18   jpidta      =      32                 !  1st lateral dimension ( >= jpi ) = 30*jp_cfg+2 
     19   jpjdta      =      22                 !  2nd    "         "    ( >= jpj ) = 20*jp_cfg+2  
     20   jpkdta      =      31                 !  number of levels      ( >= jpk ) 
     21   jpiglo      =      32                 !  1st dimension of global domain --> i  = jpidta 
     22   jpjglo      =      22                 !  2nd    -                  -    --> j  = jpjdta 
     23   jpizoom     =       1                 !  left bottom (i,j) indices of the zoom 
     24   jpjzoom     =       1                 !  in data domain indices 
     25   jperio      =       0                 !  lateral cond. type (between 0 and 6) 
     26   jphgr_msh   =       5                 !  type of horizontal mesh 
     27   ppglam0     =       0.0               !  longitude of first raw and column T-point (jphgr_msh = 1) 
     28   ppgphi0     =      29.0               ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     29   ppe1_deg    =  999999.0               !  zonal      grid-spacing (degrees) 
     30   ppe2_deg    =  999999.0               !  meridional grid-spacing (degrees) 
     31   ppe1_m      =  999999.0               !  zonal      grid-spacing (degrees) 
     32   ppe2_m      =  999999.0               !  meridional grid-spacing (degrees) 
     33   ppsur       =   -2033.194295283385    !  ORCA r4, r2 and r05 coefficients 
     34   ppa0        =     155.8325369664153   ! (default coefficients) 
     35   ppa1        =     146.3615918601890   ! 
     36   ppkth       =      17.28520372419791  ! 
     37   ppacr       =       5.0               ! 
     38   ppdzmin     =  999999.0               !  Minimum vertical spacing 
     39   pphmax      =  999999.0               !  Maximum depth 
     40   ldbletanh   =  .FALSE.                !  Use/do not use double tanf function for vertical coordinates 
     41   ppa2        =  999999.0               !  Double tanh function parameters 
     42   ppkth2      =  999999.0               ! 
     43   ppacr2      =  999999.0               ! 
     44/ 
     45!----------------------------------------------------------------------- 
    2046&namzgr        !   vertical coordinate 
    2147!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE_PISCES/cpp_GYRE_PISCES.fcm

    r3875 r3973  
    1 bld::tool::fppkeys  key_gyre key_dynspg_flt key_ldfslp key_zdftke key_top key_pisces_reduced key_iomput key_mpp_mpi  key_nosignedzero 
     1bld::tool::fppkeys  key_dynspg_flt key_ldfslp key_zdftke key_top key_pisces_reduced key_iomput key_mpp_mpi  key_nosignedzero 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist_cfg

    r3954 r3973  
    99   nn_stock    =   10950   !  frequency of creation of a restart file (modulo referenced to 1) 
    1010   nn_write    =   10950   !  frequency of write in the output file   (modulo referenced to nn_it000) 
     11/ 
     12!----------------------------------------------------------------------- 
     13&namcfg        !   parameters of the configuration 
     14!----------------------------------------------------------------------- 
     15   cp_cfg      =  "orca"               !  name of the configuration 
     16   jp_cfg      =      -1               !  resolution of the configuration 
     17   jpidta      =     182               !  1st lateral dimension ( >= jpi ) 
     18   jpjdta      =     149               !  2nd    "         "    ( >= jpj ) 
     19   jpkdta      =      31               !  number of levels      ( >= jpk ) 
     20   jpiglo      =     182               !  1st dimension of global domain --> i =jpidta 
     21   jpjglo      =     149               !  2nd    -                  -    --> j  =jpjdta 
     22   jpizoom     =       1               !  left bottom (i,j) indices of the zoom 
     23   jpjzoom     =       1               !  in data domain indices 
     24   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     25   jphgr_msh   =       0               !  type of horizontal mesh 
     26   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     27   ppgphi0     =  999999.0             ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     28   ppe1_deg    =  999999.0             !  zonal      grid-spacing (degrees) 
     29   ppe2_deg    =  999999.0             !  meridional grid-spacing (degrees) 
     30   ppe1_m      =  999999.0             !  zonal      grid-spacing (degrees) 
     31   ppe2_m      =  999999.0             !  meridional grid-spacing (degrees) 
     32   ppsur       =   -4762.96143546300   !  ORCA r4, r2 and r05 coefficients 
     33   ppa0        =     255.58049070440   ! (default coefficients) 
     34   ppa1        =     245.58132232490   ! 
     35   ppkth       =      21.43336197938   ! 
     36   ppacr       =       3.0             ! 
     37   ppdzmin     =  999999.              !  Minimum vertical spacing 
     38   pphmax      =  999999.              !  Maximum depth 
     39   ldbletanh   =  .FALSE.              !  Use/do not use double tanf function for vertical coordinates 
     40   ppa2        =  999999.              !  Double tanh function parameters 
     41   ppkth2      =  999999.              ! 
     42   ppacr2      =  999999.              ! 
    1143/ 
    1244!----------------------------------------------------------------------- 
     
    2456&namtsd    !   data : Temperature  & Salinity 
    2557!----------------------------------------------------------------------- 
    26    ln_tsd_init   = .false.   !  Initialisation of ocean T & S with T &S input data (T) or not (F) 
    27    ln_tsd_tradmp = .false.   !  damping of ocean T & S toward T &S input data (T) or not (F) 
    2858/ 
    2959!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist_cfg

    r3954 r3973  
    66&namrun        !   parameters of the run 
    77!----------------------------------------------------------------------- 
    8    nn_itend    =    100   !  last  time step (std 5475) 
    9    nn_write    =    10     !  frequency of write in the output file   (modulo referenced to nn_it000) 
     8   nn_itend    =    100    !  last  time step (std 5475) 
     9   nn_write    =     10    !  frequency of write in the output file   (modulo referenced to nn_it000) 
     10/ 
     11!----------------------------------------------------------------------- 
     12&namcfg        !   parameters of the configuration 
     13!----------------------------------------------------------------------- 
     14   cp_cfg      =  "orca"               !  name of the configuration 
     15   jp_cfg      =       2               !  resolution of the configuration 
     16   jpidta      =     182               !  1st lateral dimension ( >= jpi ) 
     17   jpjdta      =     149               !  2nd    "         "    ( >= jpj ) 
     18   jpkdta      =      31               !  number of levels      ( >= jpk ) 
     19   jpiglo      =     182               !  1st dimension of global domain --> i =jpidta 
     20   jpjglo      =     149               !  2nd    -                  -    --> j  =jpjdta 
     21   jpizoom     =       1               !  left bottom (i,j) indices of the zoom 
     22   jpjzoom     =       1               !  in data domain indices 
     23   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     24   jphgr_msh   =       0               !  type of horizontal mesh 
     25   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     26   ppgphi0     =  999999.0             ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     27   ppe1_deg    =  999999.0             !  zonal      grid-spacing (degrees) 
     28   ppe2_deg    =  999999.0             !  meridional grid-spacing (degrees) 
     29   ppe1_m      =  999999.0             !  zonal      grid-spacing (degrees) 
     30   ppe2_m      =  999999.0             !  meridional grid-spacing (degrees) 
     31   ppsur       =   -4762.96143546300   !  ORCA r4, r2 and r05 coefficients 
     32   ppa0        =     255.58049070440   ! (default coefficients) 
     33   ppa1        =     245.58132232490   ! 
     34   ppkth       =      21.43336197938   ! 
     35   ppacr       =       3.0             ! 
     36   ppdzmin     =  999999.              !  Minimum vertical spacing 
     37   pphmax      =  999999.              !  Maximum depth 
     38   ldbletanh   =  .FALSE.              !  Use/do not use double tanf function for vertical coordinates 
     39   ppa2        =  999999.              !  Double tanh function parameters 
     40   ppkth2      =  999999.              ! 
     41   ppacr2      =  999999.              ! 
    1042/ 
    1143!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM/cpp_ORCA2_LIM.fcm

    r3875 r3973  
    1  bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_iomput key_mpp_mpi key_nosignedzero 
     1 bld::tool::fppkeys key_trabbl key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_iomput key_mpp_mpi key_nosignedzero 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM_CFC_C14b/EXP00/namelist_cfg

    r3875 r3973  
    1616/ 
    1717!----------------------------------------------------------------------- 
     18&namcfg        !   parameters of the configuration 
     19!----------------------------------------------------------------------- 
     20   cp_cfg      =  "orca"               !  name of the configuration 
     21   jp_cfg      =       2               !  resolution of the configuration 
     22   jpidta      =     182               !  1st lateral dimension ( >= jpi ) 
     23   jpjdta      =     149               !  2nd    "         "    ( >= jpj ) 
     24   jpkdta      =      31               !  number of levels      ( >= jpk ) 
     25   jpiglo      =     182               !  1st dimension of global domain --> i =jpidta 
     26   jpjglo      =     149               !  2nd    -                  -    --> j  =jpjdta 
     27   jpizoom     =       1               !  left bottom (i,j) indices of the zoom 
     28   jpjzoom     =       1               !  in data domain indices 
     29   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     30   jphgr_msh   =       0               !  type of horizontal mesh 
     31   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     32   ppgphi0     =  999999.0             ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     33   ppe1_deg    =  999999.0             !  zonal      grid-spacing (degrees) 
     34   ppe2_deg    =  999999.0             !  meridional grid-spacing (degrees) 
     35   ppe1_m      =  999999.0             !  zonal      grid-spacing (degrees) 
     36   ppe2_m      =  999999.0             !  meridional grid-spacing (degrees) 
     37   ppsur       =   -4762.96143546300   !  ORCA r4, r2 and r05 coefficients 
     38   ppa0        =     255.58049070440   ! (default coefficients) 
     39   ppa1        =     245.58132232490   ! 
     40   ppkth       =      21.43336197938   ! 
     41   ppacr       =       3.0             ! 
     42   ppdzmin     =  999999.              !  Minimum vertical spacing 
     43   pphmax      =  999999.              !  Maximum depth 
     44   ldbletanh   =  .FALSE.              !  Use/do not use double tanf function for vertical coordinates 
     45   ppa2        =  999999.              !  Double tanh function parameters 
     46   ppkth2      =  999999.              ! 
     47   ppacr2      =  999999.              ! 
     48/ 
     49!----------------------------------------------------------------------- 
    1850&namzgr        !   vertical coordinate 
    1951!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM_CFC_C14b/cpp_ORCA2_LIM_CFC_C14b.fcm

    r3875 r3973  
    1 bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_top key_cfc key_c14b key_iomput key_mpp_mpi key_nosignedzero 
     1bld::tool::fppkeys key_trabbl key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_top key_cfc key_c14b key_iomput key_mpp_mpi key_nosignedzero 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_cfg

    r3954 r3973  
    88   nn_itend    =    100   !  last  time step (std 5475) 
    99   nn_write    =    10     !  frequency of write in the output file   (modulo referenced to nn_it000) 
     10/ 
     11!----------------------------------------------------------------------- 
     12&namcfg        !   parameters of the configuration 
     13!----------------------------------------------------------------------- 
     14   cp_cfg      =  "orca"               !  name of the configuration 
     15   jp_cfg      =       2               !  resolution of the configuration 
     16   jpidta      =     182               !  1st lateral dimension ( >= jpi ) 
     17   jpjdta      =     149               !  2nd    "         "    ( >= jpj ) 
     18   jpkdta      =      31               !  number of levels      ( >= jpk ) 
     19   jpiglo      =     182               !  1st dimension of global domain --> i =jpidta 
     20   jpjglo      =     149               !  2nd    -                  -    --> j  =jpjdta 
     21   jpizoom     =       1               !  left bottom (i,j) indices of the zoom 
     22   jpjzoom     =       1               !  in data domain indices 
     23   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     24   jphgr_msh   =       0               !  type of horizontal mesh 
     25   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     26   ppgphi0     =  999999.0             ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     27   ppe1_deg    =  999999.0             !  zonal      grid-spacing (degrees) 
     28   ppe2_deg    =  999999.0             !  meridional grid-spacing (degrees) 
     29   ppe1_m      =  999999.0             !  zonal      grid-spacing (degrees) 
     30   ppe2_m      =  999999.0             !  meridional grid-spacing (degrees) 
     31   ppsur       =   -4762.96143546300   !  ORCA r4, r2 and r05 coefficients 
     32   ppa0        =     255.58049070440   ! (default coefficients) 
     33   ppa1        =     245.58132232490   ! 
     34   ppkth       =      21.43336197938   ! 
     35   ppacr       =       3.0             ! 
     36   ppdzmin     =  999999.              !  Minimum vertical spacing 
     37   pphmax      =  999999.              !  Maximum depth 
     38   ldbletanh   =  .FALSE.              !  Use/do not use double tanf function for vertical coordinates 
     39   ppa2        =  999999.              !  Double tanh function parameters 
     40   ppkth2      =  999999.              ! 
     41   ppacr2      =  999999.              ! 
    1042/ 
    1143!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/cpp_ORCA2_LIM_PISCES.fcm

    r3875 r3973  
    1 bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_top key_pisces key_iomput key_mpp_mpi key_nosignedzero 
     1bld::tool::fppkeys key_trabbl key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_top key_pisces key_iomput key_mpp_mpi key_nosignedzero 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist_cfg

    r3954 r3973  
    99   nn_stock    =    1460   !  frequency of creation of a restart file (modulo referenced to 1) 
    1010   nn_write    =    100   !  frequency of write in the output file   (modulo referenced to nn_it000) 
     11/ 
     12!----------------------------------------------------------------------- 
     13&namcfg        !   parameters of the configuration 
     14!----------------------------------------------------------------------- 
     15   cp_cfg      =  "orca"               !  name of the configuration 
     16   jp_cfg      =       2               !  resolution of the configuration 
     17   jpidta      =     182               !  1st lateral dimension ( >= jpi ) 
     18   jpjdta      =     149               !  2nd    "         "    ( >= jpj ) 
     19   jpkdta      =      31               !  number of levels      ( >= jpk ) 
     20   jpiglo      =     182               !  1st dimension of global domain --> i =jpidta 
     21   jpjglo      =     149               !  2nd    -                  -    --> j  =jpjdta 
     22   jpizoom     =       1               !  left bottom (i,j) indices of the zoom 
     23   jpjzoom     =       1               !  in data domain indices 
     24   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     25   jphgr_msh   =       0               !  type of horizontal mesh 
     26   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     27   ppgphi0     =  999999.0             ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     28   ppe1_deg    =  999999.0             !  zonal      grid-spacing (degrees) 
     29   ppe2_deg    =  999999.0             !  meridional grid-spacing (degrees) 
     30   ppe1_m      =  999999.0             !  zonal      grid-spacing (degrees) 
     31   ppe2_m      =  999999.0             !  meridional grid-spacing (degrees) 
     32   ppsur       =   -4762.96143546300   !  ORCA r4, r2 and r05 coefficients 
     33   ppa0        =     255.58049070440   ! (default coefficients) 
     34   ppa1        =     245.58132232490   ! 
     35   ppkth       =      21.43336197938   ! 
     36   ppacr       =       3.0             ! 
     37   ppdzmin     =  999999.              !  Minimum vertical spacing 
     38   pphmax      =  999999.              !  Maximum depth 
     39   ldbletanh   =  .FALSE.              !  Use/do not use double tanf function for vertical coordinates 
     40   ppa2        =  999999.              !  Double tanh function parameters 
     41   ppkth2      =  999999.              ! 
     42   ppacr2      =  999999.              ! 
    1143/ 
    1244!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/cpp_ORCA2_OFF_PISCES.fcm

    r3875 r3973  
    1 bld::tool::fppkeys key_trabbl key_orca_r2 key_ldfslp key_traldf_c2d key_traldf_eiv key_top key_offline key_pisces key_iomput key_mpp_mpi key_nosignedzero 
     1bld::tool::fppkeys key_trabbl key_ldfslp key_traldf_c2d key_traldf_eiv key_top key_offline key_pisces key_iomput key_mpp_mpi key_nosignedzero 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/namelist_cfg

    r3954 r3973  
    88   nn_it000    =       1   !  first time step 
    99   nn_itend    =     100   !  last  time step (std 5475) 
     10/ 
     11!----------------------------------------------------------------------- 
     12&namcfg        !   parameters of the configuration 
     13!----------------------------------------------------------------------- 
     14   cp_cfg      =  "orca"               !  name of the configuration 
     15   jp_cfg      =       2               !  resolution of the configuration 
     16   jpidta      =     182               !  1st lateral dimension ( >= jpi ) 
     17   jpjdta      =     149               !  2nd    "         "    ( >= jpj ) 
     18   jpkdta      =      31               !  number of levels      ( >= jpk ) 
     19   jpiglo      =     182               !  1st dimension of global domain --> i =jpidta 
     20   jpjglo      =     149               !  2nd    -                  -    --> j  =jpjdta 
     21   jpizoom     =       1               !  left bottom (i,j) indices of the zoom 
     22   jpjzoom     =       1               !  in data domain indices 
     23   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     24   jphgr_msh   =       0               !  type of horizontal mesh 
     25   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     26   ppgphi0     =  999999.0             ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     27   ppe1_deg    =  999999.0             !  zonal      grid-spacing (degrees) 
     28   ppe2_deg    =  999999.0             !  meridional grid-spacing (degrees) 
     29   ppe1_m      =  999999.0             !  zonal      grid-spacing (degrees) 
     30   ppe2_m      =  999999.0             !  meridional grid-spacing (degrees) 
     31   ppsur       =   -4762.96143546300   !  ORCA r4, r2 and r05 coefficients 
     32   ppa0        =     255.58049070440   ! (default coefficients) 
     33   ppa1        =     245.58132232490   ! 
     34   ppkth       =      21.43336197938   ! 
     35   ppacr       =       3.0             ! 
     36   ppdzmin     =  999999.              !  Minimum vertical spacing 
     37   pphmax      =  999999.              !  Maximum depth 
     38   ldbletanh   =  .FALSE.              !  Use/do not use double tanf function for vertical coordinates 
     39   ppa2        =  999999.              !  Double tanh function parameters 
     40   ppkth2      =  999999.              ! 
     41   ppacr2      =  999999.              ! 
    1042/ 
    1143!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_SAS_LIM/cpp_ORCA2_SAS_LIM.fcm

    r3875 r3973  
    1  bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_iomput key_mpp_mpi key_nosignedzero 
     1 bld::tool::fppkeys key_trabbl key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_iomput key_mpp_mpi key_nosignedzero 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/SHARED/1_namelist_ref

    r3954 r3973  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! NEMO/OPA  :  1 - run manager      (namrun) 
     2!! NEMO/OPA  :  1 - run manager      (namrun, namcfg) 
    33!! namelists    2 - Domain           (namzgr, namzgr_sco, namdom, namtsd) 
    44!!              3 - Surface boundary (namsbc, namsbc_ana, namsbc_flx, namsbc_clio, namsbc_core, namsbc_sas 
     
    4545   nn_chunksz  =       0   !  chunksize (bytes) for NetCDF file (works only with iom_nf90 routines) 
    4646/ 
    47  
     47!----------------------------------------------------------------------- 
     48&namcfg        !   parameters of the configuration 
     49!----------------------------------------------------------------------- 
     50   cp_cfg      =  "default"            !  name of the configuration 
     51   jp_cfg      =       0               !  resolution of the configuration 
     52   jpidta      =      10               !  1st lateral dimension ( >= jpi ) 
     53   jpjdta      =      12               !  2nd    "         "    ( >= jpj ) 
     54   jpkdta      =      31               !  number of levels      ( >= jpk ) 
     55   jpiglo      =      10               !  1st dimension of global domain --> i =jpidta 
     56   jpjglo      =      12               !  2nd    -                  -    --> j  =jpjdta 
     57   jpizoom     =       1               !  left bottom (i,j) indices of the zoom 
     58   jpjzoom     =       1               !  in data domain indices 
     59   jperio      =       0               !  lateral cond. type (between 0 and 6) 
     60                                       !  = 0 closed                 ;   = 1 cyclic East-West 
     61                                       !  = 2 equatorial symmetric   ;   = 3 North fold T-point pivot  
     62                                       !  = 4 cyclic East-West AND North fold T-point pivot 
     63                                       !  = 5 North fold F-point pivot 
     64                                       !  = 6 cyclic East-West AND North fold F-point pivot 
     65   jphgr_msh   =       0               !  type of horizontal mesh 
     66                                       !  = 0 curvilinear coordinate on the sphere read in coordinate.nc 
     67                                       !  = 1 geographical mesh on the sphere with regular grid-spacing 
     68                                       !  = 2 f-plane with regular grid-spacing 
     69                                       !  = 3 beta-plane with regular grid-spacing 
     70                                       !  = 4 Mercator grid with T/U point at the equator 
     71   ppglam0     =       0.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     72   ppgphi0     =     -35.0             ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     73   ppe1_deg    =       1.0             !  zonal      grid-spacing (degrees) 
     74   ppe2_deg    =       0.5             !  meridional grid-spacing (degrees) 
     75   ppe1_m      =    5000.0             !  zonal      grid-spacing (degrees) 
     76   ppe2_m      =    5000.0             !  meridional grid-spacing (degrees) 
     77   ppsur       =    -4762.96143546300  !  ORCA r4, r2 and r05 coefficients 
     78   ppa0        =      255.58049070440  ! (default coefficients) 
     79   ppa1        =      245.58132232490  ! 
     80   ppkth       =       21.43336197938  ! 
     81   ppacr       =        3.0            ! 
     82   ppdzmin     =       10.             !  Minimum vertical spacing 
     83   pphmax      =     5000.             !  Maximum depth 
     84   ldbletanh   =    .TRUE.             !  Use/do not use double tanf function for vertical coordinates 
     85   ppa2        =      100.760928500000 !  Double tanh function parameters 
     86   ppkth2      =       48.029893720000 ! 
     87   ppacr2      =       13.000000000000 ! 
     88/ 
    4889!!====================================================================== 
    4990!!                      ***  Domain namelists  *** 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/SHARED/namelist_ref

    r3954 r3973  
    11!!>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    2 !! NEMO/OPA  :  1 - run manager      (namrun) 
     2!! NEMO/OPA  :  1 - run manager      (namrun, namcfg) 
    33!! namelists    2 - Domain           (namzgr, namzgr_sco, namdom, namtsd) 
    44!!              3 - Surface boundary (namsbc, namsbc_ana, namsbc_flx, namsbc_clio, namsbc_core, namsbc_sas 
     
    1717!!====================================================================== 
    1818!!                   ***  Run management namelists  *** 
     19 
    1920!!====================================================================== 
    2021!!   namrun        parameters of the run 
     
    4546   nn_chunksz  =       0   !  chunksize (bytes) for NetCDF file (works only with iom_nf90 routines) 
    4647/ 
    47  
     48! 
     49!----------------------------------------------------------------------- 
     50&namcfg     !   parameters of the configuration (to be changed in your namelist_cfg in CONFIG/"YOUR_CONFIG"/EXP00 
     51!      For ORCA2 Antartic zoom, use &namcfg from ORCA2_LIM/EXP00/namelist_cfg changing  
     52!          jpjglo = 50, jperio = 1, 
     53!      For ORCA2 Arctic zoom, use &namcfg from ORCA2_LIM/EXP00/namelist_cfg changing 
     54!          jpiglo = 142, jpjglo = jpjdta-97+1, jpizoom =  21, jpjzoom = 97, jperio = 3 
     55!      For 1D configuration, use &namcfg from ORCA2_LIM/EXP00/namelist_cfg changing 
     56!          jpiglo = 3, jpjglo = 3, jperio = 0 and choose postion of the 1D column:  
     57!            jpizoom =   61, jpjzoom =   133  (160W,75N) 
     58!            jpizoom =   61, jpjzoom =   110  (160W,50N) 
     59!            jpizoom =   61, jpjzoom =   97   (160W,30N) 
     60!            jpizoom =   61, jpjzoom =   86   (160W,10N) 
     61!            jpizoom =   61, jpjzoom =   49   (160W,30S) 
     62!            jpizoom =   61, jpjzoom =   27   (160W,60S) 
     63!            jpizoom =   61, jpjzoom =    7   (160W,75S) 
     64!            jpizoom =   110,jpjzoom =   97   (64W,31.5N) BATS site 
     65!      
     66!----------------------------------------------------------------------- 
     67   cp_cfg      =  "default"            !  name of the configuration 
     68   jp_cfg      =       0               !  resolution of the configuration 
     69   jpidta      =      10               !  1st lateral dimension ( >= jpi ) 
     70   jpjdta      =      12               !  2nd    "         "    ( >= jpj ) 
     71   jpkdta      =      31               !  number of levels      ( >= jpk ) 
     72   jpiglo      =      10               !  1st dimension of global domain --> i =jpidta 
     73   jpjglo      =      12               !  2nd    -                  -    --> j  =jpjdta 
     74   jpizoom     =       1               !  left bottom (i,j) indices of the zoom 
     75   jpjzoom     =       1               !  in data domain indices 
     76   jperio      =       0               !  lateral cond. type (between 0 and 6) 
     77                                       !  = 0 closed                 ;   = 1 cyclic East-West 
     78                                       !  = 2 equatorial symmetric   ;   = 3 North fold T-point pivot  
     79                                       !  = 4 cyclic East-West AND North fold T-point pivot 
     80                                       !  = 5 North fold F-point pivot 
     81                                       !  = 6 cyclic East-West AND North fold F-point pivot 
     82   jphgr_msh   =       0               !  type of horizontal mesh 
     83                                       !  = 0 curvilinear coordinate on the sphere read in coordinate.nc 
     84                                       !  = 1 geographical mesh on the sphere with regular grid-spacing 
     85                                       !  = 2 f-plane with regular grid-spacing 
     86                                       !  = 3 beta-plane with regular grid-spacing 
     87                                       !  = 4 Mercator grid with T/U point at the equator 
     88   ppglam0     =       0.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     89   ppgphi0     =     -35.0             ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     90   ppe1_deg    =       1.0             !  zonal      grid-spacing (degrees) 
     91   ppe2_deg    =       0.5             !  meridional grid-spacing (degrees) 
     92   ppe1_m      =    5000.0             !  zonal      grid-spacing (degrees) 
     93   ppe2_m      =    5000.0             !  meridional grid-spacing (degrees) 
     94   ppsur       =    -4762.96143546300  !  ORCA r4, r2 and r05 coefficients 
     95   ppa0        =      255.58049070440  ! (default coefficients) 
     96   ppa1        =      245.58132232490  ! 
     97   ppkth       =       21.43336197938  ! 
     98   ppacr       =        3.0            ! 
     99   ppdzmin     =       10.             !  Minimum vertical spacing 
     100   pphmax      =     5000.             !  Maximum depth 
     101   ldbletanh   =    .TRUE.             !  Use/do not use double tanf function for vertical coordinates 
     102   ppa2        =      100.760928500000 !  Double tanh function parameters 
     103   ppkth2      =       48.029893720000 ! 
     104   ppacr2      =       13.000000000000 ! 
     105/ 
    48106!!====================================================================== 
    49107!!                      ***  Domain namelists  *** 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/cfg.txt

    r3954 r3973  
    11ORCA2_LIM3 OPA_SRC LIM_SRC_3 
     2ORCA2_LIM OPA_SRC LIM_SRC_2 NST_SRC 
     3AGRIF OPA_SRC LIM_SRC_2 NST_SRC 
    24GYRE OPA_SRC 
    3 ORCA2_LIM OPA_SRC LIM_SRC_2 NST_SRC 
    4 ORCA2_LIM_PISCES OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 
    55GYRE_PISCES OPA_SRC TOP_SRC 
     6AMM12 OPA_SRC 
     7ORCA2_LIM_CFC_C14b OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 
     8ORCA2_SAS_LIM OPA_SRC SAS_SRC LIM_SRC_2 NST_SRC 
    69ORCA2_OFF_PISCES OPA_SRC OFF_SRC TOP_SRC 
    710O2L3 OPA_SRC LIM_SRC_3 TOP_SRC 
     11ORCA2_LIM_PISCES OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 
    812GYRE_BFM OPA_SRC TOP_SRC 
    9 AMM12 OPA_SRC 
    10 AGRIF OPA_SRC LIM_SRC_2 NST_SRC 
    11 ORCA2_SAS_LIM OPA_SRC SAS_SRC LIM_SRC_2 NST_SRC 
    12 ORCA2_LIM_CFC_C14b OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r3875 r3973  
    6666   ! 0. Initializations 
    6767   !------------------- 
    68 #if defined key_orca_r025 || defined key_orca_r05 || defined key_orca_r2 || defined key_orca_r4 
    69    jp_cfg = -1    ! set special value for jp_cfg on fine grids 
    70    cp_cfg = "default" 
    71 #endif 
    72  
     68   IF( cp_cfg == 'orca' .AND. jp_cfg == 2 .OR. jp_cfg == 025 .OR. jp_cfg == 05 & 
     69  &                      .OR. jp_cfg == 4 ) THEN 
     70      jp_cfg = -1    ! set special value for jp_cfg on fine grids 
     71      cp_cfg = "default" 
     72   ENDIF 
    7373   ! Specific fine grid Initializations 
    7474   ! no tracer damping on fine grids 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r3875 r3973  
    142142         &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle,   & 
    143143         &             nn_bench, nn_timing 
     144      NAMELIST/namcfg/ cp_cfg, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 
     145         &             jpizoom, jpjzoom, jperio, jphgr_msh, & 
     146         &             ppglam0, ppgphi0, ppe1_deg, ppe2_deg, ppe1_m, ppe2_m, & 
     147         &             ppsur, ppa0, ppa1, ppkth, ppacr, ppdzmin, pphmax, ldbletanh, & 
     148         &             ppa2, ppkth2, ppacr2 
    144149      !!---------------------------------------------------------------------- 
    145150      ! 
     
    161166      WRITE( numond, namctl ) 
    162167      ! 
     168      REWIND( numnam_ref )              ! Namelist namcfg in reference namelist : Control prints & Benchmark 
     169      READ  ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 
     170903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', lwp ) 
     171 
     172      REWIND( numnam_cfg )              ! Namelist namcfg in confguration namelist : Control prints & Benchmark 
     173      READ  ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 
     174904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', lwp )    
     175      WRITE( numond, namcfg ) 
    163176      !                             !--------------------------------------------! 
    164177      !                             !  set communicator & select the local node  ! 
     
    305318      jsplt     = nn_jsplt 
    306319      nbench    = nn_bench 
     320     IF(lwp) THEN                  ! control print 
     321         WRITE(numout,*) 
     322         WRITE(numout,*) 'namcfg  : configuration initialization through namelist read' 
     323         WRITE(numout,*) '~~~~~~~ ' 
     324         WRITE(numout,*) '   Namelist namcfg' 
     325         WRITE(numout,*) '      configuration name              cp_cfg      = ', TRIM(cp_cfg) 
     326         WRITE(numout,*) '      configuration resolution        jp_cfg      = ', jp_cfg 
     327         WRITE(numout,*) '      1st lateral dimension ( >= jpi ) jpidta     = ', jpidta 
     328         WRITE(numout,*) '      2nd    "         "    ( >= jpj ) jpjdta     = ', jpjdta 
     329         WRITE(numout,*) '      3nd    "         "               jpkdta     = ', jpkdta 
     330         WRITE(numout,*) '      1st dimension of global domain in i jpiglo  = ', jpiglo 
     331         WRITE(numout,*) '      2nd    -                  -    in j jpjglo  = ', jpjglo 
     332         WRITE(numout,*) '      left bottom i index of the zoom (in data domain) jpizoom = ', jpizoom 
     333         WRITE(numout,*) '      left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 
     334         WRITE(numout,*) '      lateral cond. type (between 0 and 6) jperio = ', jperio    
     335         WRITE(numout,*) '      type of horizontal mesh jphgr_msh           = ', jphgr_msh 
     336         WRITE(numout,*) '      longitude of first raw and column T-point ppglam0 = ', ppglam0 
     337         WRITE(numout,*) '      latitude  of first raw and column T-point ppgphi0 = ', ppgphi0 
     338         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_deg        = ', ppe1_deg 
     339         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_deg        = ', ppe2_deg 
     340         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_m          = ', ppe1_m 
     341         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_m          = ', ppe2_m 
     342         WRITE(numout,*) '      ORCA r4, r2 and r05 coefficients  ppsur           = ', ppsur 
     343         WRITE(numout,*) '                                        ppa0            = ', ppa0 
     344         WRITE(numout,*) '                                        ppa1            = ', ppa1 
     345         WRITE(numout,*) '                                        ppkth           = ', ppkth 
     346         WRITE(numout,*) '                                        ppacr           = ', ppacr 
     347         WRITE(numout,*) '      Minimum vertical spacing ppdzmin                  = ', ppdzmin 
     348         WRITE(numout,*) '      Maximum depth pphmax                              = ', pphmax 
     349         WRITE(numout,*) '      Use double tanf function for vertical coordinates ldbletanh = ', ldbletanh 
     350         WRITE(numout,*) '      Double tanh function parameters ppa2              = ', ppa2 
     351         WRITE(numout,*) '                                      ppkth2            = ', ppkth2 
     352         WRITE(numout,*) '                                      ppacr2            = ', ppacr2 
     353      ENDIF 
    307354      !                             ! Parameter control 
    308355      ! 
     
    348395         CASE ( 'gyre' )   ;   CALL ctl_warn( ' The Benchmark is activated ' ) 
    349396         CASE DEFAULT      ;   CALL ctl_stop( ' The Benchmark is based on the GYRE configuration:',   & 
    350             &                                 ' key_gyre must be used or set nbench = 0' ) 
     397            &                                 ' cp_cfg="gyre" in namelsit &namcfg or set nbench = 0' ) 
    351398         END SELECT 
    352399      ENDIF 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90

    r3294 r3973  
    88   !!            9.0  !  05-11  (V. Garnier) Surface pressure gradient organization 
    99   !!---------------------------------------------------------------------- 
    10 #if (  defined key_orca_r1 || defined key_orca_r2 || defined  key_orca_r4 ) && ! defined key_coupled 
    11    !!---------------------------------------------------------------------- 
    12    !!   "key_orca_r1 or 2 or 4" 
     10#if ! defined key_coupled 
     11  
     12   !!---------------------------------------------------------------------- 
     13   !!   Only for ORCA2 ORCA1 and ORCA025 
    1314   !!---------------------------------------------------------------------- 
    1415   !!---------------------------------------------------------------------- 
     
    6162      REAL(wp) ::  zt, zs, zu   
    6263      REAL(wp) ::  zsm0, zfwfnew 
     64      IF( cp_cfg == "orca" .AND. jp_cfg == 1 .OR. jp_cfg == 2 .OR. jp_cfg == 4 ) THEN 
    6365      !!---------------------------------------------------------------------- 
    6466      IF( nn_timing == 1 )   CALL timing_start('dia_fwb') 
     
    446448 9020 FORMAT(1X,A,F10.5,A) 
    447449 9030 FORMAT(1X,A,F9.4,A) 
     450   
     451      ENDIF  
    448452 
    449453   END SUBROUTINE dia_fwb 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90

    r3901 r3973  
    100100   INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   mig        !: local  ==> global domain i-index 
    101101   INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   mjg        !: local  ==> global domain j-index 
    102    INTEGER, PUBLIC,               DIMENSION(jpidta) ::   mi0, mi1   !: global ==> local  domain i-index    !!bug ==> other solution? 
     102   INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   mi0, mi1   !: global ==> local  domain i-index    !!bug ==> other solution? 
    103103   !                                                  ! (mi0=1 and mi1=0 if the global index is not in the local domain) 
    104    INTEGER, PUBLIC,               DIMENSION(jpjdta) ::   mj0, mj1   !: global ==> local  domain j-index     !!bug ==> other solution? 
     104   INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   mj0, mj1   !: global ==> local  domain j-index     !!bug ==> other solution? 
    105105   !                                                  ! (mi0=1 and mi1=0 if the global index is not in the local domain) 
    106106   INTEGER, PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   nimppt, njmppt   !: i-, j-indexes for each processor 
     
    195195   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: tmask, umask, vmask, fmask   !: land/ocean mask at T-, U-, V- and F-pts 
    196196 
    197    REAL(wp), PUBLIC, DIMENSION(jpiglo) ::   tpol, fpol          !: north fold mask (jperio= 3 or 4) 
     197   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   tpol, fpol          !: north fold mask (jperio= 3 or 4) 
    198198 
    199199#if defined key_noslip_accurate 
     
    272272      ALLOCATE( nimppt(jpnij) , ibonit(jpnij) , nlcit(jpnij) , nlcjt(jpnij) ,     & 
    273273         &      njmppt(jpnij) , ibonjt(jpnij) , nldit(jpnij) , nldjt(jpnij) ,     & 
    274          &                                      nleit(jpnij) , nlejt(jpnij) , STAT=ierr(2) ) 
     274         &                                      nleit(jpnij) , nlejt(jpnij) ,     & 
     275         &      mi0(jpidta)   , mi1 (jpidta),  mj0(jpjdta)   , mj1 (jpjdta),      & 
     276         &      tpol(jpiglo)  , fpol(jpiglo)                               , STAT=ierr(2) ) 
    275277         ! 
    276278      ALLOCATE( glamt(jpi,jpj) , gphit(jpi,jpj) , e1t(jpi,jpj) , e2t(jpi,jpj) ,                      &  
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r3875 r3973  
    148148         WRITE(numout,*) '~~~~~~~ ' 
    149149         WRITE(numout,*) '   Namelist namrun' 
     150         WRITE(numout,*) '      configuration name              cp_cfg     = ', cp_cfg 
     151         WRITE(numout,*) '      configuration resolution        jp_cfg     = ', jp_cfg 
     152         WRITE(numout,*) '      experiment name for output      cn_exp     = ', cn_exp 
    150153         WRITE(numout,*) '      job number                      nn_no      = ', nn_no 
    151154         WRITE(numout,*) '      experiment name for output      cn_exp     = ', cn_exp 
     
    263266         WRITE(numout,*) '   Namelist namcla' 
    264267         WRITE(numout,*) '      cross land advection                 nn_cla    = ', nn_cla 
     268      ENDIF 
     269      IF ( nn_cla .EQ. 1 ) THEN 
     270         IF  ( cp_cfg == "orca" .AND. jp_cfg == 2 ) THEN   ! ORCA R2  
     271            CONTINUE 
     272         ELSE 
     273            CALL ctl_stop( 'STOP', 'Cross land advation iplemented only for ORCA2 configuration: cp_cfg = "orca" and jp_cfg = 2 ' ) 
     274         ENDIF 
    265275      ENDIF 
    266276 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90

    r3294 r3973  
    7979      INTEGER ::   ji, jj   ! dummy loop argument 
    8080      !!---------------------------------------------------------------------- 
    81  
    8281      !                        ! ============== ! 
    8382      !                        !  Local domain  !  
     
    101100        mj1(jj) = MAX( 0, MIN( jj - jpjzoom + 1 - njmpp + 1, jpj   ) ) 
    102101      END DO 
    103  
    104102      IF(lwp) THEN                   ! control print 
    105103         WRITE(numout,*) 
     
    152150      IF( lzoom .AND. jpiglo + jpizoom -1 /= jpidta )   lzoom_e = .TRUE. 
    153151      IF( lzoom .AND. jpjglo + jpjzoom -1 /= jpjdta )   lzoom_n = .TRUE. 
    154  
    155152      IF(lwp) THEN 
    156153         WRITE(numout,*) 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90

    r3294 r3973  
    317317         gphi0 = - ppe2_m * 1.e-3 
    318318          
    319 #if defined key_agrif && defined key_eel_r6 
    320          IF( .NOT. Agrif_Root() ) THEN 
    321            glam0  = Agrif_Parent(glam0) + (Agrif_ix())*Agrif_Parent(ppe1_m) * 1.e-3 
    322            gphi0  = Agrif_Parent(gphi0) + (Agrif_iy())*Agrif_Parent(ppe2_m) * 1.e-3 
    323            ppe1_m = Agrif_Parent(ppe1_m)/Agrif_Rhox() 
    324            ppe2_m = Agrif_Parent(ppe2_m)/Agrif_Rhoy()           
     319#if defined key_agrif  
     320         IF ( cp_cfg == 'eel' .AND. jp_cfg == 6 ) THEN    ! for EEL6 configuration only 
     321            IF( .NOT. Agrif_Root() ) THEN 
     322              glam0  = Agrif_Parent(glam0) + (Agrif_ix())*Agrif_Parent(ppe1_m) * 1.e-3 
     323              gphi0  = Agrif_Parent(gphi0) + (Agrif_iy())*Agrif_Parent(ppe2_m) * 1.e-3 
     324              ppe1_m = Agrif_Parent(ppe1_m)/Agrif_Rhox() 
     325              ppe2_m = Agrif_Parent(ppe2_m)/Agrif_Rhoy()           
     326            ENDIF 
    325327         ENDIF 
    326328#endif          
     
    516518         zphi0   = ppgphi0 - FLOAT( jpjglo/2) * ppe2_m / ( ra * rad )           ! latitude of the first row F-points 
    517519          
    518 #if defined key_agrif && defined key_eel_r6 
    519          IF( .NOT. Agrif_Root() ) THEN 
    520            zphi0 = ppgphi0 - FLOAT( Agrif_Parent(jpjglo)/2)*Agrif_Parent(ppe2_m) / (ra * rad) 
     520#if defined key_agrif 
     521         IF cp_cfg == 'eel' .AND. jp_cfg == 6 ) THEN    ! for EEL6 configuration only 
     522            IF( .NOT. Agrif_Root() ) THEN 
     523              zphi0 = ppgphi0 - FLOAT( Agrif_Parent(jpjglo)/2)*Agrif_Parent(ppe2_m) / (ra * rad) 
     524            ENDIF 
    521525         ENDIF 
    522526#endif          
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/divcur.F90

    r3294 r3973  
    226226 
    227227      IF( ln_rnf      )   CALL sbc_rnf_div( hdivn )          ! runoffs (update hdivn field) 
    228       IF( nn_cla == 1 )   CALL cla_div    ( kt )             ! Cross Land Advection (Update Hor. divergence) 
     228      IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 )   CALL cla_div    ( kt )             ! Cross Land Advection (Update Hor. divergence) 
    229229       
    230230      ! 4. Lateral boundary conditions on hdivn and rotn 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_flt.F90

    r3765 r3973  
    197197      CALL Agrif_dyn( kt )    ! Update velocities on each coarse/fine interfaces  
    198198#endif 
    199       IF( nn_cla == 1 )   CALL cla_dynspg( kt )      ! Cross Land Advection (update (ua,va)) 
     199      IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 )   CALL cla_dynspg( kt )      ! Cross Land Advection (update (ua,va)) 
    200200 
    201201      ! compute the next vertically averaged velocity (effect of the additional force not included) 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r3901 r3973  
    1919   PUBLIC 
    2020 
     21  
     22   ! 
    2123   !!---------------------------------------------------------------------- 
    2224   !!                   namrun namelist parameters 
     
    2830   INTEGER       ::   nn_no            !: job number 
    2931   INTEGER       ::   nn_rstctl        !: control of the time step (0, 1 or 2) 
    30    INTEGER       ::   nn_rstssh     = 0           !: hand made initilization of ssh or not (1/0) 
     32   INTEGER       ::   nn_rstssh   = 0  !: hand made initilization of ssh or not (1/0) 
    3133   INTEGER       ::   nn_it000         !: index of the first time step 
    3234   INTEGER       ::   nn_itend         !: index of the last time step 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LBC/cla.F90

    r3294 r3973  
    1111   !!            3.2  ! 2009-07 (G. Madec)  merge cla, cla_div, tra_cla, cla_dynspg 
    1212   !!                 !                     and correct a mpp bug reported by A.R. Porter 
    13    !!---------------------------------------------------------------------- 
    14 #if defined key_orca_r2 
    15    !!---------------------------------------------------------------------- 
    16    !!   'key_orca_r2'                                 global ocean model R2 
    1713   !!---------------------------------------------------------------------- 
    1814   !!   cla_div           : update of horizontal divergence at cla straits 
     
    733729   END SUBROUTINE cla_hormuz 
    734730    
    735 #else 
    736    !!---------------------------------------------------------------------- 
    737    !!   Default key                                            Dummy module 
    738    !!---------------------------------------------------------------------- 
    739    USE lib_mpp, ONLY:   ctl_stop 
    740 CONTAINS 
    741    SUBROUTINE cla_init 
    742       CALL ctl_stop( 'cla_init: Cross Land Advection hard coded for ORCA_R2 with 31 levels' ) 
    743    END SUBROUTINE cla_init 
    744    SUBROUTINE cla_div( kt ) 
    745       WRITE(*,*) 'cla_div: You should have not see this print! error?', kt 
    746    END SUBROUTINE cla_div 
    747    SUBROUTINE cla_traadv( kt )  
    748       WRITE(*,*) 'cla_traadv: You should have not see this print! error?', kt 
    749    END SUBROUTINE cla_traadv 
    750    SUBROUTINE cla_dynspg( kt )  
    751       WRITE(*,*) 'dyn_spg_cla: You should have not see this print! error?', kt 
    752    END SUBROUTINE cla_dynspg 
    753 #endif 
    754     
    755731   !!====================================================================== 
    756732END MODULE cla 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_c2d.h90

    r2715 r3973  
    2929      ! 
    3030      INTEGER ::   ji, jj   ! dummy loop indices 
    31 # if defined key_orca_r4 
    32       INTEGER :: i1, i2, j1, j2 
    33 # endif 
    3431      REAL(wp) ::   za00, zd_max, zeumax, zevmax, zetmax 
    3532      !!---------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r3901 r3973  
    8484      ENDIF 
    8585      ! 
    86       IF( nn_cla == 1 )   CALL cla_traadv( kt )       !==  Cross Land Advection  ==! (hor. advection) 
     86      IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 )   CALL cla_traadv( kt )       !==  Cross Land Advection  ==! (hor. advection) 
    8787      ! 
    8888      !                                               !==  effective transport  ==! 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r3954 r3973  
    225225      CHARACTER(len=80), DIMENSION(16) ::   cltxt 
    226226      !! 
    227       NAMELIST/namctl/ ln_ctl  , nn_print, nn_ictls, nn_ictle,   & 
     227      NAMELIST/namctl/ ln_ctl, nn_print, nn_ictls, nn_ictle,   & 
    228228         &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle,   & 
    229229         &             nn_bench, nn_timing 
     230      NAMELIST/namcfg/ cp_cfg, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 
     231         &             jpizoom, jpjzoom, jperio, jphgr_msh, & 
     232         &             ppglam0, ppgphi0, ppe1_deg, ppe2_deg, ppe1_m, ppe2_m, & 
     233         &             ppsur, ppa0, ppa1, ppkth, ppacr, ppdzmin, pphmax, ldbletanh, & 
     234         &             ppa2, ppkth2, ppacr2 
    230235      !!---------------------------------------------------------------------- 
    231236      ! 
     
    245250902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp ) 
    246251      WRITE( numond, namctl ) 
     252 
     253      ! 
     254      REWIND( numnam_ref )              ! Namelist namcfg in reference namelist : Control prints & Benchmark 
     255      READ  ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 
     256903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', lwp ) 
     257 
     258      REWIND( numnam_cfg )              ! Namelist namcfg in confguration namelist : Control prints & Benchmark 
     259      READ  ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 
     260904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', lwp )    
     261      WRITE( numond, namcfg ) 
    247262      ! 
    248263      !                             !--------------------------------------------! 
     
    399414 
    400415      !                                     ! Misc. options 
    401       IF( nn_cla == 1   )   CALL cla_init       ! Cross Land Advection 
     416      IF( nn_cla == 1 .AND. cp_cfg == 'orca' .AND. jp_cfg == 2 )   CALL cla_init       ! Cross Land Advection 
    402417                            CALL icb_init( rdt, nit000)   ! initialise icebergs instance 
    403418      
     
    460475      jsplt     = nn_jsplt 
    461476      nbench    = nn_bench 
     477 
     478      IF(lwp) THEN                  ! control print 
     479         WRITE(numout,*) 
     480         WRITE(numout,*) 'namcfg  : configuration initialization through namelist read' 
     481         WRITE(numout,*) '~~~~~~~ ' 
     482         WRITE(numout,*) '   Namelist namcfg' 
     483         WRITE(numout,*) '      configuration name              cp_cfg      = ', TRIM(cp_cfg) 
     484         WRITE(numout,*) '      configuration resolution        jp_cfg      = ', jp_cfg 
     485         WRITE(numout,*) '      1st lateral dimension ( >= jpi ) jpidta     = ', jpidta 
     486         WRITE(numout,*) '      2nd    "         "    ( >= jpj ) jpjdta     = ', jpjdta 
     487         WRITE(numout,*) '      3nd    "         "               jpkdta     = ', jpkdta 
     488         WRITE(numout,*) '      1st dimension of global domain in i jpiglo  = ', jpiglo 
     489         WRITE(numout,*) '      2nd    -                  -    in j jpjglo  = ', jpjglo 
     490         WRITE(numout,*) '      left bottom i index of the zoom (in data domain) jpizoom = ', jpizoom 
     491         WRITE(numout,*) '      left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 
     492         WRITE(numout,*) '      lateral cond. type (between 0 and 6) jperio = ', jperio    
     493         WRITE(numout,*) '      type of horizontal mesh jphgr_msh           = ', jphgr_msh 
     494         WRITE(numout,*) '      longitude of first raw and column T-point ppglam0 = ', ppglam0 
     495         WRITE(numout,*) '      latitude  of first raw and column T-point ppgphi0 = ', ppgphi0 
     496         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_deg        = ', ppe1_deg 
     497         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_deg        = ', ppe2_deg 
     498         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_m          = ', ppe1_m 
     499         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_m          = ', ppe2_m 
     500         WRITE(numout,*) '      ORCA r4, r2 and r05 coefficients  ppsur           = ', ppsur 
     501         WRITE(numout,*) '                                        ppa0            = ', ppa0 
     502         WRITE(numout,*) '                                        ppa1            = ', ppa1 
     503         WRITE(numout,*) '                                        ppkth           = ', ppkth 
     504         WRITE(numout,*) '                                        ppacr           = ', ppacr 
     505         WRITE(numout,*) '      Minimum vertical spacing ppdzmin                  = ', ppdzmin 
     506         WRITE(numout,*) '      Maximum depth pphmax                              = ', pphmax 
     507         WRITE(numout,*) '      Use double tanf function for vertical coordinates ldbletanh = ', ldbletanh 
     508         WRITE(numout,*) '      Double tanh function parameters ppa2              = ', ppa2 
     509         WRITE(numout,*) '                                      ppkth2            = ', ppkth2 
     510         WRITE(numout,*) '                                      ppacr2            = ', ppacr2 
     511      ENDIF 
    462512      !                             ! Parameter control 
    463513      ! 
     
    503553         CASE ( 'gyre' )   ;   CALL ctl_warn( ' The Benchmark is activated ' ) 
    504554         CASE DEFAULT      ;   CALL ctl_stop( ' The Benchmark is based on the GYRE configuration:',   & 
    505             &                                 ' key_gyre must be used or set nbench = 0' ) 
     555            &                                 ' cp_cfg = "gyre" in namelist &namcfg or set nbench = 0' ) 
    506556         END SELECT 
    507557      ENDIF 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

    r3294 r3973  
    2525   INTEGER, PUBLIC, PARAMETER ::   jprecj = 1   !: number of rows    for overlap  
    2626 
    27    !! Ocean Domain sizes 
    28    !! ------------------ 
    29    !!   data           domain   (jpidta,jpjdta) 
    30    !!   global or zoom domain   (jpiglo,jpjglo) 
    31    !!   local          domain   ( jpi  , jpj  ) 
    32     
    33 #if   defined key_orca_r4 
    34    !!--------------------------------------------------------------------- 
    35    !!   'key_orca_r4'   :                           global ocean : ORCA R4 
    36    !!--------------------------------------------------------------------- 
    37 #             include "par_ORCA_R4.h90" 
    38 #elif defined key_orca_r2 
    39    !!--------------------------------------------------------------------- 
    40    !!   'key_orca_r2'   :                           global ocean : ORCA R4 
    41    !!--------------------------------------------------------------------- 
    42 #             include "par_ORCA_R2.h90" 
    43 #elif defined key_orca_r1 
    44    !!--------------------------------------------------------------------- 
    45    !!   'key_orca_r1'   :                           global ocean : ORCA R1 
    46    !!--------------------------------------------------------------------- 
    47 #             include "par_ORCA_R1.h90" 
    48 #elif defined key_orca_r05 
    49    !!--------------------------------------------------------------------- 
    50    !!   'key_orca_r05'  :                          global ocean : ORCA R05 
    51    !!--------------------------------------------------------------------- 
    52 #             include "par_ORCA_R05.h90" 
    53 #elif defined key_orca_r025 
    54    !!--------------------------------------------------------------------- 
    55    !!   'key_orca_r025' :                         global ocean : ORCA R025 
    56    !!--------------------------------------------------------------------- 
    57 #             include "par_ORCA_R025.h90" 
    58 #elif defined key_eel_r2 
    59    !!--------------------------------------------------------------------- 
    60    !!   'key_eel_r2'    :                                 channel : EEL R2 
    61    !!--------------------------------------------------------------------- 
    62 #             include "par_EEL_R2.h90" 
    63 #elif defined key_eel_r5 
    64    !!--------------------------------------------------------------------- 
    65    !!   'key_eel_r5'    :                                 channel : EEL R5 
    66    !!--------------------------------------------------------------------- 
    67 #             include "par_EEL_R5.h90" 
    68 #elif defined key_eel_r6 
    69    !!--------------------------------------------------------------------- 
    70    !!   'key_eel_r6'    :                                 channel : EEL R6 
    71    !!--------------------------------------------------------------------- 
    72 #             include "par_EEL_R6.h90" 
    73 #elif defined key_gyre 
    74    !!--------------------------------------------------------------------- 
    75    !!   'key_gyre'      :                        mid-latitude basin : GYRE 
    76    !!--------------------------------------------------------------------- 
    77 #             include "par_GYRE.h90" 
    78 #elif defined key_pomme_r025 
    79    !!--------------------------------------------------------------------- 
    80    !!   'key_pomme_r025':                        regional basin : POMME025 
    81    !!--------------------------------------------------------------------- 
    82 #             include "par_POMME_R025.h90" 
    83 #elif defined key_amm_12km 
    84    !!--------------------------------------------------------------------- 
    85    !!   'key_amm_12km':                    Atlantic Margin Model : AMM12km  
    86    !!--------------------------------------------------------------------- 
    87 #             include "par_AMM_12km.h90" 
    88 #else 
    89    !!--------------------------------------------------------------------- 
    90    !!   default option  :                               small closed basin 
    91    !!--------------------------------------------------------------------- 
    92    CHARACTER(len=16), PUBLIC, PARAMETER ::   cp_cfg = "default"   !: name of the configuration 
    93    INTEGER          , PUBLIC, PARAMETER ::   jp_cfg = 0           !: resolution of the configuration 
     27   !!---------------------------------------------------------------------- 
     28   !!                   namcfg namelist parameters 
     29   !!---------------------------------------------------------------------- 
     30   CHARACTER(lc) ::   cp_cfg           !: name of the configuration 
     31   INTEGER       ::   jp_cfg           !: resolution of the configuration 
    9432 
    9533   ! data size                                       !!! * size of all input files * 
    96    INTEGER, PUBLIC, PARAMETER ::   jpidta  = 10       !: 1st lateral dimension ( >= jpi ) 
    97    INTEGER, PUBLIC, PARAMETER ::   jpjdta  = 12       !: 2nd    "         "    ( >= jpj ) 
    98    INTEGER, PUBLIC, PARAMETER ::   jpkdta  = 31       !: number of levels      ( >= jpk ) 
     34   INTEGER       ::   jpidta           !: 1st lateral dimension ( >= jpi ) 
     35   INTEGER       ::   jpjdta           !: 2nd    "         "    ( >= jpj ) 
     36   INTEGER       ::   jpkdta           !: number of levels      ( >= jpk ) 
    9937 
    10038   ! global or zoom domain size                      !!! * computational domain * 
    101    INTEGER, PUBLIC, PARAMETER ::   jpiglo  = jpidta   !: 1st dimension of global domain --> i 
    102    INTEGER, PUBLIC, PARAMETER ::   jpjglo  = jpjdta   !: 2nd    -                  -    --> j 
     39   INTEGER       ::   jpiglo           !: 1st dimension of global domain --> i 
     40   INTEGER       ::   jpjglo           !: 2nd    -                  -    --> j 
    10341 
    10442   ! zoom starting position  
    105    INTEGER, PUBLIC, PARAMETER ::   jpizoom =   1      !: left bottom (i,j) indices of the zoom 
    106    INTEGER, PUBLIC, PARAMETER ::   jpjzoom =   1      !: in data domain indices 
     43   INTEGER       ::   jpizoom          !: left bottom (i,j) indices of the zoom 
     44   INTEGER       ::   jpjzoom          !: in data domain indices 
    10745 
    10846   ! Domain characteristics 
    109    INTEGER, PUBLIC, PARAMETER ::   jperio  =  0       !: lateral cond. type (between 0 and 6) 
    110    !                                                  !  = 0 closed                 ;   = 1 cyclic East-West 
    111    !                                                  !  = 2 equatorial symmetric   ;   = 3 North fold T-point pivot 
    112    !                                                  !  = 4 cyclic East-West AND North fold T-point pivot 
    113    !                                                  !  = 5 North fold F-point pivot 
    114    !                                                  !  = 6 cyclic East-West AND North fold F-point pivot 
     47   INTEGER       ::   jperio           !: lateral cond. type (between 0 and 6) 
     48   !                                       !  = 0 closed                 ;   = 1 cyclic East-West 
     49   !                                       !  = 2 equatorial symmetric   ;   = 3 North fold T-point pivot 
     50   !                                       !  = 4 cyclic East-West AND North fold T-point pivot 
     51   !                                       !  = 5 North fold F-point pivot 
     52   !                                       !  = 6 cyclic East-West AND North fold F-point pivot 
    11553 
    11654   !!  Values set to pp_not_used indicates that this parameter is not used in THIS config. 
    11755   !!  Values set to pp_to_be_computed  indicates that variables will be computed in domzgr 
    118    REAL(wp), PUBLIC, PARAMETER ::   pp_not_used       = 999999._wp   !: vertical grid parameter 
    119    REAL(wp), PUBLIC, PARAMETER ::   pp_to_be_computed = 999999._wp   !:    -      -       - 
     56   REAL(wp)      ::   pp_not_used       = 999999._wp   !: vertical grid parameter 
     57   REAL(wp)      ::   pp_to_be_computed = 999998._wp   !:    -      -       - 
    12058 
    12159 
    12260   !! Horizontal grid parameters for domhgr 
    12361   !! ===================================== 
    124    INTEGER, PUBLIC, PARAMETER  ::   jphgr_msh = 0   !: type of horizontal mesh 
    125    !                                                !  = 0 curvilinear coordinate on the sphere read in coordinate.nc 
    126    !                                                !  = 1 geographical mesh on the sphere with regular grid-spacing 
    127    !                                                !  = 2 f-plane with regular grid-spacing 
    128    !                                                !  = 3 beta-plane with regular grid-spacing 
    129    !                                                !  = 4 Mercator grid with T/U point at the equator 
     62   INTEGER       ::   jphgr_msh        !: type of horizontal mesh 
     63   !                                       !  = 0 curvilinear coordinate on the sphere read in coordinate.nc 
     64   !                                       !  = 1 geographical mesh on the sphere with regular grid-spacing 
     65   !                                       !  = 2 f-plane with regular grid-spacing 
     66   !                                       !  = 3 beta-plane with regular grid-spacing 
     67   !                                       !  = 4 Mercator grid with T/U point at the equator 
    13068 
    131    REAL(wp) , PUBLIC, PARAMETER ::   ppglam0  =    0.0_wp   !: longitude of first raw and column T-point (jphgr_msh = 1) 
    132    REAL(wp) , PUBLIC, PARAMETER ::   ppgphi0  =  -35.0_wp   !: latitude  of first raw and column T-point (jphgr_msh = 1) 
     69   REAL(wp)      ::   ppglam0              !: longitude of first raw and column T-point (jphgr_msh = 1) 
     70   REAL(wp)      ::   ppgphi0              !: latitude  of first raw and column T-point (jphgr_msh = 1) 
    13371   !                                                        !  used for Coriolis & Beta parameters (jphgr_msh = 2 or 3) 
    134    REAL(wp) , PUBLIC, PARAMETER ::   ppe1_deg =    1.0_wp   !: zonal      grid-spacing (degrees) 
    135    REAL(wp) , PUBLIC, PARAMETER ::   ppe2_deg =    0.5_wp   !: meridional grid-spacing (degrees) 
    136    REAL(wp) , PUBLIC, PARAMETER ::   ppe1_m   = 5000.0_wp   !: zonal      grid-spacing (degrees) 
    137    REAL(wp) , PUBLIC, PARAMETER ::   ppe2_m   = 5000.0_wp   !: meridional grid-spacing (degrees) 
     72   REAL(wp)      ::   ppe1_deg             !: zonal      grid-spacing (degrees) 
     73   REAL(wp)      ::   ppe2_deg             !: meridional grid-spacing (degrees) 
     74   REAL(wp)      ::   ppe1_m               !: zonal      grid-spacing (degrees) 
     75   REAL(wp)      ::   ppe2_m               !: meridional grid-spacing (degrees) 
    13876 
    13977   !! Vertical grid parameter for domzgr 
    14078   !! ================================== 
    141    REAL(wp), PUBLIC, PARAMETER ::   ppsur = -4762.96143546300_wp   !: ORCA r4, r2 and r05 coefficients 
    142    REAL(wp), PUBLIC, PARAMETER ::   ppa0  =   255.58049070440_wp   !: (default coefficients) 
    143    REAL(wp), PUBLIC, PARAMETER ::   ppa1  =   245.58132232490_wp   !: 
    144    REAL(wp), PUBLIC, PARAMETER ::   ppkth =    21.43336197938_wp   !: 
    145    REAL(wp), PUBLIC, PARAMETER ::   ppacr =     3.00000000000_wp   !: 
     79   REAL(wp)      ::   ppsur                !: ORCA r4, r2 and r05 coefficients 
     80   REAL(wp)      ::   ppa0                 !: (default coefficients) 
     81   REAL(wp)      ::   ppa1                 !: 
     82   REAL(wp)      ::   ppkth                !: 
     83   REAL(wp)      ::   ppacr                !: 
    14684   ! 
    14785   !  If both ppa0 ppa1 and ppsur are specified to 0, then 
    14886   !  they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 
    149    REAL(wp), PUBLIC, PARAMETER ::   ppdzmin = 10._wp     !: Minimum vertical spacing 
    150    REAL(wp), PUBLIC, PARAMETER ::   pphmax  = 5000._wp   !: Maximum depth 
     87   REAL(wp)      ::   ppdzmin              !: Minimum vertical spacing 
     88   REAL(wp)      ::   pphmax               !: Maximum depth 
    15189   ! 
    152    LOGICAL , PUBLIC, PARAMETER ::   ldbletanh = .TRUE.   !: Use/do not use double tanf function for vertical coordinates 
    153    REAL(wp), PUBLIC, PARAMETER ::   ppa2  =   100.760928500000_wp   !: Double tanh function parameters 
    154    REAL(wp), PUBLIC, PARAMETER ::   ppkth2=    48.029893720000_wp   !: 
    155    REAL(wp), PUBLIC, PARAMETER ::   ppacr2=    13.000000000000_wp   !: 
    156    ! 
    157 #endif 
    158  
     90   LOGICAL       ::   ldbletanh            !: Use/do not use double tanf function for vertical coordinates 
     91   REAL(wp)      ::   ppa2                 !: Double tanh function parameters 
     92   REAL(wp)      ::   ppkth2               !: 
     93   REAL(wp)      ::   ppacr2               !: 
    15994 
    16095   !!--------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r3954 r3973  
    159159         &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle,   & 
    160160         &             nn_bench, nn_timing 
     161      NAMELIST/namcfg/ cp_cfg, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 
     162         &             jpizoom, jpjzoom, jperio, jphgr_msh, & 
     163         &             ppglam0, ppgphi0, ppe1_deg, ppe2_deg, ppe1_m, ppe2_m, & 
     164         &             ppsur, ppa0, ppa1, ppkth, ppacr, ppdzmin, pphmax, ldbletanh, & 
     165         &             ppa2, ppkth2, ppacr2 
    161166      !!---------------------------------------------------------------------- 
    162167      ! 
     
    176181      WRITE( numond, namctl ) 
    177182      ! 
     183      REWIND( numnam_ref )              ! Namelist namcfg in reference namelist : Control prints & Benchmark 
     184      READ  ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 
     185903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', lwp ) 
     186 
     187      REWIND( numnam_cfg )              ! Namelist namcfg in confguration namelist : Control prints & Benchmark 
     188      READ  ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 
     189904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', lwp )    
     190      WRITE( numond, namcfg ) 
    178191      !                             !--------------------------------------------! 
    179192      !                             !  set communicator & select the local node  ! 
     
    310323      jsplt     = nn_jsplt 
    311324      nbench    = nn_bench 
     325 
     326      IF(lwp) THEN                  ! control print 
     327         WRITE(numout,*) 
     328         WRITE(numout,*) 'namcfg  : configuration initialization through namelist read' 
     329         WRITE(numout,*) '~~~~~~~ ' 
     330         WRITE(numout,*) '   Namelist namcfg' 
     331         WRITE(numout,*) '      configuration name              cp_cfg      = ', TRIM(cp_cfg) 
     332         WRITE(numout,*) '      configuration resolution        jp_cfg      = ', jp_cfg 
     333         WRITE(numout,*) '      1st lateral dimension ( >= jpi ) jpidta     = ', jpidta 
     334         WRITE(numout,*) '      2nd    "         "    ( >= jpj ) jpjdta     = ', jpjdta 
     335         WRITE(numout,*) '      3nd    "         "               jpkdta     = ', jpkdta 
     336         WRITE(numout,*) '      1st dimension of global domain in i jpiglo  = ', jpiglo 
     337         WRITE(numout,*) '      2nd    -                  -    in j jpjglo  = ', jpjglo 
     338         WRITE(numout,*) '      left bottom i index of the zoom (in data domain) jpizoom = ', jpizoom 
     339         WRITE(numout,*) '      left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 
     340         WRITE(numout,*) '      lateral cond. type (between 0 and 6) jperio = ', jperio    
     341         WRITE(numout,*) '      type of horizontal mesh jphgr_msh           = ', jphgr_msh 
     342         WRITE(numout,*) '      longitude of first raw and column T-point ppglam0 = ', ppglam0 
     343         WRITE(numout,*) '      latitude  of first raw and column T-point ppgphi0 = ', ppgphi0 
     344         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_deg        = ', ppe1_deg 
     345         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_deg        = ', ppe2_deg 
     346         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_m          = ', ppe1_m 
     347         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_m          = ', ppe2_m 
     348         WRITE(numout,*) '      ORCA r4, r2 and r05 coefficients  ppsur           = ', ppsur 
     349         WRITE(numout,*) '                                        ppa0            = ', ppa0 
     350         WRITE(numout,*) '                                        ppa1            = ', ppa1 
     351         WRITE(numout,*) '                                        ppkth           = ', ppkth 
     352         WRITE(numout,*) '                                        ppacr           = ', ppacr 
     353         WRITE(numout,*) '      Minimum vertical spacing ppdzmin                  = ', ppdzmin 
     354         WRITE(numout,*) '      Maximum depth pphmax                              = ', pphmax 
     355         WRITE(numout,*) '      Use double tanf function for vertical coordinates ldbletanh = ', ldbletanh 
     356         WRITE(numout,*) '      Double tanh function parameters ppa2              = ', ppa2 
     357         WRITE(numout,*) '                                      ppkth2            = ', ppkth2 
     358         WRITE(numout,*) '                                      ppacr2            = ', ppacr2 
     359      ENDIF 
    312360      !                             ! Parameter control 
    313361      ! 
     
    353401         CASE ( 'gyre' )   ;   CALL ctl_warn( ' The Benchmark is activated ' ) 
    354402         CASE DEFAULT      ;   CALL ctl_stop( ' The Benchmark is based on the GYRE configuration:',   & 
    355             &                                 ' key_gyre must be used or set nbench = 0' ) 
     403            &                                 ' cp_cfg="gyre" in namelist &namcfg or set nbench = 0' ) 
    356404         END SELECT 
    357405      ENDIF 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r3792 r3973  
    434434      ENDIF 
    435435 
    436 #if ! defined key_gyre 
     436      IF ( cp_cfg .NE. 'gyre' ) THEN            ! other than GYRE configuration 
    437437      ! GYRE : for diagnostic fields, are needed if cyclic B.C. are present, but not for purely MPI comm.  
    438438      ! therefore we do not call lbc_lnk in GYRE config. (closed basin, no cyclic B.C.) 
    439       DO jn = 1, jptra 
    440          IF( ln_trdtrc(jn) ) THEN 
    441             DO jl = 1, jpltrd_trc 
    442                CALL lbc_lnk( tmltrd_trc(:,:,jl,jn), 'T', 1. )        ! lateral boundary conditions 
    443             END DO 
    444          ENDIF 
    445       END DO 
    446 #endif 
     439         DO jn = 1, jptra 
     440            IF( ln_trdtrc(jn) ) THEN 
     441               DO jl = 1, jpltrd_trc 
     442                  CALL lbc_lnk( tmltrd_trc(:,:,jl,jn), 'T', 1. )        ! lateral boundary conditions 
     443               END DO 
     444            ENDIF 
     445         END DO 
     446      ENDIF 
    447447      ! ====================================================================== 
    448448      ! II. Cumulate the trends over the analysis window 
     
    573573                
    574574         !-- Lateral boundary conditions 
    575 #if ! defined key_gyre 
    576  
    577                CALL lbc_lnk( ztmltot(:,:,jn) , 'T', 1. )   ;   CALL lbc_lnk( ztmlres(:,:,jn) , 'T', 1. ) 
    578                CALL lbc_lnk( ztmlatf(:,:,jn) , 'T', 1. )   ;   CALL lbc_lnk( ztmlrad(:,:,jn) , 'T', 1. ) 
    579  
    580 #endif 
     575               IF ( cp_cfg .NE. 'gyre' ) THEN 
     576                  CALL lbc_lnk( ztmltot(:,:,jn) , 'T', 1. )   ;   CALL lbc_lnk( ztmlres(:,:,jn) , 'T', 1. ) 
     577                  CALL lbc_lnk( ztmlatf(:,:,jn) , 'T', 1. )   ;   CALL lbc_lnk( ztmlrad(:,:,jn) , 'T', 1. ) 
     578               ENDIF 
     579 
    581580 
    582581#if defined key_diainstant 
     
    624623                  &                                               + tmltrd_rad_sumb_trc(:,:,jn) 
    625624 
    626          !-- Lateral boundary conditions 
    627 #if ! defined key_gyre          
    628                CALL lbc_lnk( ztmltot2(:,:,jn), 'T', 1. ) 
    629                CALL lbc_lnk( ztmlres2(:,:,jn), 'T', 1. ) 
    630                DO jl = 1, jpltrd_trc 
    631                   CALL lbc_lnk( ztmltrd2(:,:,jl,jn), 'T', 1. )       ! will be output in the NetCDF trends file 
    632                END DO 
    633 #endif 
     625         !-- Lateral boundary conditions  
     626               IF ( cp_cfg .NE. 'gyre' ) THEN            ! other than GYRE configuration     
     627                  CALL lbc_lnk( ztmltot2(:,:,jn), 'T', 1. ) 
     628                  CALL lbc_lnk( ztmlres2(:,:,jn), 'T', 1. ) 
     629                  DO jl = 1, jpltrd_trc 
     630                     CALL lbc_lnk( ztmltrd2(:,:,jl,jn), 'T', 1. )       ! will be output in the NetCDF trends file 
     631                  END DO 
     632               ENDIF 
     633 
    634634            ENDIF 
    635635         END DO 
     
    10091009 
    10101010         !-- Lateral boundary conditions 
    1011 #if ! defined key_gyre 
    1012          ! ES_B27_CD_WARN : lbc inutile GYRE, cf. + haut 
    1013          DO jn = 1, jpdiabio 
    1014            CALL lbc_lnk( ztmltrdbio2(:,:,jn), 'T', 1. ) 
    1015          ENDDO 
    1016 #endif 
     1011         IF ( cp_cfg .NE. 'gyre' ) THEN            ! other than GYRE configuration  
     1012            ! ES_B27_CD_WARN : lbc inutile GYRE, cf. + haut 
     1013            DO jn = 1, jpdiabio 
     1014              CALL lbc_lnk( ztmltrdbio2(:,:,jn), 'T', 1. ) 
     1015            ENDDO 
     1016         ENDIF 
     1017 
    10171018         IF( lldebug ) THEN 
    10181019            ! 
     
    12731274      ! ----------------------------------------- 
    12741275      IF( ln_mskland )   THEN   ;   clop = "only(x)"   ! put 1.e+20 on land (very expensive!!) 
    1275       ELSE                      ;   clop = "x"         ! no use of the mask value (require less cpu time) 
     1276      ELSE                      ;   clop = "x"         ! no use of the mask value (require less cp time) 
    12761277      ENDIF 
    12771278#  if defined key_diainstant 
Note: See TracChangeset for help on using the changeset viewer.