Changeset 2056 for LMDZ5/branches/testing/libf/phylmd/thermcell_dry.F90
- Timestamp:
- Jun 11, 2014, 3:46:46 PM (10 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1998,2000-2023,2025-2029,2032,2034,2036-2049,2051-2055
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/thermcell_dry.F90
r1910 r2056 122 122 zw2(ig,l+1)=0. 123 123 lmax(ig)=l 124 ! endif 125 !CR:zmax continu 06/05/12: calcul de linter quand le thermique est stoppe par le detrainement 126 elseif (f_star(ig,l+1).lt.0.) then 127 linter(ig)=(l*(f_star(ig,l+1)-f_star(ig,l)) & 128 & -f_star(ig,l))/(f_star(ig,l+1)-f_star(ig,l)) 129 zw2(ig,l+1)=0. 130 lmax(ig)=l 124 131 endif 125 132 !CRfin 126 133 wa_moy(ig,l+1)=sqrt(zw2(ig,l+1)) 127 134
Note: See TracChangeset
for help on using the changeset viewer.