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

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4147 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/par_oce.F90 – NEMO

Ignore:
Timestamp:
2013-11-04T12:51:55+01:00 (10 years ago)
Author:
cetlod
Message:

merge in dev_LOCEAN_2013, the 1st development branch dev_r3853_CNRS9_Confsetting, from its starting point ( r3853 ) on the trunk: see ticket #1169

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

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