Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/readaerosol.F90
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/readaerosol.F90
r1279 r1299 128 128 DO i = 1, klon 129 129 pt_out(i,k,it) = & 130 pt_out(i,k,it) - FLOAT(iyr_in-iyr1)/FLOAT(iyr2-iyr1) * &130 pt_out(i,k,it) - REAL(iyr_in-iyr1)/REAL(iyr2-iyr1) * & 131 131 (pt_out(i,k,it) - pt_2(i,k,it)) 132 132 END DO … … 135 135 DO i = 1, klon 136 136 psurf(i,it) = & 137 psurf(i,it) - FLOAT(iyr_in-iyr1)/FLOAT(iyr2-iyr1) * &137 psurf(i,it) - REAL(iyr_in-iyr1)/REAL(iyr2-iyr1) * & 138 138 (psurf(i,it) - psurf2(i,it)) 139 139 140 140 load(i,it) = & 141 load(i,it) - FLOAT(iyr_in-iyr1)/FLOAT(iyr2-iyr1) * &141 load(i,it) - REAL(iyr_in-iyr1)/REAL(iyr2-iyr1) * & 142 142 (load(i,it) - load2(i,it)) 143 143 END DO … … 493 493 spole = spole + varyear(i,jjm+1,k,imth) 494 494 END DO 495 npole = npole/ FLOAT(iim)496 spole = spole/ FLOAT(iim)495 npole = npole/REAL(iim) 496 spole = spole/REAL(iim) 497 497 varyear(:,1, k,imth) = npole 498 498 varyear(:,jjm+1,k,imth) = spole
Note: See TracChangeset
for help on using the changeset viewer.