Changeset 4639 for LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

Timestamp:

Jul 24, 2023, 4:46:18 PM (15 months ago)

Author:

evignon

Message:

modification de Lea pour inclure une dependance de la phase a la temperature du sommet du nuage

File:

• LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/phys_local_var_mod.F90

@@ -599 +599 @@
       REAL, ALLOCATABLE, SAVE, DIMENSION(:,:) :: distcltop
 !$OMP THREADPRIVATE(distcltop)
+      REAL, SAVE, ALLOCATABLE :: temp_cltop(:,:) 
+!$OMP THREADPRIVATE(temp_cltop)
 
 ! variables de sorties MM
@@ -1090 +1092 @@
       pfraclr(:,:)=0. ; pfracld(:,:)=0. ! because not always defined
       ALLOCATE(distcltop(klon,klev))
+      ALLOCATE(temp_cltop(klon,klev))
 
       ALLOCATE (zxsnow(klon),snowhgt(klon),qsnow(klon),to_ice(klon))
@@ -1464 +1467 @@
       DEALLOCATE(pfraclr,pfracld)
       DEALLOCATE(distcltop)
+      DEALLOCATE(temp_cltop)
       DEALLOCATE (zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic)
 #ifdef ISO