Changeset 1403 for LMDZ4/trunk/libf/phylmd/readaerosol_interp.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_interp.F90
r1337 r1403 127 127 IF(mpi_rank == 0 .AND. debug)then 128 128 ! 0.02 is about 0.5/24, namly less than half an hour 129 OLDNEWDAY = (r_day- FLOAT(iday) < 0.02)129 OLDNEWDAY = (r_day-REAL(iday) < 0.02) 130 130 ! Once per day, update aerosol fields 131 131 lmt_pas = NINT(86400./pdtphys) 132 PRINT*,'r_day- FLOAT(iday) =',r_day-FLOAT(iday)132 PRINT*,'r_day-REAL(iday) =',r_day-REAL(iday) 133 133 PRINT*,'itap =',itap 134 134 PRINT*,'pdtphys =',pdtphys … … 234 234 ! 235 235 DO i = 2, 13 236 month_len(i) = float(ioget_mon_len(year_cur, i-1))236 month_len(i) = REAL(ioget_mon_len(year_cur, i-1)) 237 237 CALL ymds2ju(year_cur, i-1, 1, 0.0, month_start(i)) 238 238 ENDDO 239 month_len(1) = float(ioget_mon_len(year_cur-1, 12))239 month_len(1) = REAL(ioget_mon_len(year_cur-1, 12)) 240 240 CALL ymds2ju(year_cur-1, 12, 1, 0.0, month_start(1)) 241 month_len(14) = float(ioget_mon_len(year_cur+1, 1))241 month_len(14) = REAL(ioget_mon_len(year_cur+1, 1)) 242 242 CALL ymds2ju(year_cur+1, 1, 1, 0.0, month_start(14)) 243 243 month_mid(:) = month_start (:) + month_len(:)/2.
Note: See TracChangeset
for help on using the changeset viewer.