- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_plume.F90
r1294 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE thermcell_plume(itap,ngrid,klev,ptimestep,ztv,zthl,po,zl,rhobarz, & … … 436 436 if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then 437 437 ! stop'On tombe sur le cas particulier de thermcell_dry' 438 print*,'On tombe sur le cas particulier de thermcell_plume' 438 write(lunout,*) & 439 & 'On tombe sur le cas particulier de thermcell_plume' 439 440 zw2(ig,l+1)=0. 440 441 linter(ig)=l+1
Note: See TracChangeset
for help on using the changeset viewer.