Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/orografi.F
- 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/orografi.F
r1279 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE drag_noro (nlon,nlev,dtime,paprs,pplay, … … 1497 1497 * ZDVDT(KLON) 1498 1498 REAL ZHCRIT(KLON,KLEV) 1499 CHARACTER (LEN=20) :: modname='orografi' 1500 CHARACTER (LEN=80) :: abort_message 1499 1501 C----------------------------------------------------------------------- 1500 1502 C … … 1504 1506 LIFTHIGH=.FALSE. 1505 1507 1506 IF(NLON.NE.KLON.OR.NLEV.NE.KLEV)STOP 1508 IF(NLON.NE.KLON.OR.NLEV.NE.KLEV)THEN 1509 abort_message = 'pb dimension' 1510 CALL abort_gcm (modname,abort_message,1) 1511 ENDIF 1507 1512 ZCONS1=1./RD 1508 1513 cym KLEVM1=KLEV-1
Note: See TracChangeset
for help on using the changeset viewer.