Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obc_par.F90

Timestamp:

2011-03-30T17:58:35+02:00 (13 years ago)

Author:

rblod

Message:

First attempt to put dynamic allocation on the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obc_par.F90 (modified) (7 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obc_par.F90

@@ -4 +4 @@
    !! Open Boundary Cond. :   define related parameters
    !!==============================================================================
+   !! history :  OPA  ! 1991-01 (CLIPPER)  Original code 
+   !!   NEMO     1.0  ! 2002-04   (C. Talandier)  modules
+   !!             -   ! 2004/06   (F. Durand) jptobc is defined as a parameter
+   !!----------------------------------------------------------------------
 #if defined key_obc
    !!----------------------------------------------------------------------
    !!   'key_obc' :                                 Open Boundary Condition
    !!----------------------------------------------------------------------
-   !! history :
-   !!  8.0   01/91   (CLIPPER)  Original code 
-   !!  9.0   06/02   (C. Talandier)  modules
-   !!        06/04   (F. Durand) ORCA_R2_ZIND config
-   !!        06/04   (F. Durand) jptobc is defined as a parameter, 
-   !!            in order to allow time-dependent OBCs fields on input
-   !!----------------------------------------------------------------------
-   !! * Modules used
    USE par_oce         ! ocean parameters
 
    IMPLICIT NONE
    PUBLIC
-   !!----------------------------------------------------------------------
-   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
-   !! $Id$ 
-   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
-   !!----------------------------------------------------------------------
+
 #if ! defined key_agrif
    LOGICAL, PUBLIC, PARAMETER ::   lk_obc = .TRUE.     !: Ocean Boundary Condition flag
@@ -47 +39 @@
    !! open boundary parameter
    !!---------------------------------------------------------------------
-   INTEGER, PARAMETER ::     &  !: time dimension of the BCS fields on input
-      jptobc  =         2 
+   INTEGER, PARAMETER ::   jptobc      =  2        !: time dimension of the BCS fields on input
+   
    !! * EAST open boundary
-   LOGICAL, PARAMETER ::     &  !:
-      lp_obc_east = .FALSE.     !: to active or not the East open boundary
-     INTEGER   &
+   LOGICAL, PARAMETER ::   lp_obc_east = .FALSE.   !: to active or not the East open boundary
+   INTEGER   &
 #if !defined key_agrif
      , PARAMETER   & 
@@ -64 +55 @@
 
    !! * WEST open boundary
-   LOGICAL, PARAMETER ::     &  !:
-      lp_obc_west = .FALSE.     !: to active or not the West open boundary
-     INTEGER   &
+   LOGICAL, PARAMETER ::   lp_obc_west = .FALSE.   !: to active or not the West open boundary
+   INTEGER   &
 #if !defined key_agrif
      , PARAMETER   & 
@@ -78 +68 @@
 
    !! * NORTH open boundary
-   LOGICAL, PARAMETER ::     &  !:
-      lp_obc_north = .FALSE.    !: to active or not the North open boundary
+   LOGICAL, PARAMETER ::   lp_obc_north = .FALSE.   !: to active or not the North open boundary
      INTEGER   &
 #if !defined key_agrif
@@ -92 +81 @@
 
    !! * SOUTH open boundary
-   LOGICAL, PARAMETER ::     &  !:
-      lp_obc_south = .FALSE.    !: to active or not the South open boundary
+   LOGICAL, PARAMETER ::   lp_obc_south = .FALSE.   !: to active or not the South open boundary
      INTEGER   &
 #if !defined key_agrif
@@ -105 +93 @@
       jpisfm1 =  jpisf-1        !: last  ocean point         "                 "
    
-   INTEGER, PARAMETER ::     &  !:
-      jpnic = 2700              !: maximum number of isolated coastlines points 
+   INTEGER, PARAMETER ::   jpnic = 2700   !: maximum number of isolated coastlines points 
 
 # endif
@@ -117 +104 @@
 #endif
 
+   !!----------------------------------------------------------------------
+   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
+   !! $Id$ 
+   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!======================================================================
 END MODULE obc_par