Changeset 3955 for trunk/LMDZ.PLUTO/libf

Timestamp:

Nov 6, 2025, 5:15:18 PM (5 weeks ago)

Author:

tbertrand

Message:

PLUTO PCM:
small cosmetic fixes for preparing a reference (bench) simulation
TB

Location:

trunk/LMDZ.PLUTO/libf/phypluto

Files:

• callcorrk.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/callcorrk.F90

@@ -827 +827 @@
 
       ! 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.

trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

@@ -1593 +1593 @@
          !--------------------------------------------------
          pdqmuchem(:,:,:) = 0.
-         IF (callmufi) THEN
+         IF (callmufi.and.callmuclouds) THEN
             call mugas_prof(ngrid,nlayer,nq,zzlay,zzlev,pplay,pt,pdqmuchem)
          ENDIF