Changeset 15 for trunk/NEMO/OPA_SRC/par_oce.F90

Timestamp:

2004-02-17T08:25:44+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/par_oce.F90 (modified) (7 diffs)

trunk/NEMO/OPA_SRC/par_oce.F90

@@ -11 +11 @@
    !!----------------------------------------------------------------------
    !! * Modules used
-   USE par_kind          !: kind parameters
+   USE par_kind          ! kind parameters
 
    IMPLICIT NONE
@@ -22 +22 @@
    !!      so jpiglo=jpi and jpjglo=jpj
 
-   INTEGER, PARAMETER ::            &
+   INTEGER, PUBLIC, PARAMETER ::    &  !:
       jpni   = 1,                   &  !: number of processors following i 
       jpnj   = 1,                   &  !: number of processors following j
@@ -75 +75 @@
    !!   default option  :                               small closed basin
    !!---------------------------------------------------------------------
-   CHARACTER (len=16), PARAMETER :: &
+   CHARACTER(len=16), PUBLIC, PARAMETER ::   &  !:
       cp_cfg = "default"               !: name of the configuration
-   INTEGER, PARAMETER ::            &
+   INTEGER, PARAMETER ::            &  !:
       jp_cfg = 0  ,                 &  !: resolution of the configuration
 
@@ -98 +98 @@
       jpnisl  =  0                     !: maximum number of points per island
 
+      !!  Values set to pp_not_used indicates that this parameter is not used in THIS config.
+      !!  Values set to pp_to_be_computed  indicates that variables will be computed in domzgr
+      REAL(wp), PARAMETER ::   &  !:
+         pp_not_used       = 999999._wp , &  !:
+         pp_to_be_computed = 999999._wp      !:
+
+
    !! Horizontal grid parameters for domhgr
    !! =====================================
 
-   INTEGER, PARAMETER   ::   & !
+   INTEGER, PUBLIC, PARAMETER   ::   &  !:
       jphgr_msh = 0            !: type of horizontal mesh
       !                        !  = 0 curvilinear coordinate on the sphere
@@ -112 +119 @@
       !                        !      isotropic resolution (e1_deg)
 
-   REAL(wp) , PARAMETER ::    &  !
+   REAL(wp) , PUBLIC, PARAMETER ::   &   !:
       ppglam0  =    0.0_wp,   &  !: longitude of first raw and column T-point (jphgr_msh = 1)
       ppgphi0  =  -35.0_wp,   &  !: latitude  of first raw and column T-point (jphgr_msh = 1)
@@ -121 +128 @@
       ppe2_m   = 5000.0_wp       !: meridional grid-spacing (degrees)
 
-
-   !!
    !! Vertical grid parameter for domzgr
    !! ==================================
-   !!
-   REAL(wp), PARAMETER  ::       &
-      &     ppsur = -4762.96143546300_wp    ,  &  !: ORCA r4, r2 and r05 coefficients
-      &     ppa0  =   255.58049070440_wp    ,  &  !: (default coefficients)
-      &     ppa1  =   245.58132232490_wp    ,  &  !:
-      &     ppkth =    21.43336197938_wp    ,  &  !:
-      &     ppacr =     3.00000000000_wp          !:
+
+   REAL(wp), PUBLIC, PARAMETER  ::   &  !:
+      &     ppsur = -4762.96143546300_wp ,  &  !: ORCA r4, r2 and r05 coefficients
+      &     ppa0  =   255.58049070440_wp ,  &  !: (default coefficients)
+      &     ppa1  =   245.58132232490_wp ,  &  !:
+      &     ppkth =    21.43336197938_wp ,  &  !:
+      &     ppacr =     3.00000000000_wp       !:
 
    !!  If both ppa0 ppa1 and ppsur are specified to 0, then
    !!  they are computed from ppdzmin, pphmax , ppkth, ppacr in dom_zgr
 
-   REAL(wp), PARAMETER ::        &
-      &     ppdzmin = 10._wp                ,  &  !: Minimum vertical spacing
-      &     pphmax  = 5000._wp                    !: Maximum depth
+   REAL(wp), PUBLIC, PARAMETER ::   &  !:
+      &     ppdzmin = 10._wp             ,  &  !: Minimum vertical spacing
+      &     pphmax  = 5000._wp                 !: Maximum depth
 
    !!---------------------------------------------------------------------
@@ -146 +151 @@
    !! Domain Matrix size
    !!---------------------------------------------------------------------
-   INTEGER, PARAMETER ::            &
-      jpi = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci ,   &
-      !                                !: first  dimension of grid --> i
-      jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj ,   &
-      !                                !: second dimension of grid --> j
-      jpim1 = jpi-1,                &  !:  jpi - 1
-      jpjm1 = jpj-1,                &  !:  jpj - 1
-      jpkm1 = jpk-1,                &  !:  jpk - 1
-      jpij  = jpi*jpj                  !:  jpi x jpj
+   INTEGER, PUBLIC, PARAMETER ::   &  !:
+      jpi = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci ,   &  !: first  dimension
+      jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj ,   &  !: second dimension
+      jpim1 = jpi-1,                                             &  !: inner domain indices
+      jpjm1 = jpj-1,                                             &  !:   "            "
+      jpkm1 = jpk-1,                                             &  !:   "            "
+      jpij  = jpi*jpj                                               !:  jpi x jpj
 
    !!---------------------------------------------------------------------
-   !! ESOPA control
+   !! Optimization/control flags
    !!---------------------------------------------------------------------
 #if defined key_esopa
-   LOGICAL, PARAMETER ::   lk_esopa = .TRUE.   !: flag to activate the all options
+   LOGICAL, PUBLIC, PARAMETER ::   lk_esopa     = .TRUE.   !: flag to activate the all options
 #else
-   LOGICAL, PARAMETER ::   lk_esopa = .FALSE.  !: flag to activate the all options
+   LOGICAL, PUBLIC, PARAMETER ::   lk_esopa     = .FALSE.  !: flag to activate the all options
+#endif
+
+#if defined key_vectopt_memory
+   LOGICAL, PUBLIC, PARAMETER ::   lk_vopt_mem  = .TRUE.   !: vector optimization flag
+#else
+   LOGICAL, PUBLIC, PARAMETER ::   lk_vopt_mem  = .FALSE.  !: vector optimization flag
+#endif
+
+#if defined key_vectopt_loop
+   LOGICAL, PUBLIC, PARAMETER ::   lk_vopt_loop = .TRUE.   !: vector optimization flag
+#else
+   LOGICAL, PUBLIC, PARAMETER ::   lk_vopt_loop = .FALSE.  !: vector optimization flag
 #endif