Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/cvltr_noscav.F90
- Timestamp:
- Jul 24, 2024, 2:54:37 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/cvltr_noscav.F90
r5101 r5116 88 88 DO j=k-1,1,-1 89 89 DO i=1,klon 90 !! if(mp(i,j+1).ne.0) then90 !! IF(mp(i,j+1).ne.0) THEN 91 91 !! zmd(i,j,k)=zmd(i,j+1,k)*min(1.,mp(i,j)/mp(i,j+1)) 92 92 !! ENDif
Note: See TracChangeset
for help on using the changeset viewer.