Changeset 374 for trunk/NEMO/OPA_SRC/OBC

Timestamp:

2006-01-03T16:04:15+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_015 : CT : - correct the initialization step

• update comments

File:

• trunk/NEMO/OPA_SRC/OBC/obcfla.F90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/OBC/obcfla.F90

@@ -43 +43 @@
       !! ** Purpose :
       !!      Apply Flather's algorithm at open boundaries for the time-splitting
-      !!      free surface case
-      !!
-      !!      This routine is called in dynnxt.F routine and updates ua, va and sshn.
+      !!      free surface case (barotropic variables)
+      !!
+      !!      This routine is called in dynspg_ts.F90 routine 
       !!
       !!      The logical variable lp_obc_east, and/or lp_obc_west, and/or lp_obc_north,
       !!      and/or lp_obc_south allow the user to determine which boundary is an
-      !!      open one (must be done in the param_obc.h90 file).
+      !!      open one (must be done in the obc_par.F90 file).
       !!
       !! ** Reference :
@@ -73 +73 @@
       !!      Apply Flather's algorithm on east OBC velocities ua, va
       !!      Fix sea surface height (sshn_e) on east open boundary
-      !!      The logical lfbceast must be .TRUE.
       !!
       !!  History :
@@ -112 +111 @@
       !!      Apply Flather's algorithm on west OBC velocities ua, va
       !!      Fix sea surface height (sshn_e) on west open boundary
-      !!      The logical lfbcwest must be .TRUE.
       !!
       !!  History :
@@ -148 +146 @@
       !!      Apply Flather's algorithm on north OBC velocities ua, va
       !!      Fix sea surface height (sshn_e) on north open boundary
-      !!      The logical lfbcnorth must be .TRUE.
       !!
       !!  History :
@@ -186 +183 @@
       !!      Apply Flather's algorithm on south OBC velocities ua, va
       !!      Fix sea surface height (sshn_e) on south open boundary
-      !!      The logical lfbcsouth must be .TRUE.
-      !!
-      !!  History :
-      !!   9.0  !  05-12  (V. Garnier) original
-      !!------------------------------------------------------------------------------
-      !! * Local declaration
-      INTEGER ::   ji, jj, jk ! dummy loop indices
-
-      !!------------------------------------------------------------------------------
-      !!  OPA 8.5, LODYC-IPSL (2002)
+      !!
+      !!  History :
+      !!   9.0  !  05-12  (V. Garnier) original
+      !!------------------------------------------------------------------------------
+      !! * Local declaration
+      INTEGER ::   ji, jj, jk ! dummy loop indices
+
       !!------------------------------------------------------------------------------