Changeset 3065 for branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2011-11-09T14:02:11+01:00 (13 years ago)

Author:

rfurner

Message:

ticket #885 adding changes from branches/2011/dev_r2802_UKMO8_sbccpl between r2802 and r3056

File:

• branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (1 diff)

branches/2011/dev_UKM0_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -202 +202 @@
 #if defined key_coupled
          !                                             ! Ice surface fluxes in coupled mode 
-         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,   &
+         IF( ksbc == 5 )   THEN
+            a_i(:,:,1)=fr_i
+            CALL sbc_cpl_ice_flx( frld,                                              &
             !                                optional arguments, used only in 'mixed oce-ice' case
             &                                             palbi = zalb_ice_cs, psst = sst_m, pist = zsist )
+            sprecip(:,:) = - emp_ice(:,:)   ! Ugly patch, WARNING, in coupled mode, sublimation included in snow (parsub = 0.)
+         ENDIF
 #endif
                            CALL lim_thd_2      ( kt )      ! Ice thermodynamics