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

Timestamp:

2005-12-21T11:46:45+01:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_033 : RB + CT : Add new surface pressure gradient algorithms

File:

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

trunk/NEMO/OPA_SRC/par_oce.F90

@@ -7 +7 @@
    !!   4.0  !  91     (Imbard, Levy, Madec)  Original code
    !!   9.0  !  04-01  (G. Madec, J.-M. Molines)  Free form and module
+   !!    "   !  05-11  (V. Garnier) Surface pressure gradient organization
    !!----------------------------------------------------------------------
    !!  OPA 9.0 , LOCEAN-IPSL (2005) 
@@ -196 +197 @@
 #endif
 
+#if defined key_autotasking
+   LOGICAL, PUBLIC, PARAMETER ::   lk_jki = .TRUE.   !: j-k-i loop flag
+#else
+   LOGICAL, PUBLIC, PARAMETER ::   lk_jki = .FALSE.  !: k-j-i loop flag
+#endif
+
    !!======================================================================
 END MODULE par_oce