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

Timestamp:

2010-09-14T18:19:35+02:00 (14 years ago)

Author:

smasson

Message:

minor bugfixes in the coupled interface, see ticket:719

File:

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

trunk/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,   &