Changeset 455 for trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

Timestamp:

2006-05-10T18:53:54+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_048:RB: reorganization of dynamics part, in addition change atsk to jki, suppress dynhpg_atsk.F90 dynzdf_imp_atsk.F90 dynzdf_iso.F90

File:

• trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -4 +4 @@
    !! Ocean dynamics:  surface pressure gradient trend
    !!======================================================================
-#if ( defined key_dynspg_ts && ! defined key_autotasking ) ||   defined key_esopa
-   !!----------------------------------------------------------------------
-   !!   'key_dynspg_ts'     free surface cst volume with time splitting
-   !!   NOT 'key_autotasking'                      k-j-i loop (vector opt.)
+#if ( defined key_dynspg_ts && ! defined key_mpp_omp ) ||   defined key_esopa
+   !!----------------------------------------------------------------------
+   !!   'key_dynspg_ts'         free surface cst volume with time splitting
+   !!   NOT 'key_mpp_omp'                          k-j-i loop (vector opt.)
    !!----------------------------------------------------------------------
    !!   dyn_spg_ts  : compute surface pressure gradient trend using a time-