Changeset 2701 for trunk/LMDZ.GENERIC/libf/phystd/evap_generic.F90

Timestamp:

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

Author:

aslmd

Message:

rename largescale_generic and genericcommon_h

File:

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

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

@@ -1 +1 @@
 subroutine evap_generic(ngrid,nlayer,nq,dtime,pt,pq,pdq,pdt,igcm_generic_vap, &
                         igcm_generic_ice,dqevap,dtevap,qevap,tevap)
-    Use genericcommon_h
+    Use generic_cloud_common_h
     Use tracer_h
     implicit none 
@@ -38 +38 @@
 
     !   Evaporate all the ice from the tracer
-    zlvdcp = RLVTT/cpp ! RLVTT is the latent heat of vaporization (comes from genericcommon_h attention)
+    zlvdcp = RLVTT/cpp ! RLVTT is the latent heat of vaporization (comes from generic_cloud_common_h attention)
  
     DO l=1,nlayer