Changeset 392 for trunk/NEMO/OPA_SRC/DIA/diaptr.F90

Timestamp:

2006-03-10T11:55:45+01:00 (18 years ago)

Author:

opalod

Message:

RB:nemo_v1_update_038: first integration of Agrif :

• add agrif to dynspg_flt_jki.F90
• cosmetic change of key_AGRIF in key_agrif

File:

• trunk/NEMO/OPA_SRC/DIA/diaptr.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/DIA/diaptr.F90

@@ -88 +88 @@
       !! * local declarations
       INTEGER  ::   ji, jj, jk        ! dummy loop arguments
-#if ! defined key_AGRIF
+#if ! defined key_agrif
       INTEGER  ::   ijpj = jpj        ! ???
 #else
@@ -96 +96 @@
          p_fval                       ! function value
       !!--------------------------------------------------------------------
-#if defined key_AGRIF
+#if defined key_agrif
       ijpj = jpj
 #endif      
@@ -136 +136 @@
       !! * local declarations
       INTEGER  ::   ji,jj             ! dummy loop arguments
-#if ! defined key_AGRIF
+#if ! defined key_agrif
       INTEGER  ::   ijpj = jpj        ! ???
 #else
@@ -144 +144 @@
          p_fval                       ! function value
       !!--------------------------------------------------------------------
-#if defined key_AGRIF
+#if defined key_agrif
       ijpj = jpj
 #endif