Changeset 3993


Ignore:
Timestamp:
2013-07-30T11:14:05+02:00 (7 years ago)
Author:
clevy
Message:

Configuration setting/Step3 bugfixes,doc, and redistribute variables in namcfg and namdom see ticket:#1074

Location:
branches/2013/dev_r3853_CNRS9_ConfSetting
Files:
2 added
4 deleted
25 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3853_CNRS9_ConfSetting/DOC/TexFiles/Namelist/namdom

    r3294 r3993  
    1717   rn_rdtmax   = 28800.          !  maximum time step on tracers (used if nn_acc=1) 
    1818   rn_rdth     =  800.           !  depth variation of tracer time step  (used if nn_acc=1) 
     19   jphgr_msh   =       0               !  type of horizontal mesh 
     20                                       !  = 0 curvilinear coordinate on the sphere read in coordinate.nc 
     21                                       !  = 1 geographical mesh on the sphere with regular grid-spacing 
     22                                       !  = 2 f-plane with regular grid-spacing 
     23                                       !  = 3 beta-plane with regular grid-spacing 
     24                                       !  = 4 Mercator grid with T/U point at the equator 
     25   ppglam0     =       0.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     26   ppgphi0     =     -35.0             ! latitude  of first raw and column T-point (jphgr_msh = 1) 
     27   ppe1_deg    =       1.0             !  zonal      grid-spacing (degrees) 
     28   ppe2_deg    =       0.5             !  meridional grid-spacing (degrees) 
     29   ppe1_m      =    5000.0             !  zonal      grid-spacing (degrees) 
     30   ppe2_m      =    5000.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     =       10.             !  Minimum vertical spacing 
     37   pphmax      =     5000.             !  Maximum depth 
     38   ldbletanh   =    .TRUE.             !  Use/do not use double tanf function for vertical coordinates 
     39   ppa2        =      100.760928500000 !  Double tanh function parameters 
     40   ppkth2      =       48.029893720000 ! 
     41   ppacr2      =       13.000000000000 ! 
    1942/ 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/ARCH/CNRS/arch-macport_osx.fcm

    r3875 r3993  
    2727%NCDF_INC            -I/opt/local/include 
    2828%NCDF_LIB            -L/opt/local/lib -lnetcdf -lnetcdff 
    29 %XIOS_ROOT           /Users/clairelevy/Documents/WORK/XIOS 
     29%XIOS_ROOT           /Users/clelod/Documents/WORK/XIOS 
    3030%FC                mpif90  
    3131%FCFLAGS             -fdefault-real-8 -O3 -funroll-all-loops -fcray-pointer  
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/AMM12/EXP00/namelist_cfg

    r3973 r3993  
    2929   jpjzoom     =       1               !  in data domain indices 
    3030   jperio      =       0               !  lateral cond. type (between 0 and 6) 
     31/ 
     32!----------------------------------------------------------------------- 
     33&namzgr        !   vertical coordinate 
     34!----------------------------------------------------------------------- 
     35   ln_zps      = .false.   !  z-coordinate - partial steps   (T/F) 
     36   ln_sco      = .true.    !  s- or hybrid z-s-coordinate    (T/F) 
     37/ 
     38!----------------------------------------------------------------------- 
     39&namzgr_sco    !   s-coordinate or hybrid z-s-coordinate 
     40!----------------------------------------------------------------------- 
     41   ln_s_sh94   = .false.   !  Song & Haidvogel 1994 hybrid S-sigma   (T)| 
     42   ln_s_sf12   = .true.    !  Siddorn & Furner 2012 hybrid S-z-sigma (T)| if both are false the NEMO tanh stretching is applied 
     43   ln_sigcrit  = .true.    !  use sigma coordinates below critical depth (T) or Z coordinates (F) for Siddorn & Furner stretch 
     44                           !  stretching coefficients for all functions 
     45   rn_hc       =   50.0    !  critical depth for transition to stretched coordinates 
     46/ 
     47!----------------------------------------------------------------------- 
     48&namdom        !   space and time domain (bathymetry, mesh, timestep) 
     49!----------------------------------------------------------------------- 
     50   rn_rdt      =  300.     !  time step for the dynamics (and tracer if nn_acc=0) 
     51   nn_baro     =   30      !  number of barotropic time step            ("key_dynspg_ts") 
     52   rn_rdtmin   =   300.          !  minimum time step on tracers (used if nn_acc=1) 
     53   rn_rdtmax   =   300.          !  maximum time step on tracers (used if nn_acc=1) 
     54   rn_rdth     =  300.           !  depth variation of tracer time step  (used if nn_acc=1) 
    3155   jphgr_msh   =       0               !  type of horizontal mesh 
    3256   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     
    4670   ppa2        =  999999.              !  Double tanh function parameters 
    4771   ppkth2      =  999999.              ! 
    48    ppacr2      =  999999.              ! 
    49 / 
    50 !----------------------------------------------------------------------- 
    51 &namzgr        !   vertical coordinate 
    52 !----------------------------------------------------------------------- 
    53    ln_zps      = .false.   !  z-coordinate - partial steps   (T/F) 
    54    ln_sco      = .true.    !  s- or hybrid z-s-coordinate    (T/F) 
    55 / 
    56 !----------------------------------------------------------------------- 
    57 &namzgr_sco    !   s-coordinate or hybrid z-s-coordinate 
    58 !----------------------------------------------------------------------- 
    59    ln_s_sh94   = .false.   !  Song & Haidvogel 1994 hybrid S-sigma   (T)| 
    60    ln_s_sf12   = .true.    !  Siddorn & Furner 2012 hybrid S-z-sigma (T)| if both are false the NEMO tanh stretching is applied 
    61    ln_sigcrit  = .true.    !  use sigma coordinates below critical depth (T) or Z coordinates (F) for Siddorn & Furner stretch 
    62                            !  stretching coefficients for all functions 
    63    rn_hc       =   50.0    !  critical depth for transition to stretched coordinates 
    64 / 
    65 !----------------------------------------------------------------------- 
    66 &namdom        !   space and time domain (bathymetry, mesh, timestep) 
    67 !----------------------------------------------------------------------- 
    68    rn_rdt      =  300.     !  time step for the dynamics (and tracer if nn_acc=0) 
    69    nn_baro     =   30      !  number of barotropic time step            ("key_dynspg_ts") 
    70    rn_rdtmin   =   300.          !  minimum time step on tracers (used if nn_acc=1) 
    71    rn_rdtmax   =   300.          !  maximum time step on tracers (used if nn_acc=1) 
    72    rn_rdth     =  300.           !  depth variation of tracer time step  (used if nn_acc=1) 
     72   ppacr2      =  999999. 
    7373/ 
    7474!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE/EXP00/namelist_cfg

    r3973 r3993  
    2424   jpjzoom     =       1                 !  in data domain indices 
    2525   jperio      =       0                 !  lateral cond. type (between 0 and 6) 
     26/ 
     27!----------------------------------------------------------------------- 
     28&namzgr        !   vertical coordinate 
     29!----------------------------------------------------------------------- 
     30   ln_zco      = .true.    !  z-coordinate - full    steps   (T/F)      ("key_zco" may also be defined) 
     31   ln_zps      = .false.   !  z-coordinate - partial steps   (T/F) 
     32/ 
     33!----------------------------------------------------------------------- 
     34&namzgr_sco    !   s-coordinate or hybrid z-s-coordinate 
     35!----------------------------------------------------------------------- 
     36/ 
     37!----------------------------------------------------------------------- 
     38&namdom        !   space and time domain (bathymetry, mesh, timestep) 
     39!----------------------------------------------------------------------- 
     40   nn_bathy    =    0      !  compute (=0) or read (=1) the bathymetry file 
     41   rn_rdt      = 7200.     !  time step for the dynamics (and tracer if nn_acc=0) 
     42   nn_baro     =   60      !  number of barotropic time step            ("key_dynspg_ts") 
     43   rn_rdtmin   = 7200.           !  minimum time step on tracers (used if nn_acc=1) 
     44   rn_rdtmax   = 7200.           !  maximum time step on tracers (used if nn_acc=1) 
    2645   jphgr_msh   =       5                 !  type of horizontal mesh 
    2746   ppglam0     =       0.0               !  longitude of first raw and column T-point (jphgr_msh = 1) 
     
    4463/ 
    4564!----------------------------------------------------------------------- 
    46 &namzgr        !   vertical coordinate 
    47 !----------------------------------------------------------------------- 
    48    ln_zco      = .true.    !  z-coordinate - full    steps   (T/F)      ("key_zco" may also be defined) 
    49    ln_zps      = .false.   !  z-coordinate - partial steps   (T/F) 
    50 / 
    51 !----------------------------------------------------------------------- 
    52 &namzgr_sco    !   s-coordinate or hybrid z-s-coordinate 
    53 !----------------------------------------------------------------------- 
    54 / 
    55 !----------------------------------------------------------------------- 
    56 &namdom        !   space and time domain (bathymetry, mesh, timestep) 
    57 !----------------------------------------------------------------------- 
    58    nn_bathy    =    0      !  compute (=0) or read (=1) the bathymetry file 
    59    rn_rdt      = 7200.     !  time step for the dynamics (and tracer if nn_acc=0) 
    60    nn_baro     =   60      !  number of barotropic time step            ("key_dynspg_ts") 
    61    rn_rdtmin   = 7200.           !  minimum time step on tracers (used if nn_acc=1) 
    62    rn_rdtmax   = 7200.           !  maximum time step on tracers (used if nn_acc=1) 
    63 / 
    64 !----------------------------------------------------------------------- 
    6565&namtsd    !   data : Temperature  & Salinity 
    6666!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE_BFM/EXP00/namelist_cfg

    r3973 r3993  
    3131   jpjzoom     =       1                 !  in data domain indices 
    3232   jperio      =       0                 !  lateral cond. type (between 0 and 6) 
     33/ 
     34&namzgr        !   vertical coordinate 
     35!----------------------------------------------------------------------- 
     36   ln_zco      = .true.    !  z-coordinate - full    steps   (T/F)      ("key_zco" may also be defined) 
     37   ln_zps      = .false.   !  z-coordinate - partial steps   (T/F) 
     38/ 
     39!----------------------------------------------------------------------- 
     40&namzgr_sco    !   s-coordinate or hybrid z-s-coordinate 
     41!----------------------------------------------------------------------- 
     42/ 
     43!----------------------------------------------------------------------- 
     44&namdom        !   space and time domain (bathymetry, mesh, timestep) 
     45!----------------------------------------------------------------------- 
     46   nn_bathy    =    0      !  compute (=0) or read (=1) the bathymetry file 
     47   rn_rdt      = 7200.     !  time step for the dynamics (and tracer if nn_acc=0) 
     48   nn_baro     =   60      !  number of barotropic time step            ("key_dynspg_ts") 
     49   rn_rdtmin   = 7200.           !  minimum time step on tracers (used if nn_acc=1) 
     50   rn_rdtmax   = 7200.           !  maximum time step on tracers (used if nn_acc=1) 
    3351   jphgr_msh   =       5                 !  type of horizontal mesh 
    3452   ppglam0     =       0.0               !  longitude of first raw and column T-point (jphgr_msh = 1) 
     
    5068   ppacr2      =  999999.0               ! 
    5169/ 
    52 &namzgr        !   vertical coordinate 
    53 !----------------------------------------------------------------------- 
    54    ln_zco      = .true.    !  z-coordinate - full    steps   (T/F)      ("key_zco" may also be defined) 
    55    ln_zps      = .false.   !  z-coordinate - partial steps   (T/F) 
    56 / 
    57 !----------------------------------------------------------------------- 
    58 &namzgr_sco    !   s-coordinate or hybrid z-s-coordinate 
    59 !----------------------------------------------------------------------- 
    60 / 
    61 !----------------------------------------------------------------------- 
    62 &namdom        !   space and time domain (bathymetry, mesh, timestep) 
    63 !----------------------------------------------------------------------- 
    64    nn_bathy    =    0      !  compute (=0) or read (=1) the bathymetry file 
    65    rn_rdt      = 7200.     !  time step for the dynamics (and tracer if nn_acc=0) 
    66    nn_baro     =   60      !  number of barotropic time step            ("key_dynspg_ts") 
    67    rn_rdtmin   = 7200.           !  minimum time step on tracers (used if nn_acc=1) 
    68    rn_rdtmax   = 7200.           !  maximum time step on tracers (used if nn_acc=1) 
    69 / 
    7070!----------------------------------------------------------------------- 
    7171&namtsd    !   data : Temperature  & Salinity 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE_PISCES/EXP00/namelist_cfg

    r3973 r3993  
    2424   jpjzoom     =       1                 !  in data domain indices 
    2525   jperio      =       0                 !  lateral cond. type (between 0 and 6) 
     26/ 
     27!----------------------------------------------------------------------- 
     28&namzgr        !   vertical coordinate 
     29!----------------------------------------------------------------------- 
     30   ln_zco      = .true.    !  z-coordinate - full    steps   (T/F)      ("key_zco" may also be defined) 
     31   ln_zps      = .false.   !  z-coordinate - partial steps   (T/F) 
     32/ 
     33!----------------------------------------------------------------------- 
     34&namdom        !   space and time domain (bathymetry, mesh, timestep) 
     35!----------------------------------------------------------------------- 
     36   nn_bathy    =    0      !  compute (=0) or read (=1) the bathymetry file 
     37   rn_rdt      = 7200.     !  time step for the dynamics (and tracer if nn_acc=0) 
     38   nn_baro     =   60      !  number of barotropic time step            ("key_dynspg_ts") 
     39   rn_rdtmin   = 7200.           !  minimum time step on tracers (used if nn_acc=1) 
     40   rn_rdtmax   = 7200.           !  maximum time step on tracers (used if nn_acc=1) 
    2641   jphgr_msh   =       5                 !  type of horizontal mesh 
    2742   ppglam0     =       0.0               !  longitude of first raw and column T-point (jphgr_msh = 1) 
     
    4257   ppkth2      =  999999.0               ! 
    4358   ppacr2      =  999999.0               ! 
    44 / 
    45 !----------------------------------------------------------------------- 
    46 &namzgr        !   vertical coordinate 
    47 !----------------------------------------------------------------------- 
    48    ln_zco      = .true.    !  z-coordinate - full    steps   (T/F)      ("key_zco" may also be defined) 
    49    ln_zps      = .false.   !  z-coordinate - partial steps   (T/F) 
    50 / 
    51 !----------------------------------------------------------------------- 
    52 &namdom        !   space and time domain (bathymetry, mesh, timestep) 
    53 !----------------------------------------------------------------------- 
    54    nn_bathy    =    0      !  compute (=0) or read (=1) the bathymetry file 
    55    rn_rdt      = 7200.     !  time step for the dynamics (and tracer if nn_acc=0) 
    56    nn_baro     =   60      !  number of barotropic time step            ("key_dynspg_ts") 
    57    rn_rdtmin   = 7200.           !  minimum time step on tracers (used if nn_acc=1) 
    58    rn_rdtmax   = 7200.           !  maximum time step on tracers (used if nn_acc=1) 
    5959/ 
    6060!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist_cfg

    r3973 r3993  
    2222   jpjzoom     =       1               !  in data domain indices 
    2323   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     24/ 
     25!----------------------------------------------------------------------- 
     26&namzgr        !   vertical coordinate 
     27!----------------------------------------------------------------------- 
     28/ 
     29!----------------------------------------------------------------------- 
     30&namdom        !   space and time domain (bathymetry, mesh, timestep) 
     31!----------------------------------------------------------------------- 
    2432   jphgr_msh   =       0               !  type of horizontal mesh 
    2533   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     
    4048   ppkth2      =  999999.              ! 
    4149   ppacr2      =  999999.              ! 
    42 / 
    43 !----------------------------------------------------------------------- 
    44 &namzgr        !   vertical coordinate 
    45 !----------------------------------------------------------------------- 
    46 / 
    47 !----------------------------------------------------------------------- 
    48 &namdom        !   space and time domain (bathymetry, mesh, timestep) 
    49 !----------------------------------------------------------------------- 
    5050/ 
    5151!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM_CFC_C14b/EXP00/namelist_cfg

    r3973 r3993  
    2828   jpjzoom     =       1               !  in data domain indices 
    2929   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     30/ 
     31!----------------------------------------------------------------------- 
     32&namzgr        !   vertical coordinate 
     33!----------------------------------------------------------------------- 
     34/ 
     35!----------------------------------------------------------------------- 
     36&namzgr_sco    !   s-coordinate or hybrid z-s-coordinate 
     37!----------------------------------------------------------------------- 
     38   rn_sbot_min =  300.     !  minimum depth of s-bottom surface (>0) (m) 
     39   rn_sbot_max = 5250.     !  maximum depth of s-bottom surface (= ocean depth) (>0) (m) 
     40   rn_theta    =    6.0    !  surface control parameter (0<=rn_theta<=20) 
     41   rn_thetb    =    0.75   !  bottom control parameter  (0<=rn_thetb<= 1) 
     42   rn_rmax     =    0.15   !  maximum cut-off r-value allowed (0<rn_max<1) 
     43   ln_s_sigma  = .false.   !  hybrid s-sigma coordinates 
     44   rn_bb       =    0.8    !  stretching with s-sigma 
     45   rn_hc       =  150.0    !  critical depth with s-sigma  
     46/ 
     47!----------------------------------------------------------------------- 
     48&namdom        !   space and time domain (bathymetry, mesh, timestep) 
     49!----------------------------------------------------------------------- 
    3050   jphgr_msh   =       0               !  type of horizontal mesh 
    3151   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     
    4868/ 
    4969!----------------------------------------------------------------------- 
    50 &namzgr        !   vertical coordinate 
    51 !----------------------------------------------------------------------- 
    52 / 
    53 !----------------------------------------------------------------------- 
    54 &namzgr_sco    !   s-coordinate or hybrid z-s-coordinate 
    55 !----------------------------------------------------------------------- 
    56    rn_sbot_min =  300.     !  minimum depth of s-bottom surface (>0) (m) 
    57    rn_sbot_max = 5250.     !  maximum depth of s-bottom surface (= ocean depth) (>0) (m) 
    58    rn_theta    =    6.0    !  surface control parameter (0<=rn_theta<=20) 
    59    rn_thetb    =    0.75   !  bottom control parameter  (0<=rn_thetb<= 1) 
    60    rn_rmax     =    0.15   !  maximum cut-off r-value allowed (0<rn_max<1) 
    61    ln_s_sigma  = .false.   !  hybrid s-sigma coordinates 
    62    rn_bb       =    0.8    !  stretching with s-sigma 
    63    rn_hc       =  150.0    !  critical depth with s-sigma  
    64 / 
    65 !----------------------------------------------------------------------- 
    66 &namdom        !   space and time domain (bathymetry, mesh, timestep) 
    67 !----------------------------------------------------------------------- 
    68 / 
    69 !----------------------------------------------------------------------- 
    7070&namtsd    !   data : Temperature  & Salinity                            
    7171!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_cfg

    r3973 r3993  
    2222   jpjzoom     =       1               !  in data domain indices 
    2323   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     24/ 
     25!----------------------------------------------------------------------- 
     26&namzgr        !   vertical coordinate 
     27!----------------------------------------------------------------------- 
     28/ 
     29!----------------------------------------------------------------------- 
     30&namdom        !   space and time domain (bathymetry, mesh, timestep) 
     31!----------------------------------------------------------------------- 
    2432   jphgr_msh   =       0               !  type of horizontal mesh 
    2533   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     
    4048   ppkth2      =  999999.              ! 
    4149   ppacr2      =  999999.              ! 
    42 / 
    43 !----------------------------------------------------------------------- 
    44 &namzgr        !   vertical coordinate 
    45 !----------------------------------------------------------------------- 
    46 / 
    47 !----------------------------------------------------------------------- 
    48 &namdom        !   space and time domain (bathymetry, mesh, timestep) 
    49 !----------------------------------------------------------------------- 
    5050/ 
    5151!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist_cfg

    r3973 r3993  
    2323   jpjzoom     =       1               !  in data domain indices 
    2424   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     25/ 
     26!----------------------------------------------------------------------- 
     27&namzgr        !   vertical coordinate 
     28!----------------------------------------------------------------------- 
     29/ 
     30!----------------------------------------------------------------------- 
     31&namdom        !   space and time domain (bathymetry, mesh, timestep) 
     32!----------------------------------------------------------------------- 
     33   nn_msh      =    1      !  create (=1) a mesh file or not (=0) 
     34   rn_rdt      = 21600.    !  time step for the dynamics (and tracer if nn_acc=0) 
     35   rn_rdtmin   = 21600.          !  minimum time step on tracers (used if nn_acc=1) 
     36   rn_rdtmax   = 21600.          !  maximum time step on tracers (used if nn_acc=1) 
    2537   jphgr_msh   =       0               !  type of horizontal mesh 
    2638   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     
    4153   ppkth2      =  999999.              ! 
    4254   ppacr2      =  999999.              ! 
    43 / 
    44 !----------------------------------------------------------------------- 
    45 &namzgr        !   vertical coordinate 
    46 !----------------------------------------------------------------------- 
    47 / 
    48 !----------------------------------------------------------------------- 
    49 &namdom        !   space and time domain (bathymetry, mesh, timestep) 
    50 !----------------------------------------------------------------------- 
    51    nn_msh      =    1      !  create (=1) a mesh file or not (=0) 
    52    rn_rdt      = 21600.    !  time step for the dynamics (and tracer if nn_acc=0) 
    53    rn_rdtmin   = 21600.          !  minimum time step on tracers (used if nn_acc=1) 
    54    rn_rdtmax   = 21600.          !  maximum time step on tracers (used if nn_acc=1) 
    5555/ 
    5656 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/namelist_cfg

    r3973 r3993  
    2222   jpjzoom     =       1               !  in data domain indices 
    2323   jperio      =       4               !  lateral cond. type (between 0 and 6) 
     24/ 
     25!----------------------------------------------------------------------- 
     26&namzgr        !   vertical coordinate 
     27!----------------------------------------------------------------------- 
     28/ 
     29!----------------------------------------------------------------------- 
     30&namdom        !   space and time domain (bathymetry, mesh, timestep) 
     31!----------------------------------------------------------------------- 
    2432   jphgr_msh   =       0               !  type of horizontal mesh 
    2533   ppglam0     =  999999.0             !  longitude of first raw and column T-point (jphgr_msh = 1) 
     
    4048   ppkth2      =  999999.              ! 
    4149   ppacr2      =  999999.              ! 
    42 / 
    43 !----------------------------------------------------------------------- 
    44 &namzgr        !   vertical coordinate 
    45 !----------------------------------------------------------------------- 
    46 / 
    47 !----------------------------------------------------------------------- 
    48 &namdom        !   space and time domain (bathymetry, mesh, timestep) 
    49 !----------------------------------------------------------------------- 
    5050/ 
    5151!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/opa

    r3875 r3993  
    1 link /Users/clairelevy/Documents/WORK/CONFIG_SETTING2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_SAS_LIM/BLD/bin/nemo.exe 
     1link /Users/clelod/Documents/WORK/CF/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_SAS_LIM/BLD/bin/nemo.exe 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/SHARED/namelist_ref

    r3989 r3993  
    6666                                       !  = 5 North fold F-point pivot 
    6767                                       !  = 6 cyclic East-West AND North fold F-point pivot 
     68/ 
     69!!====================================================================== 
     70!!                      ***  Domain namelists  *** 
     71!!====================================================================== 
     72!!   namzgr       vertical coordinate 
     73!!   namzgr_sco   s-coordinate or hybrid z-s-coordinate 
     74!!   namdom       space and time domain (bathymetry, mesh, timestep) 
     75!!   namtsd       data: temperature & salinity 
     76!!====================================================================== 
     77! 
     78!----------------------------------------------------------------------- 
     79&namzgr        !   vertical coordinate 
     80!----------------------------------------------------------------------- 
     81   ln_zco      = .false.   !  z-coordinate - full    steps   (T/F)      ("key_zco" may also be defined) 
     82   ln_zps      = .true.    !  z-coordinate - partial steps   (T/F) 
     83   ln_sco      = .false.   !  s- or hybrid z-s-coordinate    (T/F) 
     84/ 
     85!----------------------------------------------------------------------- 
     86&namzgr_sco    !   s-coordinate or hybrid z-s-coordinate 
     87!----------------------------------------------------------------------- 
     88   ln_s_sh94   = .true.    !  Song & Haidvogel 1994 hybrid S-sigma   (T)| 
     89   ln_s_sf12   = .false.   !  Siddorn & Furner 2012 hybrid S-z-sigma (T)| if both are false the NEMO tanh stretching is applied 
     90   ln_sigcrit  = .false.   !  use sigma coordinates below critical depth (T) or Z coordinates (F) for Siddorn & Furner stretch 
     91                           !  stretching coefficients for all functions 
     92   rn_sbot_min =   10.0    !  minimum depth of s-bottom surface (>0) (m) 
     93   rn_sbot_max = 7000.0    !  maximum depth of s-bottom surface (= ocean depth) (>0) (m) 
     94   rn_hc       =  150.0    !  critical depth for transition to stretched coordinates 
     95                        !!!!!!!  Envelop bathymetry 
     96   rn_rmax     =    0.3    !  maximum cut-off r-value allowed (0<r_max<1) 
     97                        !!!!!!!  SH94 stretching coefficients  (ln_s_sh94 = .true.) 
     98   rn_theta    =    6.0    !  surface control parameter (0<=theta<=20) 
     99   rn_bb       =    0.8    !  stretching with SH94 s-sigma    
     100                        !!!!!!!  SF12 stretching coefficient  (ln_s_sf12 = .true.) 
     101   rn_alpha    =    4.4    !  stretching with SF12 s-sigma 
     102   rn_efold    =    0.0    !  efold length scale for transition to stretched coord 
     103   rn_zs       =    1.0    !  depth of surface grid box 
     104                           !  bottom cell depth (Zb) is a linear function of water depth Zb = H*a + b 
     105   rn_zb_a     =    0.024  !  bathymetry scaling factor for calculating Zb 
     106   rn_zb_b     =   -0.2    !  offset for calculating Zb 
     107                        !!!!!!!! Other stretching (not SH94 or SF12) [also uses rn_theta above] 
     108   rn_thetb    =    1.0    !  bottom control parameter  (0<=thetb<= 1)  
     109/ 
     110!----------------------------------------------------------------------- 
     111&namdom        !   space and time domain (bathymetry, mesh, timestep) 
     112!----------------------------------------------------------------------- 
     113   nn_bathy    =    1      !  compute (=0) or read (=1) the bathymetry file 
     114   nn_closea    =   0      !  remove (=0) or keep (=1) closed seas and lakes (ORCA) 
     115   nn_msh      =    0      !  create (=1) a mesh file or not (=0) 
     116   rn_hmin     =   -3.     !  min depth of the ocean (>0) or min number of ocean level (<0) 
     117   rn_e3zps_min=   20.     !  partial step thickness is set larger than the minimum of 
     118   rn_e3zps_rat=    0.1    !  rn_e3zps_min and rn_e3zps_rat*e3t, with 0<rn_e3zps_rat<1 
     119                           ! 
     120   rn_rdt      = 5760.     !  time step for the dynamics (and tracer if nn_acc=0) 
     121   nn_baro     =   64      !  number of barotropic time step            ("key_dynspg_ts") 
     122   rn_atfp     =    0.1    !  asselin time filter parameter 
     123   nn_acc      =    0      !  acceleration of convergence : =1      used, rdt < rdttra(k) 
     124                                 !                          =0, not used, rdt = rdttra 
     125   rn_rdtmin   = 28800.          !  minimum time step on tracers (used if nn_acc=1) 
     126   rn_rdtmax   = 28800.          !  maximum time step on tracers (used if nn_acc=1) 
     127   rn_rdth     =  800.           !  depth variation of tracer time step  (used if nn_acc=1) 
    68128   jphgr_msh   =       0               !  type of horizontal mesh 
    69129                                       !  = 0 curvilinear coordinate on the sphere read in coordinate.nc 
     
    89149   ppkth2      =       48.029893720000 ! 
    90150   ppacr2      =       13.000000000000 ! 
    91 / 
    92 !!====================================================================== 
    93 !!                      ***  Domain namelists  *** 
    94 !!====================================================================== 
    95 !!   namzgr       vertical coordinate 
    96 !!   namzgr_sco   s-coordinate or hybrid z-s-coordinate 
    97 !!   namdom       space and time domain (bathymetry, mesh, timestep) 
    98 !!   namtsd       data: temperature & salinity 
    99 !!====================================================================== 
    100 ! 
    101 !----------------------------------------------------------------------- 
    102 &namzgr        !   vertical coordinate 
    103 !----------------------------------------------------------------------- 
    104    ln_zco      = .false.   !  z-coordinate - full    steps   (T/F)      ("key_zco" may also be defined) 
    105    ln_zps      = .true.    !  z-coordinate - partial steps   (T/F) 
    106    ln_sco      = .false.   !  s- or hybrid z-s-coordinate    (T/F) 
    107 / 
    108 !----------------------------------------------------------------------- 
    109 &namzgr_sco    !   s-coordinate or hybrid z-s-coordinate 
    110 !----------------------------------------------------------------------- 
    111    ln_s_sh94   = .true.    !  Song & Haidvogel 1994 hybrid S-sigma   (T)| 
    112    ln_s_sf12   = .false.   !  Siddorn & Furner 2012 hybrid S-z-sigma (T)| if both are false the NEMO tanh stretching is applied 
    113    ln_sigcrit  = .false.   !  use sigma coordinates below critical depth (T) or Z coordinates (F) for Siddorn & Furner stretch 
    114                            !  stretching coefficients for all functions 
    115    rn_sbot_min =   10.0    !  minimum depth of s-bottom surface (>0) (m) 
    116    rn_sbot_max = 7000.0    !  maximum depth of s-bottom surface (= ocean depth) (>0) (m) 
    117    rn_hc       =  150.0    !  critical depth for transition to stretched coordinates 
    118                         !!!!!!!  Envelop bathymetry 
    119    rn_rmax     =    0.3    !  maximum cut-off r-value allowed (0<r_max<1) 
    120                         !!!!!!!  SH94 stretching coefficients  (ln_s_sh94 = .true.) 
    121    rn_theta    =    6.0    !  surface control parameter (0<=theta<=20) 
    122    rn_bb       =    0.8    !  stretching with SH94 s-sigma    
    123                         !!!!!!!  SF12 stretching coefficient  (ln_s_sf12 = .true.) 
    124    rn_alpha    =    4.4    !  stretching with SF12 s-sigma 
    125    rn_efold    =    0.0    !  efold length scale for transition to stretched coord 
    126    rn_zs       =    1.0    !  depth of surface grid box 
    127                            !  bottom cell depth (Zb) is a linear function of water depth Zb = H*a + b 
    128    rn_zb_a     =    0.024  !  bathymetry scaling factor for calculating Zb 
    129    rn_zb_b     =   -0.2    !  offset for calculating Zb 
    130                         !!!!!!!! Other stretching (not SH94 or SF12) [also uses rn_theta above] 
    131    rn_thetb    =    1.0    !  bottom control parameter  (0<=thetb<= 1)  
    132 / 
    133 !----------------------------------------------------------------------- 
    134 &namdom        !   space and time domain (bathymetry, mesh, timestep) 
    135 !----------------------------------------------------------------------- 
    136    nn_bathy    =    1      !  compute (=0) or read (=1) the bathymetry file 
    137    nn_closea    =   0      !  remove (=0) or keep (=1) closed seas and lakes (ORCA) 
    138    nn_msh      =    0      !  create (=1) a mesh file or not (=0) 
    139    rn_hmin     =   -3.     !  min depth of the ocean (>0) or min number of ocean level (<0) 
    140    rn_e3zps_min=   20.     !  partial step thickness is set larger than the minimum of 
    141    rn_e3zps_rat=    0.1    !  rn_e3zps_min and rn_e3zps_rat*e3t, with 0<rn_e3zps_rat<1 
    142                            ! 
    143    rn_rdt      = 5760.     !  time step for the dynamics (and tracer if nn_acc=0) 
    144    nn_baro     =   64      !  number of barotropic time step            ("key_dynspg_ts") 
    145    rn_atfp     =    0.1    !  asselin time filter parameter 
    146    nn_acc      =    0      !  acceleration of convergence : =1      used, rdt < rdttra(k) 
    147                                  !                          =0, not used, rdt = rdttra 
    148    rn_rdtmin   = 28800.          !  minimum time step on tracers (used if nn_acc=1) 
    149    rn_rdtmax   = 28800.          !  maximum time step on tracers (used if nn_acc=1) 
    150    rn_rdth     =  800.           !  depth variation of tracer time step  (used if nn_acc=1) 
    151151/ 
    152152!----------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/cfg.txt

    r3973 r3993  
    11ORCA2_LIM3 OPA_SRC LIM_SRC_3 
     2O2L3 OPA_SRC LIM_SRC_3 TOP_SRC 
     3GYRE_BFM OPA_SRC TOP_SRC 
     4GYRE OPA_SRC 
    25ORCA2_LIM OPA_SRC LIM_SRC_2 NST_SRC 
    3 AGRIF OPA_SRC LIM_SRC_2 NST_SRC 
    4 GYRE OPA_SRC 
    5 GYRE_PISCES OPA_SRC TOP_SRC 
    66AMM12 OPA_SRC 
    7 ORCA2_LIM_CFC_C14b OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 
    87ORCA2_SAS_LIM OPA_SRC SAS_SRC LIM_SRC_2 NST_SRC 
    98ORCA2_OFF_PISCES OPA_SRC OFF_SRC TOP_SRC 
    10 O2L3 OPA_SRC LIM_SRC_3 TOP_SRC 
    119ORCA2_LIM_PISCES OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 
    12 GYRE_BFM OPA_SRC TOP_SRC 
     10GYRE_PISCES OPA_SRC TOP_SRC 
     11ORCA2_LIM_CFC_C14b OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 
     12AGRIF OPA_SRC LIM_SRC_2 NST_SRC 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/EXTERNAL/AGRIF/LIB/main.c

    r3294 r3993  
    1 /* A Bison parser, made by GNU Bison 2.3.  */ 
    2  
    3 /* Skeleton implementation for Bison's Yacc-like parsers in C 
    4  
    5    Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006 
    6    Free Software Foundation, Inc. 
    7  
    8    This program is free software; you can redistribute it and/or modify 
     1/* A Bison parser, made by GNU Bison 2.7.12-4996.  */ 
     2 
     3/* Bison implementation for Yacc-like parsers in C 
     4    
     5      Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc. 
     6    
     7   This program is free software: you can redistribute it and/or modify 
    98   it under the terms of the GNU General Public License as published by 
    10    the Free Software Foundation; either version 2, or (at your option) 
    11    any later version. 
    12  
     9   the Free Software Foundation, either version 3 of the License, or 
     10   (at your option) any later version. 
     11    
    1312   This program is distributed in the hope that it will be useful, 
    1413   but WITHOUT ANY WARRANTY; without even the implied warranty of 
    1514   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
    1615   GNU General Public License for more details. 
    17  
     16    
    1817   You should have received a copy of the GNU General Public License 
    19    along with this program; if not, write to the Free Software 
    20    Foundation, Inc., 51 Franklin Street, Fifth Floor, 
    21    Boston, MA 02110-1301, USA.  */ 
     18   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */ 
    2219 
    2320/* As a special exception, you may create a larger work that contains 
     
    3027   Bison output files to be licensed under the GNU General Public 
    3128   License without this special exception. 
    32  
     29    
    3330   This special exception was added by the Free Software Foundation in 
    3431   version 2.2 of Bison.  */ 
     
    4845 
    4946/* Bison version.  */ 
    50 #define YYBISON_VERSION "2.3" 
     47#define YYBISON_VERSION "2.7.12-4996" 
    5148 
    5249/* Skeleton name.  */ 
     
    5653#define YYPURE 0 
    5754 
    58 /* Using locations.  */ 
    59 #define YYLSP_NEEDED 0 
    60  
    61  
     55/* Push parsers.  */ 
     56#define YYPUSH 0 
     57 
     58/* Pull parsers.  */ 
     59#define YYPULL 1 
     60 
     61 
     62 
     63 
     64/* Copy the first part of user declarations.  */ 
     65/* Line 371 of yacc.c  */ 
     66#line 35 "convert.y" 
     67 
     68#include <stdlib.h> 
     69#include <stdio.h> 
     70#include <string.h> 
     71#include "decl.h" 
     72 
     73/* Line 371 of yacc.c  */ 
     74#line 75 "convert.tab.c" 
     75 
     76# ifndef YY_NULL 
     77#  if defined __cplusplus && 201103L <= __cplusplus 
     78#   define YY_NULL nullptr 
     79#  else 
     80#   define YY_NULL 0 
     81#  endif 
     82# endif 
     83 
     84/* Enabling verbose error messages.  */ 
     85#ifdef YYERROR_VERBOSE 
     86# undef YYERROR_VERBOSE 
     87# define YYERROR_VERBOSE 1 
     88#else 
     89# define YYERROR_VERBOSE 0 
     90#endif 
     91 
     92 
     93/* Enabling traces.  */ 
     94#ifndef YYDEBUG 
     95# define YYDEBUG 0 
     96#endif 
     97#if YYDEBUG 
     98extern int yydebug; 
     99#endif 
    62100 
    63101/* Tokens.  */ 
     
    76114   }; 
    77115#endif 
    78 /* Tokens.  */ 
    79 #define TOK_SEP 258 
    80 #define TOK_USE 259 
    81 #define TOK_MODULEMAIN 260 
    82 #define TOK_NOTGRIDDEP 261 
    83 #define TOK_USEITEM 262 
    84 #define TOK_NAME 263 
    85 #define TOK_PROBTYPE 264 
    86  
    87  
    88  
    89  
    90 /* Copy the first part of user declarations.  */ 
    91 #line 35 "convert.y" 
    92  
    93 #include <stdlib.h> 
    94 #include <stdio.h> 
    95 #include <string.h> 
    96 #include "decl.h" 
    97  
    98  
    99 /* Enabling traces.  */ 
    100 #ifndef YYDEBUG 
    101 # define YYDEBUG 0 
    102 #endif 
    103  
    104 /* Enabling verbose error messages.  */ 
    105 #ifdef YYERROR_VERBOSE 
    106 # undef YYERROR_VERBOSE 
    107 # define YYERROR_VERBOSE 1 
    108 #else 
    109 # define YYERROR_VERBOSE 0 
    110 #endif 
    111  
    112 /* Enabling the token table.  */ 
    113 #ifndef YYTOKEN_TABLE 
    114 # define YYTOKEN_TABLE 0 
    115 #endif 
     116 
    116117 
    117118#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED 
    118119typedef union YYSTYPE 
     120{ 
     121/* Line 387 of yacc.c  */ 
    119122#line 42 "convert.y" 
    120 { 
     123 
    121124       int ival; 
    122125       char na[LONG_C]; 
    123126       listnom * ln; 
    124        } 
    125 /* Line 193 of yacc.c.  */ 
    126 #line 127 "convert.tab.c" 
    127    YYSTYPE; 
     127        
     128 
     129/* Line 387 of yacc.c  */ 
     130#line 131 "convert.tab.c" 
     131} YYSTYPE; 
     132# define YYSTYPE_IS_TRIVIAL 1 
    128133# define yystype YYSTYPE /* obsolescent; will be withdrawn */ 
    129134# define YYSTYPE_IS_DECLARED 1 
    130 # define YYSTYPE_IS_TRIVIAL 1 
    131 #endif 
     135#endif 
     136 
     137extern YYSTYPE yylval; 
     138 
     139#ifdef YYPARSE_PARAM 
     140#if defined __STDC__ || defined __cplusplus 
     141int yyparse (void *YYPARSE_PARAM); 
     142#else 
     143int yyparse (); 
     144#endif 
     145#else /* ! YYPARSE_PARAM */ 
     146#if defined __STDC__ || defined __cplusplus 
     147int yyparse (void); 
     148#else 
     149int yyparse (); 
     150#endif 
     151#endif /* ! YYPARSE_PARAM */ 
    132152 
    133153 
     
    135155/* Copy the second part of user declarations.  */ 
    136156 
    137  
    138 /* Line 216 of yacc.c.  */ 
    139 #line 140 "convert.tab.c" 
     157/* Line 390 of yacc.c  */ 
     158#line 159 "convert.tab.c" 
    140159 
    141160#ifdef short 
     
    190209#  if ENABLE_NLS 
    191210#   include <libintl.h> /* INFRINGES ON USER NAME SPACE */ 
    192 #   define YY_(msgid) dgettext ("bison-runtime", msgid) 
     211#   define YY_(Msgid) dgettext ("bison-runtime", Msgid) 
    193212#  endif 
    194213# endif 
    195214# ifndef YY_ 
    196 #  define YY_(msgid) msgid 
     215#  define YY_(Msgid) Msgid 
     216# endif 
     217#endif 
     218 
     219#ifndef __attribute__ 
     220/* This feature is available in gcc versions 2.5 and later.  */ 
     221# if (! defined __GNUC__ || __GNUC__ < 2 \ 
     222      || (__GNUC__ == 2 && __GNUC_MINOR__ < 5)) 
     223#  define __attribute__(Spec) /* empty */ 
    197224# endif 
    198225#endif 
     
    200227/* Suppress unused-variable warnings by "using" E.  */ 
    201228#if ! defined lint || defined __GNUC__ 
    202 # define YYUSE(e) ((void) (e)) 
     229# define YYUSE(E) ((void) (E)) 
    203230#else 
    204 # define YYUSE(e) /* empty */ 
    205 #endif 
     231# define YYUSE(E) /* empty */ 
     232#endif 
     233 
    206234 
    207235/* Identity function, used to suppress warnings about constant conditions.  */ 
    208236#ifndef lint 
    209 # define YYID(n) (n) 
     237# define YYID(N) (N) 
    210238#else 
    211239#if (defined __STDC__ || defined __C99__FUNC__ \ 
    212240     || defined __cplusplus || defined _MSC_VER) 
    213241static int 
    214 YYID (int i) 
     242YYID (int yyi) 
    215243#else 
    216244static int 
    217 YYID (i) 
    218     int i; 
    219 #endif 
    220 { 
    221   return i; 
     245YYID (yyi) 
     246    int yyi; 
     247#endif 
     248{ 
     249  return yyi; 
    222250} 
    223251#endif 
     
    240268#   else 
    241269#    define YYSTACK_ALLOC alloca 
    242 #    if ! defined _ALLOCA_H && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ 
     270#    if ! defined _ALLOCA_H && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \ 
    243271     || defined __cplusplus || defined _MSC_VER) 
    244272#     include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ 
    245 #     ifndef _STDLIB_H 
    246 #      define _STDLIB_H 1 
     273      /* Use EXIT_SUCCESS as a witness for stdlib.h.  */ 
     274#     ifndef EXIT_SUCCESS 
     275#      define EXIT_SUCCESS 0 
    247276#     endif 
    248277#    endif 
     
    267296#   define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM 
    268297#  endif 
    269 #  if (defined __cplusplus && ! defined _STDLIB_H \ 
     298#  if (defined __cplusplus && ! defined EXIT_SUCCESS \ 
    270299       && ! ((defined YYMALLOC || defined malloc) \ 
    271300        && (defined YYFREE || defined free))) 
    272301#   include <stdlib.h> /* INFRINGES ON USER NAME SPACE */ 
    273 #   ifndef _STDLIB_H 
    274 #    define _STDLIB_H 1 
     302#   ifndef EXIT_SUCCESS 
     303#    define EXIT_SUCCESS 0 
    275304#   endif 
    276305#  endif 
    277306#  ifndef YYMALLOC 
    278307#   define YYMALLOC malloc 
    279 #   if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ 
     308#   if ! defined malloc && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \ 
    280309     || defined __cplusplus || defined _MSC_VER) 
    281310void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */ 
     
    284313#  ifndef YYFREE 
    285314#   define YYFREE free 
    286 #   if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \ 
     315#   if ! defined free && ! defined EXIT_SUCCESS && (defined __STDC__ || defined __C99__FUNC__ \ 
    287316     || defined __cplusplus || defined _MSC_VER) 
    288317void free (void *); /* INFRINGES ON USER NAME SPACE */ 
     
    300329union yyalloc 
    301330{ 
    302   yytype_int16 yyss; 
    303   YYSTYPE yyvs; 
    304   }; 
     331  yytype_int16 yyss_alloc; 
     332  YYSTYPE yyvs_alloc; 
     333}; 
    305334 
    306335/* The size of the maximum gap between one aligned stack and the next.  */ 
     
    313342      + YYSTACK_GAP_MAXIMUM) 
    314343 
    315 /* Copy COUNT objects from FROM to TO.  The source and destination do 
    316    not overlap.  */ 
    317 # ifndef YYCOPY 
    318 #  if defined __GNUC__ && 1 < __GNUC__ 
    319 #   define YYCOPY(To, From, Count) \ 
    320       __builtin_memcpy (To, From, (Count) * sizeof (*(From))) 
    321 #  else 
    322 #   define YYCOPY(To, From, Count)     \ 
    323       do             \ 
    324    {              \ 
    325      YYSIZE_T yyi;            \ 
    326      for (yyi = 0; yyi < (Count); yyi++)  \ 
    327        (To)[yyi] = (From)[yyi];     \ 
    328    }              \ 
    329       while (YYID (0)) 
    330 #  endif 
    331 # endif 
     344# define YYCOPY_NEEDED 1 
    332345 
    333346/* Relocate STACK from its old location to the new one.  The 
     
    336349   stack.  Advance YYPTR to a properly aligned location for the next 
    337350   stack.  */ 
    338 # define YYSTACK_RELOCATE(Stack)             \ 
     351# define YYSTACK_RELOCATE(Stack_alloc, Stack)            \ 
    339352    do                           \ 
    340353      {                          \ 
    341354   YYSIZE_T yynewbytes;                \ 
    342    YYCOPY (&yyptr->Stack, Stack, yysize);          \ 
    343    Stack = &yyptr->Stack               \ 
     355   YYCOPY (&yyptr->Stack_alloc, Stack, yysize);       \ 
     356   Stack = &yyptr->Stack_alloc;              \ 
    344357   yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \ 
    345358   yyptr += yynewbytes / sizeof (*yyptr);          \ 
     
    348361 
    349362#endif 
     363 
     364#if defined YYCOPY_NEEDED && YYCOPY_NEEDED 
     365/* Copy COUNT objects from SRC to DST.  The source and destination do 
     366   not overlap.  */ 
     367# ifndef YYCOPY 
     368#  if defined __GNUC__ && 1 < __GNUC__ 
     369#   define YYCOPY(Dst, Src, Count) \ 
     370      __builtin_memcpy (Dst, Src, (Count) * sizeof (*(Src))) 
     371#  else 
     372#   define YYCOPY(Dst, Src, Count)              \ 
     373      do                                        \ 
     374        {                                       \ 
     375          YYSIZE_T yyi;                         \ 
     376          for (yyi = 0; yyi < (Count); yyi++)   \ 
     377            (Dst)[yyi] = (Src)[yyi];            \ 
     378        }                                       \ 
     379      while (YYID (0)) 
     380#  endif 
     381# endif 
     382#endif /* !YYCOPY_NEEDED */ 
    350383 
    351384/* YYFINAL -- State number of the termination state.  */ 
     
    428461#endif 
    429462 
    430 #if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE 
     463#if YYDEBUG || YYERROR_VERBOSE || 0 
    431464/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM. 
    432465   First, the terminals, then, starting at YYNTOKENS, nonterminals.  */ 
     
    436469  "TOK_NOTGRIDDEP", "TOK_USEITEM", "TOK_NAME", "TOK_PROBTYPE", "','", 
    437470  "';'", "':'", "'('", "')'", "'['", "']'", "'\\n'", "$accept", "input", 
    438   "line", 0 
     471  "line", YY_NULL 
    439472}; 
    440473#endif 
     
    464497}; 
    465498 
    466 /* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state 
    467    STATE-NUM when YYTABLE doesn't specify something else to do.  Zero 
     499/* YYDEFACT[STATE-NAME] -- Default reduction number in state STATE-NUM. 
     500   Performed when YYTABLE doesn't specify something else to do.  Zero 
    468501   means the default is an error.  */ 
    469502static const yytype_uint8 yydefact[] = 
     
    498531/* YYTABLE[YYPACT[STATE-NUM]].  What to do in state STATE-NUM.  If 
    499532   positive, shift that token.  If negative, reduce the rule which 
    500    number is the opposite.  If zero, do what YYDEFACT says. 
    501    If YYTABLE_NINF, syntax error.  */ 
     533   number is the opposite.  If YYTABLE_NINF, syntax error.  */ 
    502534#define YYTABLE_NINF -1 
    503535static const yytype_uint8 yytable[] = 
     
    508540}; 
    509541 
     542#define yypact_value_is_default(Yystate) \ 
     543  (!!((Yystate) == (-10))) 
     544 
     545#define yytable_value_is_error(Yytable_value) \ 
     546  YYID (0) 
     547 
    510548static const yytype_int8 yycheck[] = 
    511549{ 
     
    536574/* Like YYERROR except do call yyerror.  This remains here temporarily 
    537575   to ease the transition to the new meaning of YYERROR, for GCC. 
    538    Once GCC version 2 has supplanted version 1, this can go.  */ 
     576   Once GCC version 2 has supplanted version 1, this can go.  However, 
     577   YYFAIL appears to be in use.  Nevertheless, it is formally deprecated 
     578   in Bison 2.4.2's NEWS entry, where a plan to phase it out is 
     579   discussed.  */ 
    539580 
    540581#define YYFAIL    goto yyerrlab 
     582#if defined YYFAIL 
     583  /* This is here to suppress warnings from the GCC cpp's 
     584     -Wunused-macros.  Normally we don't worry about that warning, but 
     585     some users do, and we want to make it easy for users to remove 
     586     YYFAIL uses, which will produce warnings from Bison 2.5.  */ 
     587#endif 
    541588 
    542589#define YYRECOVERING()  (!!yyerrstatus) 
    543590 
    544 #define YYBACKUP(Token, Value)               \ 
    545 do                      \ 
    546   if (yychar == YYEMPTY && yylen == 1)          \ 
    547     {                      \ 
    548       yychar = (Token);                \ 
    549       yylval = (Value);                \ 
    550       yytoken = YYTRANSLATE (yychar);           \ 
    551       YYPOPSTACK (1);                  \ 
    552       goto yybackup;                \ 
    553     }                      \ 
    554   else                        \ 
    555     {                      \ 
     591#define YYBACKUP(Token, Value)                                  \ 
     592do                                                              \ 
     593  if (yychar == YYEMPTY)                                        \ 
     594    {                                                           \ 
     595      yychar = (Token);                                         \ 
     596      yylval = (Value);                                         \ 
     597      YYPOPSTACK (yylen);                                       \ 
     598      yystate = *yyssp;                                         \ 
     599      goto yybackup;                                            \ 
     600    }                                                           \ 
     601  else                                                          \ 
     602    {                                                           \ 
    556603      yyerror (YY_("syntax error: cannot back up")); \ 
    557604      YYERROR;                   \ 
     
    559606while (YYID (0)) 
    560607 
    561  
     608/* Error token number */ 
    562609#define YYTERROR  1 
    563610#define YYERRCODE 256 
    564611 
    565612 
    566 /* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N]. 
    567    If N is 0, then set CURRENT to the empty location which ends 
    568    the previous symbol: RHS[0] (always defined).  */ 
    569  
    570 #define YYRHSLOC(Rhs, K) ((Rhs)[K]) 
    571 #ifndef YYLLOC_DEFAULT 
    572 # define YYLLOC_DEFAULT(Current, Rhs, N)           \ 
    573     do                           \ 
    574       if (YYID (N))                                                    \ 
    575    {                       \ 
    576      (Current).first_line   = YYRHSLOC (Rhs, 1).first_line; \ 
    577      (Current).first_column = YYRHSLOC (Rhs, 1).first_column;  \ 
    578      (Current).last_line    = YYRHSLOC (Rhs, N).last_line;     \ 
    579      (Current).last_column  = YYRHSLOC (Rhs, N).last_column;   \ 
    580    }                       \ 
    581       else                       \ 
    582    {                       \ 
    583      (Current).first_line   = (Current).last_line   =    \ 
    584        YYRHSLOC (Rhs, 0).last_line;          \ 
    585      (Current).first_column = (Current).last_column =    \ 
    586        YYRHSLOC (Rhs, 0).last_column;           \ 
    587    }                       \ 
    588     while (YYID (0)) 
    589 #endif 
    590  
    591  
    592 /* YY_LOCATION_PRINT -- Print the location on the stream. 
    593    This macro was not mandated originally: define only if we know 
    594    we won't break user code: when these are the locations we know.  */ 
    595  
     613/* This macro is provided for backward compatibility. */ 
    596614#ifndef YY_LOCATION_PRINT 
    597 # if defined YYLTYPE_IS_TRIVIAL && YYLTYPE_IS_TRIVIAL 
    598 #  define YY_LOCATION_PRINT(File, Loc)       \ 
    599      fprintf (File, "%d.%d-%d.%d",        \ 
    600          (Loc).first_line, (Loc).first_column,  \ 
    601          (Loc).last_line,  (Loc).last_column) 
    602 # else 
    603 #  define YY_LOCATION_PRINT(File, Loc) ((void) 0) 
    604 # endif 
     615# define YY_LOCATION_PRINT(File, Loc) ((void) 0) 
    605616#endif 
    606617 
    607618 
    608619/* YYLEX -- calling `yylex' with the right arguments.  */ 
    609  
    610620#ifdef YYLEX_PARAM 
    611621# define YYLEX yylex (YYLEX_PARAM) 
     
    657667#endif 
    658668{ 
     669  FILE *yyo = yyoutput; 
     670  YYUSE (yyo); 
    659671  if (!yyvaluep) 
    660672    return; 
     
    665677  YYUSE (yyoutput); 
    666678# endif 
    667   switch (yytype) 
    668     { 
    669       default: 
    670    break; 
    671     } 
     679  YYUSE (yytype); 
    672680} 
    673681 
     
    706714     || defined __cplusplus || defined _MSC_VER) 
    707715static void 
    708 yy_stack_print (yytype_int16 *bottom, yytype_int16 *top) 
     716yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop) 
    709717#else 
    710718static void 
    711 yy_stack_print (bottom, top) 
    712     yytype_int16 *bottom; 
    713     yytype_int16 *top; 
     719yy_stack_print (yybottom, yytop) 
     720    yytype_int16 *yybottom; 
     721    yytype_int16 *yytop; 
    714722#endif 
    715723{ 
    716724  YYFPRINTF (stderr, "Stack now"); 
    717   for (; bottom <= top; ++bottom) 
    718     YYFPRINTF (stderr, " %d", *bottom); 
     725  for (; yybottom <= yytop; yybottom++) 
     726    { 
     727      int yybot = *yybottom; 
     728      YYFPRINTF (stderr, " %d", yybot); 
     729    } 
    719730  YYFPRINTF (stderr, "\n"); 
    720731} 
     
    750761  for (yyi = 0; yyi < yynrhs; yyi++) 
    751762    { 
    752       fprintf (stderr, "   $%d = ", yyi + 1); 
     763      YYFPRINTF (stderr, "   $%d = ", yyi + 1); 
    753764      yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi], 
    754765             &(yyvsp[(yyi + 1) - (yynrhs)]) 
    755766                         ); 
    756       fprintf (stderr, "\n"); 
     767      YYFPRINTF (stderr, "\n"); 
    757768    } 
    758769} 
     
    790801# define YYMAXDEPTH 10000 
    791802#endif 
    792  
    793  
    794803 
    795804 
     
    895904# endif 
    896905 
    897 /* Copy into YYRESULT an error message about the unexpected token 
    898    YYCHAR while in state YYSTATE.  Return the number of bytes copied, 
    899    including the terminating null byte.  If YYRESULT is null, do not 
    900    copy anything; just return the number of bytes that would be 
    901    copied.  As a special case, return 0 if an ordinary "syntax error" 
    902    message will do.  Return YYSIZE_MAXIMUM if overflow occurs during 
    903    size calculation.  */ 
    904 static YYSIZE_T 
    905 yysyntax_error (char *yyresult, int yystate, int yychar) 
    906 { 
    907   int yyn = yypact[yystate]; 
    908  
    909   if (! (YYPACT_NINF < yyn && yyn <= YYLAST)) 
    910     return 0; 
    911   else 
     906/* Copy into *YYMSG, which is of size *YYMSG_ALLOC, an error message 
     907   about the unexpected token YYTOKEN for the state stack whose top is 
     908   YYSSP. 
     909 
     910   Return 0 if *YYMSG was successfully written.  Return 1 if *YYMSG is 
     911   not large enough to hold the message.  In that case, also set 
     912   *YYMSG_ALLOC to the required number of bytes.  Return 2 if the 
     913   required number of bytes is too large to store.  */ 
     914static int 
     915yysyntax_error (YYSIZE_T *yymsg_alloc, char **yymsg, 
     916                yytype_int16 *yyssp, int yytoken) 
     917{ 
     918  YYSIZE_T yysize0 = yytnamerr (YY_NULL, yytname[yytoken]); 
     919  YYSIZE_T yysize = yysize0; 
     920  enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; 
     921  /* Internationalized format string. */ 
     922  const char *yyformat = YY_NULL; 
     923  /* Arguments of yyformat. */ 
     924  char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; 
     925  /* Number of reported tokens (one for the "unexpected", one per 
     926     "expected"). */ 
     927  int yycount = 0; 
     928 
     929  /* There are many possibilities here to consider: 
     930     - Assume YYFAIL is not used.  It's too flawed to consider.  See 
     931       <http://lists.gnu.org/archive/html/bison-patches/2009-12/msg00024.html> 
     932       for details.  YYERROR is fine as it does not invoke this 
     933       function. 
     934     - If this state is a consistent state with a default action, then 
     935       the only way this function was invoked is if the default action 
     936       is an error action.  In that case, don't check for expected 
     937       tokens because there are none. 
     938     - The only way there can be no lookahead present (in yychar) is if 
     939       this state is a consistent state with a default action.  Thus, 
     940       detecting the absence of a lookahead is sufficient to determine 
     941       that there is no unexpected or expected token to report.  In that 
     942       case, just report a simple "syntax error". 
     943     - Don't assume there isn't a lookahead just because this state is a 
     944       consistent state with a default action.  There might have been a 
     945       previous inconsistent state, consistent state with a non-default 
     946       action, or user semantic action that manipulated yychar. 
     947     - Of course, the expected token list depends on states to have 
     948       correct lookahead information, and it depends on the parser not 
     949       to perform extra reductions after fetching a lookahead from the 
     950       scanner and before detecting a syntax error.  Thus, state merging 
     951       (from LALR or IELR) and default reductions corrupt the expected 
     952       token list.  However, the list is correct for canonical LR with 
     953       one exception: it will still contain any token that will not be 
     954       accepted due to an error action in a later state. 
     955  */ 
     956  if (yytoken != YYEMPTY) 
    912957    { 
    913       int yytype = YYTRANSLATE (yychar); 
    914       YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]); 
    915       YYSIZE_T yysize = yysize0; 
    916       YYSIZE_T yysize1; 
    917       int yysize_overflow = 0; 
    918       enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 }; 
    919       char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM]; 
    920       int yyx; 
    921  
    922 # if 0 
    923       /* This is so xgettext sees the translatable formats that are 
    924     constructed on the fly.  */ 
    925       YY_("syntax error, unexpected %s"); 
    926       YY_("syntax error, unexpected %s, expecting %s"); 
    927       YY_("syntax error, unexpected %s, expecting %s or %s"); 
    928       YY_("syntax error, unexpected %s, expecting %s or %s or %s"); 
    929       YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s"); 
    930 # endif 
    931       char *yyfmt; 
    932       char const *yyf; 
    933       static char const yyunexpected[] = "syntax error, unexpected %s"; 
    934       static char const yyexpecting[] = ", expecting %s"; 
    935       static char const yyor[] = " or %s"; 
    936       char yyformat[sizeof yyunexpected 
    937           + sizeof yyexpecting - 1 
    938           + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2) 
    939              * (sizeof yyor - 1))]; 
    940       char const *yyprefix = yyexpecting; 
    941  
    942       /* Start YYX at -YYN if negative to avoid negative indexes in 
    943     YYCHECK.  */ 
    944       int yyxbegin = yyn < 0 ? -yyn : 0; 
    945  
    946       /* Stay within bounds of both yycheck and yytname.  */ 
    947       int yychecklim = YYLAST - yyn + 1; 
    948       int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; 
    949       int yycount = 1; 
    950  
    951       yyarg[0] = yytname[yytype]; 
    952       yyfmt = yystpcpy (yyformat, yyunexpected); 
    953  
    954       for (yyx = yyxbegin; yyx < yyxend; ++yyx) 
    955    if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR) 
    956      { 
    957        if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) 
    958          { 
    959       yycount = 1; 
    960       yysize = yysize0; 
    961       yyformat[sizeof yyunexpected - 1] = '\0'; 
    962       break; 
    963          } 
    964        yyarg[yycount++] = yytname[yyx]; 
    965        yysize1 = yysize + yytnamerr (0, yytname[yyx]); 
    966        yysize_overflow |= (yysize1 < yysize); 
    967        yysize = yysize1; 
    968        yyfmt = yystpcpy (yyfmt, yyprefix); 
    969        yyprefix = yyor; 
    970      } 
    971  
    972       yyf = YY_(yyformat); 
    973       yysize1 = yysize + yystrlen (yyf); 
    974       yysize_overflow |= (yysize1 < yysize); 
    975       yysize = yysize1; 
    976  
    977       if (yysize_overflow) 
    978    return YYSIZE_MAXIMUM; 
    979  
    980       if (yyresult) 
    981    { 
    982      /* Avoid sprintf, as that infringes on the user's name space. 
    983         Don't have undefined behavior even if the translation 
    984         produced a string with the wrong number of "%s"s.  */ 
    985      char *yyp = yyresult; 
    986      int yyi = 0; 
    987      while ((*yyp = *yyf) != '\0') 
    988        { 
    989          if (*yyp == '%' && yyf[1] == 's' && yyi < yycount) 
    990       { 
    991         yyp += yytnamerr (yyp, yyarg[yyi++]); 
    992         yyf += 2; 
    993       } 
    994          else 
    995       { 
    996         yyp++; 
    997         yyf++; 
    998       } 
    999        } 
    1000    } 
    1001       return yysize; 
     958      int yyn = yypact[*yyssp]; 
     959      yyarg[yycount++] = yytname[yytoken]; 
     960      if (!yypact_value_is_default (yyn)) 
     961        { 
     962          /* Start YYX at -YYN if negative to avoid negative indexes in 
     963             YYCHECK.  In other words, skip the first -YYN actions for 
     964             this state because they are default actions.  */ 
     965          int yyxbegin = yyn < 0 ? -yyn : 0; 
     966          /* Stay within bounds of both yycheck and yytname.  */ 
     967          int yychecklim = YYLAST - yyn + 1; 
     968          int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS; 
     969          int yyx; 
     970 
     971          for (yyx = yyxbegin; yyx < yyxend; ++yyx) 
     972            if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR 
     973                && !yytable_value_is_error (yytable[yyx + yyn])) 
     974              { 
     975                if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM) 
     976                  { 
     977                    yycount = 1; 
     978                    yysize = yysize0; 
     979                    break; 
     980                  } 
     981                yyarg[yycount++] = yytname[yyx]; 
     982                { 
     983                  YYSIZE_T yysize1 = yysize + yytnamerr (YY_NULL, yytname[yyx]); 
     984                  if (! (yysize <= yysize1 
     985                         && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) 
     986                    return 2; 
     987                  yysize = yysize1; 
     988                } 
     989              } 
     990        } 
    1002991    } 
     992 
     993  switch (yycount) 
     994    { 
     995# define YYCASE_(N, S)                      \ 
     996      case N:                               \ 
     997        yyformat = S;                       \ 
     998      break 
     999      YYCASE_(0, YY_("syntax error")); 
     1000      YYCASE_(1, YY_("syntax error, unexpected %s")); 
     1001      YYCASE_(2, YY_("syntax error, unexpected %s, expecting %s")); 
     1002      YYCASE_(3, YY_("syntax error, unexpected %s, expecting %s or %s")); 
     1003      YYCASE_(4, YY_("syntax error, unexpected %s, expecting %s or %s or %s")); 
     1004      YYCASE_(5, YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s")); 
     1005# undef YYCASE_ 
     1006    } 
     1007 
     1008  { 
     1009    YYSIZE_T yysize1 = yysize + yystrlen (yyformat); 
     1010    if (! (yysize <= yysize1 && yysize1 <= YYSTACK_ALLOC_MAXIMUM)) 
     1011      return 2; 
     1012    yysize = yysize1; 
     1013  } 
     1014 
     1015  if (*yymsg_alloc < yysize) 
     1016    { 
     1017      *yymsg_alloc = 2 * yysize; 
     1018      if (! (yysize <= *yymsg_alloc 
     1019             && *yymsg_alloc <= YYSTACK_ALLOC_MAXIMUM)) 
     1020        *yymsg_alloc = YYSTACK_ALLOC_MAXIMUM; 
     1021      return 1; 
     1022    } 
     1023 
     1024  /* Avoid sprintf, as that infringes on the user's name space. 
     1025     Don't have undefined behavior even if the translation 
     1026     produced a string with the wrong number of "%s"s.  */ 
     1027  { 
     1028    char *yyp = *yymsg; 
     1029    int yyi = 0; 
     1030    while ((*yyp = *yyformat) != '\0') 
     1031      if (*yyp == '%' && yyformat[1] == 's' && yyi < yycount) 
     1032        { 
     1033          yyp += yytnamerr (yyp, yyarg[yyi++]); 
     1034          yyformat += 2; 
     1035        } 
     1036      else 
     1037        { 
     1038          yyp++; 
     1039          yyformat++; 
     1040        } 
     1041  } 
     1042  return 0; 
    10031043} 
    10041044#endif /* YYERROR_VERBOSE */ 
    1005  
    1006  
    10071045 
    10081046/*-----------------------------------------------. 
     
    10291067  YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp); 
    10301068 
    1031   switch (yytype) 
    1032     { 
    1033  
    1034       default: 
    1035    break; 
    1036     } 
    1037 } 
    1038  
    1039  
    1040  
    1041 /* Prevent warnings from -Wmissing-prototypes.  */ 
    1042  
    1043 #ifdef YYPARSE_PARAM 
    1044 #if defined __STDC__ || defined __cplusplus 
    1045 int yyparse (void *YYPARSE_PARAM); 
    1046 #else 
    1047 int yyparse (); 
    1048 #endif 
    1049 #else /* ! YYPARSE_PARAM */ 
    1050 #if defined __STDC__ || defined __cplusplus 
    1051 int yyparse (void); 
    1052 #else 
    1053 int yyparse (); 
    1054 #endif 
    1055 #endif /* ! YYPARSE_PARAM */ 
    1056  
    1057  
    1058  
    1059 /* The look-ahead symbol.  */ 
     1069  YYUSE (yytype); 
     1070} 
     1071 
     1072 
     1073 
     1074 
     1075/* The lookahead symbol.  */ 
    10601076int yychar; 
    10611077 
    1062 /* The semantic value of the look-ahead symbol.  */ 
    1063 YYSTYPE yylval; 
     1078 
     1079#ifndef YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN 
     1080# define YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN 
     1081# define YY_IGNORE_MAYBE_UNINITIALIZED_END 
     1082#endif 
     1083#ifndef YY_INITIAL_VALUE 
     1084# define YY_INITIAL_VALUE(Value) /* Nothing. */ 
     1085#endif 
     1086 
     1087/* The semantic value of the lookahead symbol.  */ 
     1088YYSTYPE yylval YY_INITIAL_VALUE(yyval_default); 
    10641089 
    10651090/* Number of syntax errors so far.  */ 
    10661091int yynerrs; 
    1067  
    10681092 
    10691093 
     
    10941118#endif 
    10951119{ 
    1096    
    1097   int yystate; 
     1120    int yystate; 
     1121    /* Number of tokens to shift before error messages enabled.  */ 
     1122    int yyerrstatus; 
     1123 
     1124    /* The stacks and their tools: 
     1125       `yyss': related to states. 
     1126       `yyvs': related to semantic values. 
     1127 
     1128       Refer to the stacks through separate pointers, to allow yyoverflow 
     1129       to reallocate them elsewhere.  */ 
     1130 
     1131    /* The state stack.  */ 
     1132    yytype_int16 yyssa[YYINITDEPTH]; 
     1133    yytype_int16 *yyss; 
     1134    yytype_int16 *yyssp; 
     1135 
     1136    /* The semantic value stack.  */ 
     1137    YYSTYPE yyvsa[YYINITDEPTH]; 
     1138    YYSTYPE *yyvs; 
     1139    YYSTYPE *yyvsp; 
     1140 
     1141    YYSIZE_T yystacksize; 
     1142 
    10981143  int yyn; 
    10991144  int yyresult; 
    1100   /* Number of tokens to shift before error messages enabled.  */ 
    1101   int yyerrstatus; 
    1102   /* Look-ahead token as an internal (translated) token number.  */ 
     1145  /* Lookahead token as an internal (translated) token number.  */ 
    11031146  int yytoken = 0; 
     1147  /* The variables used to return semantic value and location from the 
     1148     action routines.  */ 
     1149  YYSTYPE yyval; 
     1150 
    11041151#if YYERROR_VERBOSE 
    11051152  /* Buffer for error messages, and its allocated size.  */ 
     
    11091156#endif 
    11101157 
    1111   /* Three stacks and their tools: 
    1112      `yyss': related to states, 
    1113      `yyvs': related to semantic values, 
    1114      `yyls': related to locations. 
    1115  
    1116      Refer to the stacks thru separate pointers, to allow yyoverflow 
    1117      to reallocate them elsewhere.  */ 
    1118  
    1119   /* The state stack.  */ 
    1120   yytype_int16 yyssa[YYINITDEPTH]; 
    1121   yytype_int16 *yyss = yyssa; 
    1122   yytype_int16 *yyssp; 
    1123  
    1124   /* The semantic value stack.  */ 
    1125   YYSTYPE yyvsa[YYINITDEPTH]; 
    1126   YYSTYPE *yyvs = yyvsa; 
    1127   YYSTYPE *yyvsp; 
    1128  
    1129  
    1130  
    11311158#define YYPOPSTACK(N)   (yyvsp -= (N), yyssp -= (N)) 
    1132  
    1133   YYSIZE_T yystacksize = YYINITDEPTH; 
    1134  
    1135   /* The variables used to return semantic value and location from the 
    1136      action routines.  */ 
    1137   YYSTYPE yyval; 
    1138  
    11391159 
    11401160  /* The number of symbols on the RHS of the reduced rule. 
     
    11421162  int yylen = 0; 
    11431163 
     1164  yyssp = yyss = yyssa; 
     1165  yyvsp = yyvs = yyvsa; 
     1166  yystacksize = YYINITDEPTH; 
     1167 
    11441168  YYDPRINTF ((stderr, "Starting parse\n")); 
    11451169 
     
    11471171  yyerrstatus = 0; 
    11481172  yynerrs = 0; 
    1149   yychar = YYEMPTY;     /* Cause a token to be read.  */ 
    1150  
    1151   /* Initialize stack pointers. 
    1152      Waste one element of value and location stack 
    1153      so that they stay on the same level as the state stack. 
    1154      The wasted elements are never initialized.  */ 
    1155  
    1156   yyssp = yyss; 
    1157   yyvsp = yyvs; 
    1158  
     1173  yychar = YYEMPTY; /* Cause a token to be read.  */ 
    11591174  goto yysetstate; 
    11601175 
     
    11831198   yytype_int16 *yyss1 = yyss; 
    11841199 
    1185  
    11861200   /* Each stack pointer address is followed by the size of the 
    11871201      data in use in that stack, in bytes.  This used to be a 
     
    11911205          &yyss1, yysize * sizeof (*yyssp), 
    11921206          &yyvs1, yysize * sizeof (*yyvsp), 
    1193  
    11941207          &yystacksize); 
    11951208 
     
    12141227   if (! yyptr) 
    12151228     goto yyexhaustedlab; 
    1216    YYSTACK_RELOCATE (yyss); 
    1217    YYSTACK_RELOCATE (yyvs); 
    1218  
     1229   YYSTACK_RELOCATE (yyss_alloc, yyss); 
     1230   YYSTACK_RELOCATE (yyvs_alloc, yyvs); 
    12191231#  undef YYSTACK_RELOCATE 
    12201232   if (yyss1 != yyssa) 
     
    12271239      yyvsp = yyvs + yysize - 1; 
    12281240 
    1229  
    12301241      YYDPRINTF ((stderr, "Stack size increased to %lu\n", 
    12311242        (unsigned long int) yystacksize)); 
     
    12361247 
    12371248  YYDPRINTF ((stderr, "Entering state %d\n", yystate)); 
     1249 
     1250  if (yystate == YYFINAL) 
     1251    YYACCEPT; 
    12381252 
    12391253  goto yybackup; 
     
    12451259 
    12461260  /* Do appropriate processing given the current state.  Read a 
    1247      look-ahead token if we need one and don't already have one.  */ 
    1248  
    1249   /* First try to decide what to do without reference to look-ahead token.  */ 
     1261     lookahead token if we need one and don't already have one.  */ 
     1262 
     1263  /* First try to decide what to do without reference to lookahead token.  */ 
    12501264  yyn = yypact[yystate]; 
    1251   if (yyn == YYPACT_NINF) 
     1265  if (yypact_value_is_default (yyn)) 
    12521266    goto yydefault; 
    12531267 
    1254   /* Not known => get a look-ahead token if don't already have one.  */ 
    1255  
    1256   /* YYCHAR is either YYEMPTY or YYEOF or a valid look-ahead symbol.  */ 
     1268  /* Not known => get a lookahead token if don't already have one.  */ 
     1269 
     1270  /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol.  */ 
    12571271  if (yychar == YYEMPTY) 
    12581272    { 
     
    12801294  if (yyn <= 0) 
    12811295    { 
    1282       if (yyn == 0 || yyn == YYTABLE_NINF) 
    1283    goto yyerrlab; 
     1296      if (yytable_value_is_error (yyn)) 
     1297        goto yyerrlab; 
    12841298      yyn = -yyn; 
    12851299      goto yyreduce; 
    12861300    } 
    1287  
    1288   if (yyn == YYFINAL) 
    1289     YYACCEPT; 
    12901301 
    12911302  /* Count tokens shifted since error; after three, turn off error 
     
    12941305    yyerrstatus--; 
    12951306 
    1296   /* Shift the look-ahead token.  */ 
     1307  /* Shift the lookahead token.  */ 
    12971308  YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc); 
    12981309 
    1299   /* Discard the shifted token unless it is eof.  */ 
    1300   if (yychar != YYEOF) 
    1301     yychar = YYEMPTY; 
     1310  /* Discard the shifted token.  */ 
     1311  yychar = YYEMPTY; 
    13021312 
    13031313  yystate = yyn; 
     1314  YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN 
    13041315  *++yyvsp = yylval; 
     1316  YY_IGNORE_MAYBE_UNINITIALIZED_END 
    13051317 
    13061318  goto yynewstate; 
     
    13391351    { 
    13401352        case 5: 
     1353/* Line 1787 of yacc.c  */ 
    13411354#line 67 "convert.y" 
    1342     {initdimprob(1,(yyvsp[(2) - (3)].na),"0","0");;} 
     1355    {initdimprob(1,(yyvsp[(2) - (3)].na),"0","0");} 
    13431356    break; 
    13441357 
    13451358  case 6: 
     1359/* Line 1787 of yacc.c  */ 
    13461360#line 68 "convert.y" 
    1347     {initdimprob(2,(yyvsp[(2) - (5)].na), (yyvsp[(4) - (5)].na),"0");;} 
     1361    {initdimprob(2,(yyvsp[(2) - (5)].na), (yyvsp[(4) - (5)].na),"0");} 
    13481362    break; 
    13491363 
    13501364  case 7: 
     1365/* Line 1787 of yacc.c  */ 
    13511366#line 70 "convert.y" 
    1352     {initdimprob(3,(yyvsp[(2) - (7)].na), (yyvsp[(4) - (7)].na), (yyvsp[(6) - (7)].na));;} 
     1367    {initdimprob(3,(yyvsp[(2) - (7)].na), (yyvsp[(4) - (7)].na), (yyvsp[(6) - (7)].na));} 
    13531368    break; 
    13541369 
    13551370  case 8: 
     1371/* Line 1787 of yacc.c  */ 
    13561372#line 72 "convert.y" 
    13571373    {listofmodules = Addtolistnom((yyvsp[(2) - (3)].na),listofmodules,0); 
    1358                                                         Addmoduletothelist((yyvsp[(2) - (3)].na));;} 
     1374                                                        Addmoduletothelist((yyvsp[(2) - (3)].na));} 
    13591375    break; 
    13601376 
    13611377  case 9: 
     1378/* Line 1787 of yacc.c  */ 
    13621379#line 74 "convert.y" 
    1363     {Add_NotGridDepend_Var_1((yyvsp[(3) - (4)].na));;} 
     1380    {Add_NotGridDepend_Var_1((yyvsp[(3) - (4)].na));} 
    13641381    break; 
    13651382 
    13661383  case 10: 
     1384/* Line 1787 of yacc.c  */ 
    13671385#line 75 "convert.y" 
    13681386    { 
     
    13711389                                    if (!strcasecmp((yyvsp[(2) - (3)].na),"ONLY_FIXED_GRIDS")) 
    13721390                                                             onlyfixedgrids=1; 
    1373                                  ;} 
     1391                                 } 
    13741392    break; 
    13751393 
    13761394 
    1377 /* Line 1267 of yacc.c.  */ 
    1378 #line 1376 "convert.tab.c" 
     1395/* Line 1787 of yacc.c  */ 
     1396#line 1397 "convert.tab.c" 
    13791397      default: break; 
    13801398    } 
     1399  /* User semantic actions sometimes alter yychar, and that requires 
     1400     that yytoken be updated with the new translation.  We take the 
     1401     approach of translating immediately before every use of yytoken. 
     1402     One alternative is translating here after every semantic action, 
     1403     but that translation would be missed if the semantic action invokes 
     1404     YYABORT, YYACCEPT, or YYERROR immediately after altering yychar or 
     1405     if it invokes YYBACKUP.  In the case of YYABORT or YYACCEPT, an 
     1406     incorrect destructor might then be invoked immediately.  In the 
     1407     case of YYERROR or YYBACKUP, subsequent parser actions might lead 
     1408     to an incorrect destructor call or verbose syntax error message 
     1409     before the lookahead is translated.  */ 
    13811410  YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc); 
    13821411 
     
    13861415 
    13871416  *++yyvsp = yyval; 
    1388  
    13891417 
    13901418  /* Now `shift' the result of the reduction.  Determine what state 
     
    14071435`------------------------------------*/ 
    14081436yyerrlab: 
     1437  /* Make sure we have latest lookahead translation.  See comments at 
     1438     user semantic actions for why this is necessary.  */ 
     1439  yytoken = yychar == YYEMPTY ? YYEMPTY : YYTRANSLATE (yychar); 
     1440 
    14091441  /* If not already recovering from an error, report this error.  */ 
    14101442  if (!yyerrstatus) 
     
    14141446      yyerror (YY_("syntax error")); 
    14151447#else 
     1448# define YYSYNTAX_ERROR yysyntax_error (&yymsg_alloc, &yymsg, \ 
     1449                                        yyssp, yytoken) 
    14161450      { 
    1417    YYSIZE_T yysize = yysyntax_error (0, yystate, yychar); 
    1418    if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM) 
    1419      { 
    1420        YYSIZE_T yyalloc = 2 * yysize; 
    1421        if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM)) 
    1422          yyalloc = YYSTACK_ALLOC_MAXIMUM; 
    1423        if (yymsg != yymsgbuf) 
    1424          YYSTACK_FREE (yymsg); 
    1425        yymsg = (char *) YYSTACK_ALLOC (yyalloc); 
    1426        if (yymsg) 
    1427          yymsg_alloc = yyalloc; 
    1428        else 
    1429          { 
    1430       yymsg = yymsgbuf; 
    1431       yymsg_alloc = sizeof yymsgbuf; 
    1432          } 
    1433      } 
    1434  
    1435    if (0 < yysize && yysize <= yymsg_alloc) 
    1436      { 
    1437        (void) yysyntax_error (yymsg, yystate, yychar); 
    1438        yyerror (yymsg); 
    1439      } 
    1440    else 
    1441      { 
    1442        yyerror (YY_("syntax error")); 
    1443        if (yysize != 0) 
    1444          goto yyexhaustedlab; 
    1445      } 
     1451        char const *yymsgp = YY_("syntax error"); 
     1452        int yysyntax_error_status; 
     1453        yysyntax_error_status = YYSYNTAX_ERROR; 
     1454        if (yysyntax_error_status == 0) 
     1455          yymsgp = yymsg; 
     1456        else if (yysyntax_error_status == 1) 
     1457          { 
     1458            if (yymsg != yymsgbuf) 
     1459              YYSTACK_FREE (yymsg); 
     1460            yymsg = (char *) YYSTACK_ALLOC (yymsg_alloc); 
     1461            if (!yymsg) 
     1462              { 
     1463                yymsg = yymsgbuf; 
     1464                yymsg_alloc = sizeof yymsgbuf; 
     1465                yysyntax_error_status = 2; 
     1466              } 
     1467            else 
     1468              { 
     1469                yysyntax_error_status = YYSYNTAX_ERROR; 
     1470                yymsgp = yymsg; 
     1471              } 
     1472          } 
     1473        yyerror (yymsgp); 
     1474        if (yysyntax_error_status == 2) 
     1475          goto yyexhaustedlab; 
    14461476      } 
     1477# undef YYSYNTAX_ERROR 
    14471478#endif 
    14481479    } 
     
    14521483  if (yyerrstatus == 3) 
    14531484    { 
    1454       /* If just tried and failed to reuse look-ahead token after an 
     1485      /* If just tried and failed to reuse lookahead token after an 
    14551486    error, discard it.  */ 
    14561487 
     
    14691500    } 
    14701501 
    1471   /* Else will try to reuse look-ahead token after shifting the error 
     1502  /* Else will try to reuse lookahead token after shifting the error 
    14721503     token.  */ 
    14731504  goto yyerrlab1; 
     
    15031534    { 
    15041535      yyn = yypact[yystate]; 
    1505       if (yyn != YYPACT_NINF) 
     1536      if (!yypact_value_is_default (yyn)) 
    15061537   { 
    15071538     yyn += YYTERROR; 
     
    15261557    } 
    15271558 
    1528   if (yyn == YYFINAL) 
    1529     YYACCEPT; 
    1530  
     1559  YY_IGNORE_MAYBE_UNINITIALIZED_BEGIN 
    15311560  *++yyvsp = yylval; 
     1561  YY_IGNORE_MAYBE_UNINITIALIZED_END 
    15321562 
    15331563 
     
    15531583  goto yyreturn; 
    15541584 
    1555 #ifndef yyoverflow 
     1585#if !defined yyoverflow || YYERROR_VERBOSE 
    15561586/*-------------------------------------------------. 
    15571587| yyexhaustedlab -- memory exhaustion comes here.  | 
     
    15641594 
    15651595yyreturn: 
    1566   if (yychar != YYEOF && yychar != YYEMPTY) 
    1567      yydestruct ("Cleanup: discarding lookahead", 
    1568        yytoken, &yylval); 
     1596  if (yychar != YYEMPTY) 
     1597    { 
     1598      /* Make sure we have latest lookahead translation.  See comments at 
     1599         user semantic actions for why this is necessary.  */ 
     1600      yytoken = YYTRANSLATE (yychar); 
     1601      yydestruct ("Cleanup: discarding lookahead", 
     1602                  yytoken, &yylval); 
     1603    } 
    15691604  /* Do not reclaim the symbols of the rule which action triggered 
    15701605     this YYABORT or YYACCEPT.  */ 
     
    15901625 
    15911626 
     1627/* Line 2050 of yacc.c  */ 
    15921628#line 82 "convert.y" 
    15931629 
     
    19601996   return 0; 
    19611997} 
    1962  
    19631998#line 2 "convert.yy.c" 
    19641999 
     
    19722007#define YY_FLEX_MAJOR_VERSION 2 
    19732008#define YY_FLEX_MINOR_VERSION 5 
    1974 #define YY_FLEX_SUBMINOR_VERSION 35 
     2009#define YY_FLEX_SUBMINOR_VERSION 37 
    19752010#if YY_FLEX_SUBMINOR_VERSION > 0 
    19762011#define FLEX_BETA 
     
    20172052typedef unsigned short int flex_uint16_t; 
    20182053typedef unsigned int flex_uint32_t; 
    2019 #endif /* ! C99 */ 
    20202054 
    20212055/* Limits of integral types. */ 
     
    20472081#define UINT32_MAX             (4294967295U) 
    20482082#endif 
     2083 
     2084#endif /* ! C99 */ 
    20492085 
    20502086#endif /* ! FLEXINT_H */ 
     
    25242560#define MAX_INCLUDE_DEPTH 30 
    25252561YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH]; 
    2526 #line 565 "convert.yy.c" 
     2562#line 566 "convert.yy.c" 
    25272563 
    25282564#define INITIAL 0 
     
    26142650 * we now use fwrite(). 
    26152651 */ 
    2616 #define ECHO fwrite( yytext, yyleng, 1, yyout ) 
     2652#define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0) 
    26172653#endif 
    26182654 
     
    26252661      { \ 
    26262662      int c = '*'; \ 
    2627       yy_size_t n; \ 
     2663      size_t n; \ 
    26282664      for ( n = 0; n < max_size && \ 
    26292665              (c = getc( yyin )) != EOF && c != '\n'; ++n ) \ 
     
    27092745#line 55 "convert.lex" 
    27102746 
    2711 #line 750 "convert.yy.c" 
     2747#line 751 "convert.yy.c" 
    27122748 
    27132749   if ( !(yy_init) ) 
     
    28542890ECHO; 
    28552891   YY_BREAK 
    2856 #line 895 "convert.yy.c" 
     2892#line 896 "convert.yy.c" 
    28572893case YY_STATE_EOF(INITIAL): 
    28582894case YY_STATE_EOF(character): 
     
    30483084 
    30493085         /* just a shorter name for the current buffer */ 
    3050          YY_BUFFER_STATE b = YY_CURRENT_BUFFER; 
     3086         YY_BUFFER_STATE b = YY_CURRENT_BUFFER_LVALUE; 
    30513087 
    30523088         int yy_c_buf_p_offset = 
     
    31813217   yy_is_jam = (yy_current_state == 76); 
    31823218 
    3183    return yy_is_jam ? 0 : yy_current_state; 
     3219      return yy_is_jam ? 0 : yy_current_state; 
    31843220} 
    31853221 
     
    32693305               { 
    32703306               if ( yywrap( ) ) 
    3271                   return 0; 
     3307                  return EOF; 
    32723308 
    32733309               if ( ! (yy_did_buffer_switch_on_eof) ) 
     
    34053441} 
    34063442 
    3407 #ifndef __cplusplus 
    3408 extern int isatty (int ); 
    3409 #endif /* __cplusplus */ 
    3410      
    34113443/* Initializes or reinitializes a buffer. 
    34123444 * This function is sometimes called more than once on the same buffer, 
     
    36133645/** Setup the input buffer state to scan the given bytes. The next call to yylex() will 
    36143646 * scan from a @e copy of @a bytes. 
    3615  * @param bytes the byte buffer to scan 
    3616  * @param len the number of bytes in the buffer pointed to by @a bytes. 
     3647 * @param yybytes the byte buffer to scan 
     3648 * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes. 
    36173649 *  
    36183650 * @return the newly allocated buffer state object. 
     
    36223654   YY_BUFFER_STATE b; 
    36233655   char *buf; 
    3624    yy_size_t n, i; 
     3656   yy_size_t n; 
     3657   int i; 
    36253658     
    36263659   /* Get memory for full buffer, including space for trailing EOB's. */ 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC/domain.F90

    r3875 r3993  
    9292         &             nn_it000, nn_itend  , nn_date0    , nn_leapy     , nn_istate , nn_stock ,   & 
    9393         &             nn_write, ln_dimgnnn, ln_mskland  , ln_clobber   , nn_chunksz 
    94       NAMELIST/namdom/ nn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh    , rn_hmin,     & 
    95          &             nn_acc   , rn_atfp     , rn_rdt      , rn_rdtmin ,              & 
    96          &             rn_rdtmax, rn_rdth     , nn_baro     , nn_closea 
     94      NAMELIST/namdom/ nn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh    , rn_hmin,   & 
     95         &             nn_acc   , rn_atfp     , rn_rdt      , rn_rdtmin ,            & 
     96         &             rn_rdtmax, rn_rdth     , nn_baro     , nn_closea , & 
     97         &             jphgr_msh, & 
     98         &             ppglam0, ppgphi0, ppe1_deg, ppe2_deg, ppe1_m, ppe2_m, & 
     99         &             ppsur, ppa0, ppa1, ppkth, ppacr, ppdzmin, pphmax, ldbletanh, & 
     100         &             ppa2, ppkth2, ppacr2 
    97101      NAMELIST/namcla/ nn_cla 
    98102#if defined key_netcdf4 
     
    206210         WRITE(numout,*) '                  depth of transition      rn_rdth   = ', rn_rdth 
    207211         WRITE(numout,*) '      suppression of closed seas (=0)      nn_closea = ', nn_closea 
     212         WRITE(numout,*) '      type of horizontal mesh jphgr_msh           = ', jphgr_msh 
     213         WRITE(numout,*) '      longitude of first raw and column T-point ppglam0 = ', ppglam0 
     214         WRITE(numout,*) '      latitude  of first raw and column T-point ppgphi0 = ', ppgphi0 
     215         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_deg        = ', ppe1_deg 
     216         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_deg        = ', ppe2_deg 
     217         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_m          = ', ppe1_m 
     218         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_m          = ', ppe2_m 
     219         WRITE(numout,*) '      ORCA r4, r2 and r05 coefficients  ppsur           = ', ppsur 
     220         WRITE(numout,*) '                                        ppa0            = ', ppa0 
     221         WRITE(numout,*) '                                        ppa1            = ', ppa1 
     222         WRITE(numout,*) '                                        ppkth           = ', ppkth 
     223         WRITE(numout,*) '                                        ppacr           = ', ppacr 
     224         WRITE(numout,*) '      Minimum vertical spacing ppdzmin                  = ', ppdzmin 
     225         WRITE(numout,*) '      Maximum depth pphmax                              = ', pphmax 
     226         WRITE(numout,*) '      Use double tanf function for vertical coordinates ldbletanh = ', ldbletanh 
     227         WRITE(numout,*) '      Double tanh function parameters ppa2              = ', ppa2 
     228         WRITE(numout,*) '                                      ppkth2            = ', ppkth2 
     229         WRITE(numout,*) '                                      ppacr2            = ', ppacr2 
    208230      ENDIF 
    209231 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r3973 r3993  
    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 
     144      NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 
     145         &             jpizoom, jpjzoom, jperio 
    149146      !!---------------------------------------------------------------------- 
    150147      ! 
     
    333330         WRITE(numout,*) '      left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 
    334331         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 
    353332      ENDIF 
    354333      !                             ! Parameter control 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90

    r3989 r3993  
    4242   INTEGER , PUBLIC ::   nn_baro         !: number of barotropic time steps (key_dynspg_ts) 
    4343   INTEGER , PUBLIC ::   nn_closea       !: =0 suppress closed sea/lake from the ORCA domain or not (=1) 
     44   !! Horizontal grid parameters for domhgr 
     45   !! ===================================== 
     46   INTEGER       ::   jphgr_msh        !: type of horizontal mesh 
     47   !                                       !  = 0 curvilinear coordinate on the sphere read in coordinate.nc 
     48   !                                       !  = 1 geographical mesh on the sphere with regular grid-spacing 
     49   !                                       !  = 2 f-plane with regular grid-spacing 
     50   !                                       !  = 3 beta-plane with regular grid-spacing 
     51   !                                       !  = 4 Mercator grid with T/U point at the equator 
     52 
     53   REAL(wp)      ::   ppglam0              !: longitude of first raw and column T-point (jphgr_msh = 1) 
     54   REAL(wp)      ::   ppgphi0              !: latitude  of first raw and column T-point (jphgr_msh = 1) 
     55   !                                                        !  used for Coriolis & Beta parameters (jphgr_msh = 2 or 3) 
     56   REAL(wp)      ::   ppe1_deg             !: zonal      grid-spacing (degrees) 
     57   REAL(wp)      ::   ppe2_deg             !: meridional grid-spacing (degrees) 
     58   REAL(wp)      ::   ppe1_m               !: zonal      grid-spacing (degrees) 
     59   REAL(wp)      ::   ppe2_m               !: meridional grid-spacing (degrees) 
     60 
     61   !! Vertical grid parameter for domzgr 
     62   !! ================================== 
     63   REAL(wp)      ::   ppsur                !: ORCA r4, r2 and r05 coefficients 
     64   REAL(wp)      ::   ppa0                 !: (default coefficients) 
     65   REAL(wp)      ::   ppa1                 !: 
     66   REAL(wp)      ::   ppkth                !: 
     67   REAL(wp)      ::   ppacr                !: 
     68   ! 
     69   !  If both ppa0 ppa1 and ppsur are specified to 0, then 
     70   !  they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 
     71   REAL(wp)      ::   ppdzmin              !: Minimum vertical spacing 
     72   REAL(wp)      ::   pphmax               !: Maximum depth 
     73   ! 
     74   LOGICAL       ::   ldbletanh            !: Use/do not use double tanf function for vertical coordinates 
     75   REAL(wp)      ::   ppa2                 !: Double tanh function parameters 
     76   REAL(wp)      ::   ppkth2               !: 
     77   REAL(wp)      ::   ppacr2               !: 
    4478 
    4579   !                                    !! old non-DOCTOR names still used in the model 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r3973 r3993  
    126126      NAMELIST/namdom/ nn_bathy , rn_e3zps_min, rn_e3zps_rat, nn_msh    , rn_hmin,   & 
    127127         &             nn_acc   , rn_atfp     , rn_rdt      , rn_rdtmin ,            & 
    128          &             rn_rdtmax, rn_rdth     , nn_baro     , nn_closea 
     128         &             rn_rdtmax, rn_rdth     , nn_baro     , nn_closea , & 
     129         &             jphgr_msh, & 
     130         &             ppglam0, ppgphi0, ppe1_deg, ppe2_deg, ppe1_m, ppe2_m, & 
     131         &             ppsur, ppa0, ppa1, ppkth, ppacr, ppdzmin, pphmax, ldbletanh, & 
     132         &             ppa2, ppkth2, ppacr2 
    129133      NAMELIST/namcla/ nn_cla 
    130134#if defined key_netcdf4 
     
    240244         WRITE(numout,*) '                  depth of transition      rn_rdth   = ', rn_rdth 
    241245         WRITE(numout,*) '      suppression of closed seas (=0)      nn_closea = ', nn_closea 
     246         WRITE(numout,*) '      type of horizontal mesh jphgr_msh           = ', jphgr_msh 
     247         WRITE(numout,*) '      longitude of first raw and column T-point ppglam0 = ', ppglam0 
     248         WRITE(numout,*) '      latitude  of first raw and column T-point ppgphi0 = ', ppgphi0 
     249         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_deg        = ', ppe1_deg 
     250         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_deg        = ', ppe2_deg 
     251         WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_m          = ', ppe1_m 
     252         WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_m          = ', ppe2_m 
     253         WRITE(numout,*) '      ORCA r4, r2 and r05 coefficients  ppsur           = ', ppsur 
     254         WRITE(numout,*) '                                        ppa0            = ', ppa0 
     255         WRITE(numout,*) '                                        ppa1            = ', ppa1 
     256         WRITE(numout,*) '                                        ppkth           = ', ppkth 
     257         WRITE(numout,*) '                                        ppacr           = ', ppacr 
     258         WRITE(numout,*) '      Minimum vertical spacing ppdzmin                  = ', ppdzmin 
     259         WRITE(numout,*) '      Maximum depth pphmax                              = ', pphmax 
     260         WRITE(numout,*) '      Use double tanf function for vertical coordinates ldbletanh = ', ldbletanh 
     261         WRITE(numout,*) '      Double tanh function parameters ppa2              = ', ppa2 
     262         WRITE(numout,*) '                                      ppkth2            = ', ppkth2 
     263         WRITE(numout,*) '                                      ppacr2            = ', ppacr2 
    242264      ENDIF 
    243265 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ICB/icb_oce.F90

    r3954 r3993  
    165165      ! 
    166166      icb_alloc = 0 
    167       ALLOCATE( berg_grid                      ,                                               & 
     167!!      ALLOCATE( berg_grid                      ,                                               & 
     168      ALLOCATE(                                                                                & 
    168169         &      berg_grid%calving    (jpi,jpj) , berg_grid%calving_hflx (jpi,jpj)          ,   & 
    169170         &      berg_grid%stored_heat(jpi,jpj) , berg_grid%floating_melt(jpi,jpj)          ,   & 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90

    r3989 r3993  
    303303 
    304304      !                                           ! ==================================================== 
    305       IF( cp_cfz == "arctic" . OR. cp_cfz == "antarctic" ) THEN   !  ORCA configuration : arctic or antarctic zoom 
     305      IF( cp_cfz == "arctic" .OR. cp_cfz == "antarctic" ) THEN   !  ORCA configuration : arctic or antarctic zoom 
    306306         !                                        ! ==================================================== 
    307307         IF(lwp) WRITE(numout,*) 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r3989 r3993  
    229229         &             nn_bench, nn_timing 
    230230      NAMELIST/namcfg/ cp_cfg, cp_cfz, 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 
     231         &             jpizoom, jpjzoom, jperio 
    235232      !!---------------------------------------------------------------------- 
    236233      ! 
     
    492489         WRITE(numout,*) '      left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 
    493490         WRITE(numout,*) '      lateral cond. type (between 0 and 6) jperio = ', jperio    
    494          WRITE(numout,*) '      type of horizontal mesh jphgr_msh           = ', jphgr_msh 
    495          WRITE(numout,*) '      longitude of first raw and column T-point ppglam0 = ', ppglam0 
    496          WRITE(numout,*) '      latitude  of first raw and column T-point ppgphi0 = ', ppgphi0 
    497          WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_deg        = ', ppe1_deg 
    498          WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_deg        = ', ppe2_deg 
    499          WRITE(numout,*) '      zonal      grid-spacing (degrees) ppe1_m          = ', ppe1_m 
    500          WRITE(numout,*) '      meridional grid-spacing (degrees) ppe2_m          = ', ppe2_m 
    501          WRITE(numout,*) '      ORCA r4, r2 and r05 coefficients  ppsur           = ', ppsur 
    502          WRITE(numout,*) '                                        ppa0            = ', ppa0 
    503          WRITE(numout,*) '                                        ppa1            = ', ppa1 
    504          WRITE(numout,*) '                                        ppkth           = ', ppkth 
    505          WRITE(numout,*) '                                        ppacr           = ', ppacr 
    506          WRITE(numout,*) '      Minimum vertical spacing ppdzmin                  = ', ppdzmin 
    507          WRITE(numout,*) '      Maximum depth pphmax                              = ', pphmax 
    508          WRITE(numout,*) '      Use double tanf function for vertical coordinates ldbletanh = ', ldbletanh 
    509          WRITE(numout,*) '      Double tanh function parameters ppa2              = ', ppa2 
    510          WRITE(numout,*) '                                      ppkth2            = ', ppkth2 
    511          WRITE(numout,*) '                                      ppacr2            = ', ppacr2 
     491 
    512492      ENDIF 
    513493      !                             ! Parameter control 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

    r3989 r3993  
    5959 
    6060 
    61    !! Horizontal grid parameters for domhgr 
    62    !! ===================================== 
    63    INTEGER       ::   jphgr_msh        !: type of horizontal mesh 
    64    !                                       !  = 0 curvilinear coordinate on the sphere read in coordinate.nc 
    65    !                                       !  = 1 geographical mesh on the sphere with regular grid-spacing 
    66    !                                       !  = 2 f-plane with regular grid-spacing 
    67    !                                       !  = 3 beta-plane with regular grid-spacing 
    68    !                                       !  = 4 Mercator grid with T/U point at the equator 
    6961 
    70    REAL(wp)      ::   ppglam0              !: longitude of first raw and column T-point (jphgr_msh = 1) 
    71    REAL(wp)      ::   ppgphi0              !: latitude  of first raw and column T-point (jphgr_msh = 1) 
    72    !                                                        !  used for Coriolis & Beta parameters (jphgr_msh = 2 or 3) 
    73    REAL(wp)      ::   ppe1_deg             !: zonal      grid-spacing (degrees) 
    74    REAL(wp)      ::   ppe2_deg             !: meridional grid-spacing (degrees) 
    75    REAL(wp)      ::   ppe1_m               !: zonal      grid-spacing (degrees) 
    76    REAL(wp)      ::   ppe2_m               !: meridional grid-spacing (degrees) 
    77  
    78    !! Vertical grid parameter for domzgr 
    79    !! ================================== 
    80    REAL(wp)      ::   ppsur                !: ORCA r4, r2 and r05 coefficients 
    81    REAL(wp)      ::   ppa0                 !: (default coefficients) 
    82    REAL(wp)      ::   ppa1                 !: 
    83    REAL(wp)      ::   ppkth                !: 
    84    REAL(wp)      ::   ppacr                !: 
    85    ! 
    86    !  If both ppa0 ppa1 and ppsur are specified to 0, then 
    87    !  they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr 
    88    REAL(wp)      ::   ppdzmin              !: Minimum vertical spacing 
    89    REAL(wp)      ::   pphmax               !: Maximum depth 
    90    ! 
    91    LOGICAL       ::   ldbletanh            !: Use/do not use double tanf function for vertical coordinates 
    92    REAL(wp)      ::   ppa2                 !: Double tanh function parameters 
    93    REAL(wp)      ::   ppkth2               !: 
    94    REAL(wp)      ::   ppacr2               !: 
    9562 
    9663   !!--------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r3973 r3993  
    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 
     161      NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 
     162         &             jpizoom, jpjzoom, jperio 
    166163      !!---------------------------------------------------------------------- 
    167164      ! 
     
    330327         WRITE(numout,*) '   Namelist namcfg' 
    331328         WRITE(numout,*) '      configuration name              cp_cfg      = ', TRIM(cp_cfg) 
     329         WRITE(numout,*) '      configuration zoom name         cp_cfz      = ', TRIM(cp_cfz) 
    332330         WRITE(numout,*) '      configuration resolution        jp_cfg      = ', jp_cfg 
    333331         WRITE(numout,*) '      1st lateral dimension ( >= jpi ) jpidta     = ', jpidta 
     
    339337         WRITE(numout,*) '      left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 
    340338         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 
    359339      ENDIF 
    360340      !                             ! Parameter control 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

    r3680 r3993  
    1313 
    1414   !* Domain size * 
    15    USE par_oce , ONLY :   cp_cfg   =>   cp_cfg     !: name of the configuration 
    16    USE par_oce , ONLY :   jp_cfg   =>   jp_cfg     !: resolution of the configuration 
    17    USE par_oce , ONLY :   jpiglo   =>   jpiglo     !: first  dimension of global domain --> i 
    18    USE par_oce , ONLY :   jpjglo   =>   jpjglo     !: second dimension of global domain --> j 
    1915   USE par_oce , ONLY :   jpi      =>   jpi        !: first  dimension of grid --> i  
    2016   USE par_oce , ONLY :   jpj      =>   jpj        !: second dimension of grid --> j   
     
    2420   USE par_oce , ONLY :   jpkm1    =>   jpkm1      !: jpk - 1   
    2521   USE par_oce , ONLY :   jpij     =>   jpij       !: jpi x jpj 
    26    USE par_oce , ONLY :   jpidta   =>   jpidta     !: first horizontal dimension  > or = jpi 
    27    USE par_oce , ONLY :   jpjdta   =>   jpjdta     !: second horizontal dimension > or = jpj 
    28    USE par_oce , ONLY :   jpkdta   =>   jpkdta     !: number of levels            > or = jpk 
    2922   USE par_oce , ONLY :   lk_esopa =>   lk_esopa   !: flag to activate the all option 
    3023   USE par_oce , ONLY :   jp_tem   =>   jp_tem     !: indice for temperature 
Note: See TracChangeset for help on using the changeset viewer.