Changeset 3439 for trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

Timestamp:

Sep 25, 2024, 4:43:32 PM (2 months ago)

Author:

afalco

Message:

Pluto PCM: added some incompatibility checks.
AF

File:

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

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

@@ -376 +376 @@
       REAL zdqflow(ngrid,nq)
 
-      REAL zdteuv(ngrid,nlayer)    ! (K/s)
-      REAL zdtconduc(ngrid,nlayer) ! (K/s)
-      REAL zdumolvis(ngrid,nlayer)
-      REAL zdvmolvis(ngrid,nlayer)
-      real zdqmoldiff(ngrid,nlayer,nq)
-
       ! Haze relatated tendancies
       REAL zdqhaze(ngrid,nlayer,nq)
@@ -2444 +2438 @@
                call writediagfi(ngrid,"zdtch4cloud","ch4 cloud","T s-1",&
                            3,zdtch4cloud)
-             endif
+               call writediagfi(ngrid,"zdqch4cloud","ch4 cloud","T s-1",&
+                           3,zdqch4cloud(1,1,igcm_ch4_gas))
+            endif
 
          endif