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

Timestamp:

2009-01-14T19:35:02+01:00 (15 years ago)

Author:

rblod

Message:

Light bug in blk_ice, see ticket #289

File:

• trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -21 +21 @@
    USE lib_mpp
    USE ice_2
+   USE par_ice_2
    USE iceini_2
    USE ice_oce         ! ice variables
@@ -154 +155 @@
                &                      zqla_ice  , zdqns_ice  , zdqla_ice ,             &
                &                      tprecip   , sprecip    ,                         &
-               &                      fr1_i0    , fr2_i0     , cl_grid  )
+               &                      fr1_i0    , fr2_i0     , cl_grid, jpl  )
 
          CASE( 4 )           ! CORE bulk formulation
@@ -161 +162 @@
                &                      zqla_ice  , zdqns_ice  , zdqla_ice ,             &
                &                      tprecip   , sprecip    ,                         &
-               &                      fr1_i0    , fr2_i0     , cl_grid  )
+               &                      fr1_i0    , fr2_i0     , cl_grid, jpl  )
          CASE( 5 )           ! Coupled formulation : atmosphere-ice stress only (fluxes provided after ice dynamics)
             CALL sbc_cpl_ice_tau( utaui_ice , vtaui_ice )