- 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_main.F90
r1294 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE thermcell_main(itap,ngrid,nlay,ptimestep & … … 170 170 character*2 str2 171 171 character*10 str10 172 173 character (len=20) :: modname='thermcell_main' 174 character (len=80) :: abort_message 172 175 173 176 EXTERNAL SCOPY … … 466 469 ! Test valable seulement en 1D mais pas genant 467 470 if (.not. (f0(1).ge.0.) ) then 468 stop'Dans thermcell_main' 471 abort_message = '.not. (f0(1).ge.0.)' 472 CALL abort_gcm (modname,abort_message,1) 469 473 endif 470 474 … … 781 785 if (prt_level.ge.1) print*,'thermcell_main FIN OK' 782 786 783 ! if(icount.eq.501) stop'au pas 301 dans thermcell_main'784 787 return 785 788 end … … 817 820 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) 818 821 enddo 819 ! stop820 822 endif 821 823 enddo
Note: See TracChangeset
for help on using the changeset viewer.