- Timestamp:
- Jan 20, 2010, 3:27:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_flux2.F90
r1146 r1299 1 ! 2 ! $Id$ 3 ! 1 4 SUBROUTINE thermcell_flux2(ngrid,klev,ptimestep,masse, & 2 5 & lalim,lmax,alim_star, & … … 47 50 save fomass_max,alphamax 48 51 52 character (len=20) :: modname='thermcell_flux2' 53 character (len=80) :: abort_message 54 49 55 fomass_max=0.5 50 56 alphamax=0.7 … … 88 94 print*,'alim_star(ig,l)',alim_star(ig,l) 89 95 print*,'detr_star(ig,l)',detr_star(ig,l) 90 ! stop91 96 endif 92 97 else … … 96 101 print*,'alim_star(ig,l)',alim_star(ig,l) 97 102 print*,'detr_star(ig,l)',detr_star(ig,l) 98 stop 103 abort_message = '' 104 CALL abort_gcm (modname,abort_message,1) 99 105 endif 100 106 endif … … 256 262 if (entr(ig,l)<0.) then 257 263 print*,'N1 ig,l,entr',ig,l,entr(ig,l) 258 stop 'entr negatif' 264 abort_message = 'entr negatif' 265 CALL abort_gcm (modname,abort_message,1) 259 266 endif 260 267 if (detr(ig,l).gt.fm(ig,l)) then … … 285 292 print*,'entr(ig,l)',entr(ig,l) 286 293 print*,'fm(ig,l)',fm(ig,l) 287 stop 'probleme dans thermcell flux' 294 abort_message = 'probleme dans thermcell flux' 295 CALL abort_gcm (modname,abort_message,1) 288 296 endif 289 297 enddo … … 312 320 print*,'detr(ig,l)',detr(ig,l) 313 321 print*,'fm(ig,l)',fm(ig,l) 314 stop 'probleme dans thermcell flux' 322 abort_message = 'probleme dans thermcell flux' 323 CALL abort_gcm (modname,abort_message,1) 315 324 endif 316 325 enddo … … 413 422 print*,'fm(ig,l+1)',fm(ig,l+1) 414 423 print*,'fm(ig,l)',fm(ig,l) 415 stop 'probleme dans thermcell_flux' 424 abort_message = 'probleme dans thermcell_flux' 425 CALL abort_gcm (modname,abort_message,1) 416 426 endif 417 427 entr(ig,l+1)=entr(ig,l+1)-ddd
Note: See TracChangeset
for help on using the changeset viewer.