Changeset 892 for trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

Timestamp:

2008-04-21T14:14:58+02:00 (16 years ago)

Author:

rblod

Message:

Correct light bugs after the introduction of the new surface module, see ticket #113

File:

• trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -33 +33 @@
    USE par_ice
    USE ice
+   USE ice_oce         ! For ice surface temperature
 #elif defined key_lim2
    USE par_ice_2
@@ -192 +193 @@
       !
       CALL fld_read( kt, nn_fsbc, sf )                ! input fields provided at the current time-step
+      !
+#if defined key_lim3      
+      tatm_ice(:,:) = sf(jp_tair)%fnow(:,:)     !RB ugly patch
+#endif
       !
       IF(lwp .AND. nitend-nit000 <= 100 ) THEN