Changeset 4146 for trunk/LMDZ.GENERIC/libf/phygeneric/largescale.F90

Timestamp:

Mar 19, 2026, 2:35:46 PM (13 days ago)

Author:

gmilcareck

Message:

Thermodynamics update on LMDZ.GENERIC

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/largescale.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/largescale.F90

@@ -7 +7 @@
           T_h2O_ice_clouds,T_h2O_ice_liq,Psat_water,Lcpdqsat_water
       USE tracer_h
+      use callkeys_mod, only: qvap_deep
       IMPLICIT none
 
@@ -40 +41 @@
 !     Options du programme
       REAL, SAVE :: ratqs   ! determine largeur de la distribution de vapeur
-      REAL, SAVE :: qvap_deep   ! deep mixing ratio of water vapor when simulating bottom less planets
-!$OMP THREADPRIVATE(ratqs, qvap_deep)
+!$OMP THREADPRIVATE(ratqs)
 
 !     Variables locales
@@ -73 +73 @@
          call getin_p("ratqs",ratqs)
          write(*,*) " ratqs = ",ratqs
-
-         write(*,*) "Deep water vapor mixing ratio ? (no effect if negative) "
-         qvap_deep=-1. ! default value
-         call getin_p("qvap_deep",qvap_deep)
-         write(*,*) " qvap_deep = ",qvap_deep
 
          firstcall = .false.