Changeset 892


Ignore:
Timestamp:
2008-04-21T14:14:58+02:00 (13 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:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/albedo.F90

    r888 r892  
    3333   !!* namelist namalb 
    3434   REAL(wp) ::   & 
    35       cgren  = 0.06  ,     &   !  correction of the snow or ice albedo to take into account 
    36       !                        !  effects of cloudiness (Grenfell & Perovich, 1984) 
     35      cgren  = 0.06  ,     &   !  cloudiness effect on snow or ice albedo (Grenfell & Perovich, 1984) 
    3736#if defined key_lim3 
    3837      albice = 0.53  ,     &   !  albedo of melting ice in the arctic and antarctic (Shine & Hendersson-Sellers) 
  • trunk/NEMO/OPA_SRC/SBC/fldread.F90

    r888 r892  
    9696               sd(jf)%nyear = nyear 
    9797            CASE( 1 )    
    98                WRITE(sd(jf)%clname, '(a,  "_0000.nc")' ) TRIM( sd(jf)%clrootname ) 
     98               WRITE(sd(jf)%clname, '(a,  ".nc")' ) TRIM( sd(jf)%clrootname ) 
    9999               sd(jf)%nyear = 0000 
    100100            END SELECT 
  • trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r888 r892  
    3333   USE par_ice 
    3434   USE ice 
     35   USE ice_oce         ! For ice surface temperature 
    3536#elif defined key_lim2 
    3637   USE par_ice_2 
     
    192193      ! 
    193194      CALL fld_read( kt, nn_fsbc, sf )                ! input fields provided at the current time-step 
     195      ! 
     196#if defined key_lim3       
     197      tatm_ice(:,:) = sf(jp_tair)%fnow(:,:)     !RB ugly patch 
     198#endif 
    194199      ! 
    195200      IF(lwp .AND. nitend-nit000 <= 100 ) THEN 
Note: See TracChangeset for help on using the changeset viewer.