Changeset 1479 for trunk/NEMO/LIM_SRC_2

Timestamp:

2009-07-03T15:29:08+02:00 (15 years ago)

Author:

smasson

Message:

correction of a bug introduced in changeset:1474, see ticket:444

File:

• trunk/NEMO/LIM_SRC_2/limsbc_2.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_2/limsbc_2.F90

@@ -284 +284 @@
          tn_ice(:,:,1) = sist(:,:)          ! sea-ice surface temperature       
          ! Computation of snow/ice and ocean albedo
-         CALL albedo_ice( tn_ice(:,:,1), reshape( hicif, (/jpi,jpj,1/) ), reshape( hsnif, (/jpi,jpj,1/) ), zalbp, zalb )
+         CALL albedo_ice( tn_ice, reshape( hicif, (/jpi,jpj,1/) ), reshape( hsnif, (/jpi,jpj,1/) ), zalbp, zalb )
          alb_ice(:,:,1) =  0.5 * ( zalbp(:,:,1) + zalb (:,:,1) )   ! Ice albedo (mean clear and overcast skys)
       ENDIF