Changeset 2224 for branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2010-10-12T16:04:22+02:00 (14 years ago)

Author:

rblod

Message:

Correct update from the trunk of DEV_r2106_LOCEAN2010

File:

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

branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -180 +180 @@
          ENDIF
 #if defined key_coupled
-         IF( ksbc == 5    )             CALL sbc_cpl_ice_flx( frld   ,                               &
+         IF( ksbc == 5    )             CALL sbc_cpl_ice_flx( reshape( frld, (/jpi,jpj,1/) ),        &
       &                                                       qns_tot, qns_ice, qsr_tot , qsr_ice,   &
       &                                                       emp_tot, emp_ice, dqns_ice, sprecip,   &