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 7646 for trunk/NEMOGCM/NEMO/OPA_SRC/par_oce.F90 – NEMO

Ignore:
Timestamp:
2017-02-06T10:25:03+01:00 (7 years ago)
Author:
timgraham
Message:

Merge of dev_merge_2016 into trunk. UPDATE TO ARCHFILES NEEDED for XIOS2.
LIM_SRC_s/limrhg.F90 to follow in next commit due to change of kind (I'm unable to do it in this commit).
Merged using the following steps:

1) svn merge --reintegrate svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk .
2) Resolve minor conflicts in sette.sh and namelist_cfg for ORCA2LIM3 (due to a change in trunk after branch was created)
3) svn commit
4) svn switch svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/trunk
5) svn merge svn+ssh://forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/2016/dev_merge_2016 .
6) At this stage I checked out a clean copy of the branch to compare against what is about to be committed to the trunk.
6) svn commit #Commit code to the trunk

In this commit I have also reverted a change to Fcheck_archfile.sh which was causing problems on the Paris machine.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

    r5836 r7646  
    1414 
    1515   !!---------------------------------------------------------------------- 
     16   !!                   namcfg namelist parameters 
     17   !!---------------------------------------------------------------------- 
     18   LOGICAL       ::   ln_read_cfg      !: (=T) read the domain configuration file or (=F) not 
     19   CHARACTER(lc) ::      cn_domcfg        !: filename the configuration file to be read 
     20   LOGICAL       ::   ln_write_cfg     !: (=T) create the domain configuration file 
     21   CHARACTER(lc) ::      cn_domcfg_out    !: filename the configuration file to be read 
     22   ! 
     23   LOGICAL       ::   ln_use_jattr     !: input file read offset 
     24   !                                   !  Use file global attribute: open_ocean_jstart to determine start j-row  
     25   !                                   !  when reading input from those netcdf files that have the  
     26   !                                   !  attribute defined. This is designed to enable input files associated  
     27   !                                   !  with the extended grids used in the under ice shelf configurations to  
     28   !                                   !  be used without redundant rows when the ice shelves are not in use. 
     29   !  
     30 
     31   !!--------------------------------------------------------------------- 
     32   !! Domain Matrix size  
     33   !!--------------------------------------------------------------------- 
     34   ! configuration name & resolution   (required only in ORCA family case) 
     35   CHARACTER(lc) ::   cn_cfg           !: name of the configuration 
     36   INTEGER       ::   nn_cfg           !: resolution of the configuration  
     37 
     38   ! global domain size               !!! * total computational domain * 
     39   INTEGER       ::   jpiglo           !: 1st dimension of global domain --> i-direction 
     40   INTEGER       ::   jpjglo           !: 2nd    -                  -    --> j-direction 
     41   INTEGER       ::   jpkglo           !: 3nd    -                  -    --> k levels 
     42 
     43#if defined key_agrif 
     44 
     45!!gm  BUG ?   I'm surprised by the calculation below of nbcellsx and nbcellsy before jpiglo,jpjglo  
     46!!gm                           has been assigned to a value.... 
     47!!gm 
     48 
     49   ! global domain size for AGRIF     !!! * total AGRIF computational domain * 
     50   INTEGER, PUBLIC, PARAMETER ::   nbghostcells = 1                             !: number of ghost cells 
     51   INTEGER, PUBLIC            ::   nbcellsx     = jpiglo - 2 - 2*nbghostcells   !: number of cells in i-direction 
     52   INTEGER, PUBLIC            ::   nbcellsy     = jpjglo - 2 - 2*nbghostcells   !: number of cells in j-direction 
     53#endif 
     54 
     55   ! local domain size                !!! * local computational domain * 
     56   INTEGER, PUBLIC ::   jpi   ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci   !: first  dimension 
     57   INTEGER, PUBLIC ::   jpj   ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj   !: second dimension 
     58   INTEGER, PUBLIC ::   jpk   ! = jpkglo 
     59   INTEGER, PUBLIC ::   jpim1 ! = jpi-1                                            !: inner domain indices 
     60   INTEGER, PUBLIC ::   jpjm1 ! = jpj-1                                            !:   -     -      - 
     61   INTEGER, PUBLIC ::   jpkm1 ! = jpk-1                                            !:   -     -      - 
     62   INTEGER, PUBLIC ::   jpij  ! = jpi*jpj                                          !:  jpi x jpj 
     63 
     64   !!--------------------------------------------------------------------- 
     65   !! Active tracer parameters 
     66   !!--------------------------------------------------------------------- 
     67   INTEGER, PUBLIC, PARAMETER ::   jpts   = 2    !: Number of active tracers (=2, i.e. T & S ) 
     68   INTEGER, PUBLIC, PARAMETER ::   jp_tem = 1    !: indice for temperature 
     69   INTEGER, PUBLIC, PARAMETER ::   jp_sal = 2    !: indice for salinity 
     70 
     71   !!---------------------------------------------------------------------- 
    1672   !!   Domain decomposition 
    1773   !!---------------------------------------------------------------------- 
     
    2682 
    2783   !!---------------------------------------------------------------------- 
    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 
    33  
    34    ! data size                                       !!! * size of all input files * 
    35    INTEGER       ::   jpidta           !: 1st lateral dimension ( >= jpi ) 
    36    INTEGER       ::   jpjdta           !: 2nd    "         "    ( >= jpj ) 
    37    INTEGER       ::   jpkdta           !: number of levels      ( >= jpk ) 
    38  
    39    ! global or zoom domain size                      !!! * computational domain * 
    40    INTEGER       ::   jpiglo           !: 1st dimension of global domain --> i 
    41    INTEGER       ::   jpjglo           !: 2nd    -                  -    --> j 
    42  
    43    ! zoom starting position  
    44    INTEGER       ::   jpizoom          !: left bottom (i,j) indices of the zoom 
    45    INTEGER       ::   jpjzoom          !: in data domain indices 
    46  
    47    ! Domain characteristics 
    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 
    54  
    55    ! Input file read offset 
    56    LOGICAL       ::   ln_use_jattr     !: Use file global attribute: open_ocean_jstart to determine start j-row  
    57                                            ! when reading input from those netcdf files that have the  
    58                                            ! attribute defined. This is designed to enable input files associated  
    59                                            ! with the extended grids used in the under ice shelf configurations to  
    60                                            ! be used without redundant rows when the ice shelves are not in use. 
    61  
    62    !!  Values set to pp_not_used indicates that this parameter is not used in THIS config. 
    63    !!  Values set to pp_to_be_computed  indicates that variables will be computed in domzgr 
    64    REAL(wp)      ::   pp_not_used       = 999999._wp   !: vertical grid parameter 
    65    REAL(wp)      ::   pp_to_be_computed = 999999._wp   !:    -      -       - 
    66  
    67  
    68  
    69  
    70    !!--------------------------------------------------------------------- 
    71    !! Active tracer parameters 
    72    !!--------------------------------------------------------------------- 
    73    INTEGER, PUBLIC, PARAMETER ::   jpts   = 2    !: Number of active tracers (=2, i.e. T & S ) 
    74    INTEGER, PUBLIC, PARAMETER ::   jp_tem = 1    !: indice for temperature 
    75    INTEGER, PUBLIC, PARAMETER ::   jp_sal = 2    !: indice for salinity 
    76  
    77    !!--------------------------------------------------------------------- 
    78    !! Domain Matrix size  (if AGRIF, they are not all parameters) 
    79    !!--------------------------------------------------------------------- 
    80 #if defined key_agrif 
    81    INTEGER, PUBLIC, PARAMETER ::   nbghostcells = 1                             !: number of ghost cells 
    82    INTEGER, PUBLIC            ::   nbcellsx     = jpiglo - 2 - 2*nbghostcells   !: number of cells in i-direction 
    83    INTEGER, PUBLIC            ::   nbcellsy     = jpjglo - 2 - 2*nbghostcells   !: number of cells in j-direction 
    84    ! 
    85 #endif 
    86    INTEGER, PUBLIC  ::   jpi   ! = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci   !: first  dimension 
    87    INTEGER, PUBLIC  ::   jpj   ! = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj   !: second dimension 
    88    INTEGER, PUBLIC  ::   jpk   ! = jpkdta 
    89    INTEGER, PUBLIC  ::   jpim1 ! = jpi-1                                            !: inner domain indices 
    90    INTEGER, PUBLIC  ::   jpjm1 ! = jpj-1                                            !:   -     -      - 
    91    INTEGER, PUBLIC  ::   jpkm1 ! = jpk-1                                            !:   -     -      - 
    92    INTEGER, PUBLIC  ::   jpij  ! = jpi*jpj                                          !:  jpi x jpj 
    93  
    94    !!---------------------------------------------------------------------- 
    95    !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
     84   !! NEMO/OPA 4.0 , NEMO Consortium (2016) 
    9685   !! $Id$  
    9786   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
Note: See TracChangeset for help on using the changeset viewer.