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

Timestamp:

2006-03-09T18:22:04+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• configuration parameters are just integer when agrif is used
• add call to agrif routines with key_agrif

File:

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

trunk/NEMO/OPA_SRC/par_oce.F90

@@ -168 +168 @@
    !! Domain Matrix size
    !!---------------------------------------------------------------------
-   INTEGER, PUBLIC, PARAMETER ::   &  !:
+   INTEGER  &  !:
+#if !defined key_AGRIF
+      ,PARAMETER  &
+#endif
+    :: &
       jpi = ( jpiglo-2*jpreci + (jpni-1) ) / jpni + 2*jpreci ,   &  !: first  dimension
       jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj ,   &  !: second dimension
@@ -176 +180 @@
       jpij  = jpi*jpj                                               !:  jpi x jpj
 
+#if defined key_AGRIF
+   !!---------------------------------------------------------------------
+   !! Agrif variables
+   !!---------------------------------------------------------------------
+   INTEGER, PUBLIC, PARAMETER :: nbghostcells = 1
+   INTEGER, PUBLIC :: nbcellsx = jpiglo - 2 - 2*nbghostcells
+   INTEGER, PUBLIC :: nbcellsy = jpjglo - 2 - 2*nbghostcells
+#endif
    !!---------------------------------------------------------------------
    !! Optimization/control flags