Changeset 2692 for trunk/LMDZ.GENERIC/libf

Timestamp:

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

Author:

aslmd

Message:

fixed update of tendencies for generic tracer

File:

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

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

@@ -1546 +1546 @@
   !   VI.3. Aerosol particles
   ! -------------------------
-         ! Generic condensation and evaporation
-         ! i need the tracers and to check wether it ends with _vap
+         ! Generic tracers condensation and evaporation
          do iq=1,nq
-            ! print*,"starting the generic looping"
-            ! write(*,*)"for iq = ",iq, "is_generic = ",is_generic(iq)
-            ! write(*,*)"noms(iq) = ",noms(iq)
-            ! write(*,*),"noms(iq)(len(noms(iq)-2:)=",noms(iq)(len(noms(iq))-2:)
-            !loop on tracers and check if is_generic and _vap in noms
+            !loop on tracers and check if is_generic and  if "vap" in noms
             if((is_generic(iq)==1) .and. (index(noms(iq),"vap") .ne. 0)) then
                ! call to largescale_generic
@@ -1560 +1555 @@
                                        pt,pq,pdt,pdq,noms(iq),dtlscale_generic, &
                                        dqvaplscale_generic,dqcldlscale_generic)
-               !question sur la tendance de temperature qui sort. On l'ajoute dans une variable temp 
-               ! et apres la fin de la boucle sur les tracers on l'ajouteà la tendance du pas de temps physique ?
-               !temp_dt = temp_dt+dtlscale_generic ?
+               pdt(1:ngrid,1:nlayer) = pdt(1:ngrid,1:nlayer)+dtlscale_generic(1:ngrid,1:nlayer)
                pdq(1:ngrid,1:nlayer,ig) = pdq(1:ngrid,1:nlayer,ig)+dtlscale_generic(1:ngrid,1:nlayer)
                pdq(1:ngrid,1:nlayer,ig+1) = pdq(1:ngrid,1:nlayer,ig+1)+dqcldlscale_generic(1:ngrid,1:nlayer)
@@ -1568 +1561 @@
             endif ! (is_generic(iq)==1 .and. (index(noms(iq),"vap")==1))
          enddo ! iq=1,nq
-         !should I add the pdt = pdt + temp_dt ?
 
          ! Sedimentation.