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 10009 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/par_oce.F90 – NEMO

Ignore:
Timestamp:
2018-07-29T11:23:51+02:00 (6 years ago)
Author:
gm
Message:

#1911 (ENHANCE-04): RK3 branch - step II.1 time-level dimension on ssh

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/par_oce.F90

    r10001 r10009  
    1313   PUBLIC 
    1414 
    15  
    16    !! 
    17    INTEGER, PUBLIC ::   Nnn, Np1, Nm1   ! =now, before, after 
    18  
    19    INTEGER, PUBLIC ::   Nb, Nn, Na      ! before, now, after  index 
    20  
    21  
    22  
    23    !!---------------------------------------------------------------------- 
    24    !!                   namcfg namelist parameters 
    25    !!---------------------------------------------------------------------- 
    26    LOGICAL       ::   ln_read_cfg      !: (=T) read the domain configuration file or (=F) not 
    27    CHARACTER(lc) ::      cn_domcfg        !: filename the configuration file to be read 
    28    LOGICAL       ::   ln_write_cfg     !: (=T) create the domain configuration file 
    29    CHARACTER(lc) ::      cn_domcfg_out    !: filename the configuration file to be read 
    30    ! 
    31    LOGICAL       ::   ln_use_jattr     !: input file read offset 
    32    !                                   !  Use file global attribute: open_ocean_jstart to determine start j-row  
    33    !                                   !  when reading input from those netcdf files that have the  
    34    !                                   !  attribute defined. This is designed to enable input files associated  
    35    !                                   !  with the extended grids used in the under ice shelf configurations to  
    36    !                                   !  be used without redundant rows when the ice shelves are not in use. 
    37    !  
    38  
    3915   !!--------------------------------------------------------------------- 
    4016   !! Domain Matrix size  
    4117   !!--------------------------------------------------------------------- 
    42    ! configuration name & resolution   (required only in ORCA family case) 
    43    CHARACTER(lc) ::   cn_cfg           !: name of the configuration 
    44    INTEGER       ::   nn_cfg           !: resolution of the configuration  
     18   ! time dimension and index 
     19   INTEGER, PUBLIC ::   Nt             !: number of time-level used 
     20   INTEGER, PUBLIC ::   Nbb, Nnn, Naa  !: before, now, after time-level indices 
    4521 
    4622   ! global domain size               !!! * total computational domain * 
    … …  
    4824   INTEGER       ::   jpjglo           !: 2nd    -                  -    --> j-direction 
    4925   INTEGER       ::   jpkglo           !: 3nd    -                  -    --> k levels 
     26!!gm  to be used in futur (?): 
     27!!   INTEGER, PUBLIC ::   Niglo , Njglo , Nkglo !: global domain size 
    5028 
    5129   ! global domain size for AGRIF     !!! * total AGRIF computational domain * 
    … …  
    6543   INTEGER, PUBLIC ::   jpimax! = ( jpiglo-2*nn_hls + (jpni-1) ) / jpni + 2*nn_hls !: maximum jpi 
    6644   INTEGER, PUBLIC ::   jpjmax! = ( jpjglo-2*nn_hls + (jpnj-1) ) / jpnj + 2*nn_hls !: maximum jpj 
     45!!gm  to be used in futur (?): 
     46!!   INTEGER, PUBLIC ::   Ni  , Nj   , Nk     !: local domain size 
    6747 
    6848   !!--------------------------------------------------------------------- 
    … …  
    8565 
    8666   !!---------------------------------------------------------------------- 
     67   !!                   namcfg namelist parameters 
     68   !!---------------------------------------------------------------------- 
     69   LOGICAL       ::   ln_read_cfg      !: (=T) read the domain configuration file or (=F) not 
     70   CHARACTER(lc) ::      cn_domcfg        !: filename the configuration file to be read 
     71   LOGICAL       ::   ln_write_cfg     !: (=T) create the domain configuration file 
     72   CHARACTER(lc) ::      cn_domcfg_out    !: filename the configuration file to be read 
     73   LOGICAL       ::   ln_use_jattr     !: input file read offset 
     74   !                                   !  Use file global attribute: open_ocean_jstart to determine start j-row  
     75   !                                   !  when reading input from those netcdf files that have the  
     76   !                                   !  attribute defined. This is designed to enable input files associated  
     77   !                                   !  with the extended grids used in the under ice shelf configurations to  
     78   !                                   !  be used without redundant rows when the ice shelves are not in use. 
     79 
     80   ! configuration name & resolution   (required only in ORCA family case) 
     81   CHARACTER(lc) ::   cn_cfg           !: name of the configuration 
     82   INTEGER       ::   nn_cfg           !: resolution of the configuration  
     83 
     84   !!---------------------------------------------------------------------- 
    8785   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    8886   !! $Id$  
Note: See TracChangeset for help on using the changeset viewer.