Index: /trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90
===================================================================
--- /trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90	(revision 3376)
+++ /trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90	(revision 3377)
@@ -625,5 +625,5 @@
          savedeclin=0.
          saveday=pday
-         !adjust=0. ! albedo adjustment for convergeps
+         adjust=0. ! albedo adjustment for convergeps
 
 !        Initialize soil.
@@ -864,4 +864,5 @@
       ! Compute local stellar zenith angles
       ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+      fract = 0
       if (diurnal) then
          ztim1=SIN(declin)
Index: /trunk/LMDZ.PLUTO/libf/phypluto/suaer_corrk.F90
===================================================================
--- /trunk/LMDZ.PLUTO/libf/phypluto/suaer_corrk.F90	(revision 3376)
+++ /trunk/LMDZ.PLUTO/libf/phypluto/suaer_corrk.F90	(revision 3377)
@@ -334,12 +334,12 @@
 
 !     1.5 If Francois' data, convert wvl to metres
-       if(iaer.eq.iaero_haze)then
-         if(forgetit)then
-         !   print*,'please sort out forgetit for naerkind>1'
-            do iwvl=1,nwvl
-               wvl(iwvl)=wvl(iwvl)*1.e-6
-            enddo
-         endif
-      endif
+      !  if(iaer.eq.iaero_haze)then
+      !    if(forgetit)then
+      !    !   print*,'please sort out forgetit for naerkind>1'
+      !       do iwvl=1,nwvl
+      !          wvl(iwvl)=wvl(iwvl)*1.e-6
+      !       enddo
+      !    endif
+      ! endif
 
       endif ! of if (is_master)
Index: /trunk/LMDZ.PLUTO/libf/phypluto/surfprop.F90
===================================================================
--- /trunk/LMDZ.PLUTO/libf/phypluto/surfprop.F90	(revision 3376)
+++ /trunk/LMDZ.PLUTO/libf/phypluto/surfprop.F90	(revision 3377)
@@ -134,4 +134,5 @@
          bb=fdch4_finalb
       endif
+      emis(:) = 1 !default to 1
 
       ! Loop on all points