Changeset 892 for trunk/NEMO/OPA_SRC

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

Location:

trunk/NEMO/OPA_SRC/SBC

Files:

• albedo.F90 (modified) (1 diff)
• fldread.F90 (modified) (1 diff)
• sbcblk_clio.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/albedo.F90

@@ -33 +33 @@
    !!* namelist namalb
    REAL(wp) ::   &
-      cgren  = 0.06  ,     &   !  correction of the snow or ice albedo to take into account
-      !                        !  effects of cloudiness (Grenfell & Perovich, 1984)
+      cgren  = 0.06  ,     &   !  cloudiness effect on snow or ice albedo (Grenfell & Perovich, 1984)
 #if defined key_lim3
       albice = 0.53  ,     &   !  albedo of melting ice in the arctic and antarctic (Shine & Hendersson-Sellers)

trunk/NEMO/OPA_SRC/SBC/fldread.F90

@@ -96 +96 @@
                sd(jf)%nyear = nyear
             CASE( 1 )   
-               WRITE(sd(jf)%clname, '(a,  "_0000.nc")' ) TRIM( sd(jf)%clrootname )
+               WRITE(sd(jf)%clname, '(a,  ".nc")' ) TRIM( sd(jf)%clrootname )
                sd(jf)%nyear = 0000
             END SELECT

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