- Timestamp:
- Jun 29, 2018, 12:31:11 PM (6 years ago)
- Location:
- LMDZ6/branches/DYNAMICO-conv
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv
- Property svn:mergeinfo changed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/cvltr_noscav.F90
r2320 r3356 39 39 INTEGER :: i,k,j 40 40 REAL :: pdtimeRG 41 REAL :: smallest_mp 41 42 real conserv 42 43 real smfd … … 47 48 ! calcul des tendances liees au downdraft 48 49 ! ========================================= 50 ! 51 smallest_mp = tiny(mp(1,1)) 49 52 !cdir collapse 50 53 qfeed(:,it) = 0. … … 85 88 DO j=k-1,1,-1 86 89 DO i=1,klon 87 if(mp(i,j+1).ne.0) then 88 zmd(i,j,k)=zmd(i,j+1,k)*min(1.,mp(i,j)/mp(i,j+1)) 89 ENDif 90 !! if(mp(i,j+1).ne.0) then 91 !! zmd(i,j,k)=zmd(i,j+1,k)*min(1.,mp(i,j)/mp(i,j+1)) 92 !! ENDif 93 zmd(i,j,k)=zmd(i,j+1,k)*mp(i,j)/max(mp(i,j),mp(i,j+1),smallest_mp) 90 94 END DO 91 95 END DO
Note: See TracChangeset
for help on using the changeset viewer.