- 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/thermcellV0_main.F90
r1294 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE thermcellV0_main(itap,ngrid,nlay,ptimestep & … … 165 165 character*2 str2 166 166 character*10 str10 167 168 character (len=20) :: modname='thermcellV0_main' 169 character (len=80) :: abort_message 167 170 168 171 EXTERNAL SCOPY … … 484 487 ! Test valable seulement en 1D mais pas genant 485 488 if (.not. (f0(1).ge.0.) ) then 486 stop 'Dans thermcell_main' 489 abort_message = 'Dans thermcell_main f0(1).lt.0 ' 490 CALL abort_gcm (modname,abort_message,1) 487 491 endif 488 492 … … 827 831 write(6,'(i3,7f10.3)') k,pplay(i,k),ztv(i,k),1000*po(i,k),ztva(i,k),1000*zqla(i,k),f_star(i,k),zw2(i,k) 828 832 enddo 829 ! stop830 833 endif 831 834 enddo … … 863 866 864 867 REAL f(ngrid) 868 869 character (len=20) :: modname='thermcellV0_main' 870 character (len=80) :: abort_message 865 871 866 872 do ig=1,ngrid … … 885 891 print*,'zmax_sec',zmax_sec(ig) 886 892 print*,'wmax_sec',wmax_sec(ig) 887 stop 893 abort_message = 'zdenom<1.e-14' 894 CALL abort_gcm (modname,abort_message,1) 888 895 endif 889 896 if ((zmax_sec(ig).gt.1.e-10).and.(iflag_thermals_ed.eq.0)) then … … 1338 1345 ! if(detr_star(ig,l).GT.1.) THEN 1339 1346 ! print*,'th_plumeAFT ig l detr_star f0 1/f0',ig,l,detr_star(ig,l),f0(ig), & 1340 ! & float(1)/f0(ig)1347 ! & REAL(1)/f0(ig) 1341 1348 ! endif 1342 1349 !IM 060508 end … … 1656 1663 1657 1664 if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then 1658 ! stop'On tombe sur le cas particulier de thermcell_dry'1659 1665 print*,'On tombe sur le cas particulier de thermcell_plume' 1660 1666 zw2(ig,l+1)=0. … … 1832 1838 1833 1839 if (zw2(ig,l+1)>0. .and. zw2(ig,l+1).lt.1.e-10) then 1834 ! stop'On tombe sur le cas particulier de thermcell_dry'1835 1840 ! print*,'On tombe sur le cas particulier de thermcell_dry' 1836 1841 zw2(ig,l+1)=0.
Note: See TracChangeset
for help on using the changeset viewer.