Changeset 1403 for LMDZ4/trunk/libf/phylmd/orografi_strato.F
- Timestamp:
- Jul 1, 2010, 11:02:53 AM (14 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/phylmd/orografi_strato.F
r1001 r1403 89 89 REAL pt(klon,klev), pu(klon,klev), pv(klon,klev) 90 90 REAL papmf(klon,klev),papmh(klon,klev+1) 91 CHARACTER (LEN=20) :: modname='orografi_strato' 92 CHARACTER (LEN=80) :: abort_message 91 93 c 92 94 c INITIALIZE OUTPUT VARIABLES … … 1680 1682 logical lifthigh 1681 1683 real zcons1,ztmst 1684 CHARACTER (LEN=20) :: modname='orolift_strato' 1685 CHARACTER (LEN=80) :: abort_message 1686 1682 1687 1683 1688 C----------------------------------------------------------------------- … … 1688 1693 lifthigh=.false. 1689 1694 1690 if(nlon.ne.klon.or.nlev.ne.klev)stop 1695 if(nlon.ne.klon.or.nlev.ne.klev) then 1696 abort_message = 'pb dimension' 1697 CALL abort_gcm (modname,abort_message,1) 1698 ENDIF 1691 1699 zcons1=1./rd 1692 1700 ztmst=ptsphy
Note: See TracChangeset
for help on using the changeset viewer.