Changeset 15 for trunk/NEMO/OPA_SRC/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/oce.F90 (modified) (7 diffs)

trunk/NEMO/OPA_SRC/oce.F90

@@ -1 +1 @@
 MODULE oce
    !!======================================================================
-   !!             ***  MODULE  oce  ***
+   !!                      ***  MODULE  oce  ***
    !! Ocean        :  dynamics and active tracers defined in memory 
    !!======================================================================
@@ -13 +13 @@
 
    IMPLICIT NONE
+   PRIVATE
 
    !! Physics and algorithm flags
    !! ---------------------------
-#if defined key_vectopt_memory
-   LOGICAL ::   l_vopt   = .TRUE.   !: memory vector optimization flag
-#else
-   LOGICAL ::   l_vopt   = .FALSE.  !: memory vector optimization flag
-#endif
-
-   LOGICAL ::   ln_dynhpg_imp   = .FALSE.  ! semi-implicite hpg flag
+   LOGICAL, PUBLIC ::   ln_dynhpg_imp   = .FALSE.  !: semi-implicite hpg flag
 
    !! dynamics and tracer fields
    !! --------------------------
-   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   &
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &   !:
       ! before !  now      !  after  !
       ub       ,  un       ,  ua     ,   &  !: i-horizontal velocity (m/s)
@@ -35 +30 @@
       tb       ,  tn       ,  ta     ,   &  !: potential temperature (celcius)
       sb       ,  sn       ,  sa            !: salinity (psu)
-   REAL(wp), DIMENSION(jpi,jpj,jpk) ::   &
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &   !:
       rhd ,                              &  !: in situ density anomalie rhd=(rho-rau0)/rau0 (no units)
       rhop,                              &  !: potential volumic mass (kg/m3)
@@ -42 +37 @@
    !! surface pressure gradient
    !! -------------------------
-   REAL(wp), DIMENSION(jpi,jpj) ::   &
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &   !:
       spgu, spgv             !: horizontal surface pressure gradient
 
@@ -48 +43 @@
    !! interpolated gradient
    !! ---------------------
-   REAL(wp), DIMENSION(jpi,jpj) ::   &
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &   !:
       gtu, gsu, gru,      &  !: t-, s- and rd horizontal gradient at u- and 
       gtv, gsv, grv          !: v-points at bottom ocean level 
 #else
-   REAL(wp) ::   &
+   REAL(wp), PUBLIC ::   &   !:
       gtu, gsu, gru,      &  !: dummy scalars
       gtv, gsv, grv          !:
@@ -60 +55 @@
    !! free surface - constant volume formulation
    !! ------------------------------------------
-   REAL(wp), DIMENSION(jpi,jpj) ::   &
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &   !:
       sshb, sshn,         &  !: before, now sea surface height (meters)
       hu, hv                 !: depth at u- and v-points (meters)
 # if defined key_obc
-   REAL(wp) obcsurftot       !: Total lateral surface of open boundaries
-   REAL(wp), DIMENSION(jpi,jpj) ::   &
+   REAL(wp), PUBLIC ::    &  !:
+      obcsurftot       !: Total lateral surface of open boundaries
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &   !:
       obcumask, obcvmask     !: u-, v- Force filtering mask for the open 
       !                      !  boundary condition on grad D
@@ -73 +69 @@
    !! rigid-lid formulation
    !! ---------------------
-   REAL(wp), DIMENSION(jpi,jpj) ::   &
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &   !:
       hur, hvr,           &  !: inverse of u and v-points ocean depth (1/m)
       bsfb, bsfn,         &  !: before, now barotropic streamfunction (m3/s)