- Timestamp:
- Apr 27, 2010, 12:56:22 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/thermcell_main.F90
r1338 r1372 610 610 pcon(ig)=pplay(ig,1)*(zo(ig,1)/zqsat(ig,1))**CHI 611 611 enddo 612 do k=1,nlay 612 !IM do k=1,nlay 613 do k=1,nlay-1 613 614 do ig=1,ngrid 614 615 if ((pcon(ig).le.pplay(ig,k)) & … … 617 618 endif 618 619 enddo 620 enddo 621 !IM 622 do ig=1,ngrid 623 if (pcon(ig).le.pplay(ig,nlay)) then 624 zcon2(ig)=zlay(ig,nlay)-(pcon(ig)-pplay(ig,nlay))/(RG*rho(ig,nlay))/100. 625 abort_message = 'thermcellV0_main: les thermiques vont trop haut ' 626 CALL abort_gcm (modname,abort_message,1) 627 endif 619 628 enddo 620 629 if (prt_level.ge.1) print*,'14b OK convect8'
Note: See TracChangeset
for help on using the changeset viewer.