Index: trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90
===================================================================
--- trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90	(revision 961)
+++ trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90	(revision 962)
@@ -676,11 +676,12 @@
 
          else                          ! during the night, fluxes = 0
-            nfluxtopv       = 0.0
-            nfluxoutv_nu(:) = 0.0
-            nfluxgndv_nu(:) = 0.0
+            nfluxtopv       = 0.0d0
+	    fluxtopvdn      = 0.0d0
+            nfluxoutv_nu(:) = 0.0d0
+            nfluxgndv_nu(:) = 0.0d0
             do l=1,L_NLAYRAD
-               fmnetv(l)=0.0
-               fluxupv(l)=0.0
-               fluxdnv(l)=0.0
+               fmnetv(l)=0.0d0
+               fluxupv(l)=0.0d0
+               fluxdnv(l)=0.0d0
             end do
          end if