Changeset 359 for trunk/NEMO/OPA_SRC/SBC/flxfwb.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/SBC/flxfwb.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/flxfwb.F90

@@ -4 +4 @@
    !! Ocean fluxes   : domain averaged freshwater budget
    !!======================================================================
-#if defined key_dynspg_fsc
-   !!----------------------------------------------------------------------
-   !!   'key_dynspg_fsc'               No free surface with constant volume
+#if ! defined key_dynspg_rl
+   !!----------------------------------------------------------------------
+   !!   NOT 'key_dynspg_rl'                        Free surface formulation
    !!----------------------------------------------------------------------
    !!   flx_fwb      : freshwater budget for global ocean configurations
@@ -245 +245 @@
       !! History :
       !!   9.0  !  03-09  (G. Madec)  Original code
+      !!    "   !  05-11  (V. Garnier) Surface pressure gradient organization
       !!----------------------------------------------------------------------
       !! * Local declarations
@@ -272 +273 @@
       ENDIF
       ! Option consistency
-#if ! defined key_dynspg_fsc
+#if defined key_dynspg_rl
       IF(lwp) WRITE '               Rigid-lid option, fwb correction is useless, but valid'
 #endif