Changeset 5453 for LMDZ6/branches/contrails/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Dec 23, 2024, 8:19:39 PM (37 hours ago)

Author:

aborella

Message:

Added water emissions and IO routines for contrails.
Work to be done: contrails initial cross section and radiative transfer

File:

• LMDZ6/branches/contrails/libf/phylmd/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ6/branches/contrails/libf/phylmd/phys_local_var_mod.F90

@@ -665 +665 @@
 
 !-- LSCP - aviation and contrails variables
+      REAL, SAVE, ALLOCATABLE :: d_q_avi(:,:)
+      !$OMP THREADPRIVATE(d_q_avi)
       REAL, SAVE, ALLOCATABLE :: rcont_seri(:,:), d_rcont_dyn(:,:)
       !$OMP THREADPRIVATE(rcont_seri, d_rcont_dyn)
@@ -1215 +1217 @@
 
 !-- LSCP - aviation and contrails variables
+      ALLOCATE(d_q_avi(klon,klev))
       ALLOCATE(rcont_seri(klon,klev), d_rcont_dyn(klon,klev))
       ALLOCATE(flight_dist(klon,klev), flight_h2o(klon,klev))
@@ -1621 +1624 @@
 
 !-- LSCP - aviation and contrails variables
-      DEALLOCATE(rcont_seri, d_rcont_dyn, flight_dist, flight_h2o)
+      DEALLOCATE(d_q_avi, rcont_seri, d_rcont_dyn, flight_dist, flight_h2o)
       DEALLOCATE(Tcritcont, qcritcont, potcontfraP, potcontfraNP)
       DEALLOCATE(dcf_avi, dqi_avi, dqvc_avi)