Changeset 1403 for LMDZ4/trunk/libf/phylmd/aaam_bud.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/aaam_bud.F
r1279 r1403 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 subroutine aaam_bud (iam,nlon,nlev,rjour,rsec, … … 117 117 REAL BLSU(801,401),BLSV(801,401) 118 118 REAL ZLON(801),ZLAT(401) 119 120 CHARACTER (LEN=20) :: modname='aaam_bud' 121 CHARACTER (LEN=80) :: abort_message 122 123 119 124 C 120 125 C PUT AAM QUANTITIES AT ZERO: 121 126 C 122 127 if(iim+1.gt.801.or.jjm+1.gt.401)then 123 print *,'Pb de dimension dans aaam_bud'124 stop128 abort_message = 'Pb de dimension dans aaam_bud' 129 CALL abort_gcm (modname,abort_message,1) 125 130 endif 126 131 … … 128 133 hadley=1.e18 129 134 hadday=1.e18*24.*3600. 130 dlat=xpi/ float(jjm)131 dlon=2.*xpi/ float(iim)135 dlat=xpi/REAL(jjm) 136 dlon=2.*xpi/REAL(iim) 132 137 133 138 do iax=1,3
Note: See TracChangeset
for help on using the changeset viewer.