Changeset 443 for trunk/NEMO/OPA_SRC/par_GYRE.h90

Timestamp:

2006-04-26T11:23:35+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_038:RB: corrections for agrif in some configuration files

File:

• trunk/NEMO/OPA_SRC/par_GYRE.h90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/par_GYRE.h90

@@ -62 +62 @@
       !   The mercator grid starts only approximately at gphi0 because
       !   of the constraint that the equator be a T point.
-   REAL(wp) ,PARAMETER ::     &  !:
+   REAL(wp) &
+#if !defined key_agrif
+      , PARAMETER  &
+#endif
+      ::     &  !:
       ppglam0  =    0.0_wp,   &  !: longitude of first raw and column T-point (jphgr_msh = 1)
       ppgphi0  =   29.0_wp,   &  !: latitude  of first raw and column T-point (jphgr_msh = 1)