Changeset 1051 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2008-06-03T15:17:23+02:00 (16 years ago)

Author:

ctlod

Message:

trunk: remove useless sea-ice/ocean velocities as arguments of CALL sequences since they are not used in CLIO bulk, see ticket: #185

File:

• trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -147 +147 @@
          SELECT CASE( kblk )
          CASE( 3 )           ! CLIO bulk formulation
-            CALL blk_ice_clio( zsist , ui_ice , vi_ice   , alb_ice_cs , alb_ice_os ,             &
+            CALL blk_ice_clio( zsist , alb_ice_cs , alb_ice_os ,                                 &
                &                               utaui_ice , vtaui_ice  , zqns_ice   , zqsr_ice,   &
                &                               zqla_ice  , zdqns_ice  , zdqla_ice  ,             &