Changeset 840 for branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcice_lim.F90

Timestamp:

2008-03-11T14:51:35+01:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC : add the good interface for CLIO bulk under the new surface module

File:

• branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (1 diff)

branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -125 +125 @@
          SELECT CASE( kblk )
          CASE( 3 )           ! CLIO bulk formulation
-            CALL blk_ice_clio()
+            CALL blk_ice_clio( sist     , ui_ice   , vi_ice   , alb_ice_cs, alb_ice_os,            &
+               &                                     utaui_ice, vtaui_ice , qns_ice   , qsr_ice,   &
+               &                                     qla_ice  , dqns_ice  , dqla_ice  ,            &
+               &                                     tprecip  , sprecip   ,                        &
+               &                                     fr1_i0   , fr2_i0    , 'B'  )
          CASE( 4 )           ! CORE bulk formulation
             CALL blk_ice_core( sist     , ui_ice   , vi_ice   , alb_ice_cs,                      &