Changeset 3411 for trunk/LMDZ.PLUTO/libf/phypluto

Timestamp:

Aug 20, 2024, 12:12:41 PM (3 months ago)

Author:

afalco

Message:

Pluto PCM: Fixed some issue with no gcm.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 (modified) (2 diffs)

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

@@ -1703 +1703 @@
       ! Surface pressure.
       ps(1:ngrid) = pplev(1:ngrid,1) + pdpsrf(1:ngrid)*ptimestep
+      call globalaverage2d(ngrid,ps,globave)
 
       ! pressure density !pluto specific
@@ -2321 +2322 @@
                               2,zdqssed(:,igcm_ch4_gas))
              endif
-             if (metcloud) then
+             if (metcloud.and.(.not.fast)) then
                call writediagfi(ngrid,"zdtch4cloud","ch4 cloud","T s-1",&
                            3,zdtch4cloud)