Index: trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90
===================================================================
--- trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90	(revision 3952)
+++ trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90	(revision 3955)
@@ -827,18 +827,18 @@
 
       ! Test for out-of-bounds pressure.
-      if (is_master) then
-         if(plevrad(3).lt.pgasmin)then
-            print*,'Warning: minimum pressure is outside the radiative'
-            print*,'transfer kmatrix bounds, exiting.'
-            print*,'Pressure:', plevrad(3), 'Pa'
-            message="Minimum pressure outside of kmatrix bounds"
-            !call abort_physic(subname,message,1)
-         elseif(plevrad(L_LEVELS).gt.pgasmax)then
-            print*,'Maximum pressure is outside the radiative'
-            print*,'transfer kmatrix bounds, exiting.'
-            message="Minimum pressure outside of kmatrix bounds"
-            call abort_physic(subname,message,1)
-         endif
-      endif
+!      if (is_master) then
+!         if(plevrad(3).lt.pgasmin)then
+!            print*,'Warning: minimum pressure is outside the radiative'
+!            print*,'transfer kmatrix bounds, exiting.'
+!            print*,'Pressure:', plevrad(3), 'Pa'
+!            message="Minimum pressure outside of kmatrix bounds"
+!            !call abort_physic(subname,message,1)
+!         elseif(plevrad(L_LEVELS).gt.pgasmax)then
+!            print*,'Maximum pressure is outside the radiative'
+!            print*,'transfer kmatrix bounds, exiting.'
+!            message="Minimum pressure outside of kmatrix bounds"
+!            call abort_physic(subname,message,1)
+!         endif
+!      endif
 
       ! Test for out-of-bounds temperature.
Index: trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90
===================================================================
--- trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90	(revision 3952)
+++ trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90	(revision 3955)
@@ -1593,5 +1593,5 @@
          !--------------------------------------------------
          pdqmuchem(:,:,:) = 0.
-         IF (callmufi) THEN
+         IF (callmufi.and.callmuclouds) THEN
             call mugas_prof(ngrid,nlayer,nq,zzlay,zzlev,pplay,pt,pdqmuchem)
          ENDIF