Changeset 623 for trunk/NEMO/OPA_SRC/FLO/floblk.F90

Timestamp:

2007-02-26T18:26:08+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_024:RB: Use of ctlopn for all files (except for dimg and coupled part)

File:

• trunk/NEMO/OPA_SRC/FLO/floblk.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/FLO/floblk.F90

@@ -25 +25 @@
    !! * Accessibility
    PUBLIC flo_blk      ! routine called by floats.F90
+
+   !! * Substitutions
+#  include "domzgr_substitute.h90"
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2005) 
@@ -127 +130 @@
             ! for a isobar float zsurfz is put to zero. The vertical velocity will be zero too.
             zsurfz = e1t(iiloc(jfl),ijloc(jfl)) * e2t(iiloc(jfl),ijloc(jfl))
-            zvol   = zsurfz * fse3t(iiloc(jfl),ijloc(jfl),-ikl(jfl)) )
+            zvol   = zsurfz * fse3t(iiloc(jfl),ijloc(jfl),-ikl(jfl))
 
             !