Changeset 367 for trunk/NEMO/OPA_SRC/OBC/obcvol.F90

Timestamp:

2005-12-28T10:25:10+01:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_035 : CT : OBCs adapted to the new surface pressure gradient algorithms

File:

• trunk/NEMO/OPA_SRC/OBC/obcvol.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/OBC/obcvol.F90

@@ -4 +4 @@
    !! Ocean dynamic :  Volume constraint when OBC and Free surface are used
    !!=================================================================================
-#if   defined key_obc   &&   defined key_dynspg_fsc
+#if   defined key_obc   &&   ! defined key_dynspg_rl
    !!---------------------------------------------------------------------------------
    !!   'key_obc'               and                           open boundary conditions
-   !!   'key_dynspg_fsc'                                  constant volume free surface
+   !!   'key_dynspg_flt'                                  constant volume free surface
    !!---------------------------------------------------------------------------------
    !! * Modules used
@@ -22 +22 @@
 
    !! * Accessibility
-   PUBLIC obc_vol        ! routine called by dynspg_fsc.h90
+   PUBLIC obc_vol        ! routine called by dynspg_flt
 
    !! * Substitutions
@@ -40 +40 @@
       !!
       !! ** Purpose : 
-      !!      This routine is called in dynspg_fsc to control 
+      !!      This routine is called in dynspg_flt to control 
       !!      the volume of the system. A correction velocity is calculated
       !!      to correct the total transport through the OBC.