Changeset 4015 for branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

Timestamp:

2013-09-09T12:13:17+02:00 (11 years ago)

Author:

cetlod

Message:

2013/dev_r3940_CNRS4_IOCRS: 1st step, add new routines for outputs coarsening

File:

• branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_oce.F90 (modified) (3 diffs)

branches/2013/dev_r3940_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

@@ -7 +7 @@
    !!   NEMO     1.0  !  2004-01  (G. Madec, J.-M. Molines)  Free form and module
    !!            3.3  !  2010-09  (C. Ethe) TRA-TRC merge: add jpts, jp_tem & jp_sal
+   !!            3.5  !  2012-07  (J. Simeon) online coarsening of outputs
+   !!                             renounced parameter status for jpiglo, jpjglo 
    !!----------------------------------------------------------------------
    USE par_kind          ! kind parameters
@@ -90 +92 @@
    !!   default option  :                               small closed basin
    !!---------------------------------------------------------------------
-   CHARACTER(len=16), PUBLIC, PARAMETER ::   cp_cfg = "default"   !: name of the configuration
-   INTEGER          , PUBLIC, PARAMETER ::   jp_cfg = 0           !: resolution of the configuration
+   CHARACTER(len=16), PUBLIC ::   cp_cfg = "default"   !: name of the configuration
+   INTEGER          , PUBLIC ::   jp_cfg = 0           !: resolution of the configuration
 
    ! data size                                       !!! * size of all input files *
@@ -98 +100 @@
    INTEGER, PUBLIC, PARAMETER ::   jpkdta  = 31       !: number of levels      ( >= jpk )
 
-   ! global or zoom domain size                      !!! * computational domain *
-   INTEGER, PUBLIC, PARAMETER ::   jpiglo  = jpidta   !: 1st dimension of global domain --> i
-   INTEGER, PUBLIC, PARAMETER ::   jpjglo  = jpjdta   !: 2nd    -                  -    --> j
+   ! global or zoom domain size (formerly parameters) !!! * computational domain *
+   INTEGER, PUBLIC            ::   jpiglo  = jpidta   !: 1st dimension of global domain --> i
+   INTEGER, PUBLIC            ::   jpjglo  = jpjdta   !: 2nd    -                  -    --> j
 
    ! zoom starting position 
-   INTEGER, PUBLIC, PARAMETER ::   jpizoom =   1      !: left bottom (i,j) indices of the zoom
-   INTEGER, PUBLIC, PARAMETER ::   jpjzoom =   1      !: in data domain indices
+   INTEGER, PUBLIC ::   jpizoom =   1      !: left bottom (i,j) indices of the zoom
+   INTEGER, PUBLIC ::   jpjzoom =   1      !: in data domain indices
 
    ! Domain characteristics
-   INTEGER, PUBLIC, PARAMETER ::   jperio  =  0       !: lateral cond. type (between 0 and 6)
+   INTEGER, PUBLIC ::   jperio  =  0       !: lateral cond. type (between 0 and 6)
    !                                                  !  = 0 closed                 ;   = 1 cyclic East-West
    !                                                  !  = 2 equatorial symmetric   ;   = 3 North fold T-point pivot