Changeset 1403 for LMDZ4/trunk/libf/phylmd/readaerosol.F90
- 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/readaerosol.F90
r1321 r1403 137 137 DO i = 1, klon 138 138 pt_out(i,k,it) = & 139 pt_out(i,k,it) - FLOAT(iyr_in-iyr1)/FLOAT(iyr2-iyr1) * &139 pt_out(i,k,it) - REAL(iyr_in-iyr1)/REAL(iyr2-iyr1) * & 140 140 (pt_out(i,k,it) - pt_2(i,k,it)) 141 141 END DO … … 144 144 DO i = 1, klon 145 145 psurf(i,it) = & 146 psurf(i,it) - FLOAT(iyr_in-iyr1)/FLOAT(iyr2-iyr1) * &146 psurf(i,it) - REAL(iyr_in-iyr1)/REAL(iyr2-iyr1) * & 147 147 (psurf(i,it) - psurf2(i,it)) 148 148 149 149 load(i,it) = & 150 load(i,it) - FLOAT(iyr_in-iyr1)/FLOAT(iyr2-iyr1) * &150 load(i,it) - REAL(iyr_in-iyr1)/REAL(iyr2-iyr1) * & 151 151 (load(i,it) - load2(i,it)) 152 152 END DO … … 514 514 spole = spole + varyear(i,jjm+1,k,imth) 515 515 END DO 516 npole = npole/ FLOAT(iim)517 spole = spole/ FLOAT(iim)516 npole = npole/REAL(iim) 517 spole = spole/REAL(iim) 518 518 varyear(:,1, k,imth) = npole 519 519 varyear(:,jjm+1,k,imth) = spole
Note: See TracChangeset
for help on using the changeset viewer.