Changeset 2694 for trunk/LMDZ.GENERIC/libf/phystd/largescale_generic_mod.F90

Timestamp:

Jun 21, 2022, 11:05:32 AM (3 years ago)

Author:

aslmd

Message:

fixed uninitialized variable Lcp in largescale_generic+ typo in index of tendencies after largescale_generic in physiq_mod

File:

• trunk/LMDZ.GENERIC/libf/phystd/largescale_generic_mod.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/largescale_generic_mod.F90

@@ -78 +78 @@
         pdqvaplsc(1:ngrid,1:nlayer)  = 0.0
         pdqliqlsc(1:ngrid,1:nlayer) = 0.0
-        Lcp=RLVTT/cpp
         igcm_generic_vap = -1
         igcm_generic_ice = -1
@@ -93 +92 @@
         call specie_parameters(trim(adjustl(tname_vap(9:len(tname_ice)-4))))
         ! Evaporate generic clouds (all of them)
+        Lcp=RLVTT/cpp !need to be init here, otherwise we don't know RLVTT yet
         call evap_generic(ngrid,nlayer,nq,ptimestep,pt,pq,pdq,pdt,&
                 igcm_generic_vap,igcm_generic_ice, &