Changeset 359 for trunk/NEMO/OPA_SRC/DYN/dynnxt.F90

Timestamp:

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

Author:

opalod

Message:

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

File:

• trunk/NEMO/OPA_SRC/DYN/dynnxt.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DYN/dynnxt.F90

@@ -36 +36 @@
       !!      After velocity is compute using a leap-frog scheme environment:
       !!         (ua,va) = (ub,vb) + 2 rdt (ua,va)
-      !!      Note that if lk_dynspg_fsc=T, the time stepping has already been
+      !!      Note that if lk_dynspg_flt=T, the time stepping has already been
       !!      performed in dynspg module
       !!      Time filter applied on now horizontal velocity to avoid the
@@ -56 +56 @@
       !!   8.5  !  02-08  (G. Madec)  F90: Free form and module
       !!        !  02-10  (C. Talandier, A-M. Treguier) Open boundary cond.
+      !!   9.0  !  05-11  (V. Garnier) Surface pressure gradient organization
       !!----------------------------------------------------------------------
       !! * Arguments
@@ -88 +89 @@
          ! Next velocity
          ! -------------
-#if defined key_dynspg_fsc
+#if defined key_dynspg_flt
          ! Leap-frog time stepping already done in dynspg.F routine
 #else