Changeset 2722 for trunk/LMDZ.GENERIC/libf/phystd/condensation_generic_mod.F90

Timestamp:

Jun 21, 2022, 11:05:45 AM (2 years ago)

Author:

aslmd

Message:

some modifications for call_ice_vap_generic

File:

• trunk/LMDZ.GENERIC/libf/phystd/condensation_generic_mod.F90 (modified) (3 diffs)

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

@@ -52 +52 @@
 
         ! to call only one time the ice/vap pair of a tracer
-        logical one_call_ice_vap_generic
+        logical call_ice_vap_generic
 
         INTEGER i, k , nn, iq
@@ -97 +97 @@
         ! Let's loop on tracers 
         do iq=1,nq
-                one_call_ice_vap_generic = .false.
 
-                call generic_tracer_index(nq,iq,igcm_generic_vap,igcm_generic_ice,one_call_ice_vap_generic)
+                call generic_tracer_index(nq,iq,igcm_generic_vap,igcm_generic_ice,call_ice_vap_generic)
 
-                if(one_call_ice_vap_generic) then ! to call only one time the ice/vap pair of a tracer
+                if(call_ice_vap_generic) then ! to call only one time the ice/vap pair of a tracer
                         m=constants_mass(iq)
                         delta_vapH=constants_delta_vapH(iq)
@@ -154 +153 @@
                                 pdqvaplsc(1:ngrid,1,igcm_generic_vap) = (qvap_deep - pq(1:ngrid,1,igcm_generic_vap))/tau - pdq(1:ngrid,1,igcm_generic_vap)
                         endif
-                endif !if(one_call_ice_vap_generic)
+                endif !if(call_ice_vap_generic)
         enddo ! iq=1,nq