Changeset 1269 for LMDZ4

Timestamp:

Nov 24, 2009, 8:31:50 AM (15 years ago)

Author:

Ehouarn Millour

Message:

Minor fix: one should not use FLOAT() if arguments are real. (xlf compiler treats this as an error and fails to compile).

EM

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/readaerosol_interp.F90 (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/readaerosol_interp.F90

@@ -347 +347 @@
         DO i=1,klon 
            tmp1(i,k) = &
-                var_year(i,k,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
+                var_year(i,k,im2,id_aero) - (jDay-day2)/(day1-day2) * &
                 (var_year(i,k,im2,id_aero) - var_year(i,k,im,id_aero))
            
            tmp2(i,k) = &
-                pi_var_year(i,k,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
+                pi_var_year(i,k,im2,id_aero) - (jDay-day2)/(day1-day2) * &
                 (pi_var_year(i,k,im2,id_aero) - pi_var_year(i,k,im,id_aero))
         END DO
@@ -359 +359 @@
      DO i=1,klon 
         psurf_day(i) = &
-             psurf_year(i,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
+             psurf_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
              (psurf_year(i,im2,id_aero) - psurf_year(i,im,id_aero))
         
         pi_psurf_day(i) = &
-             pi_psurf_year(i,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
+             pi_psurf_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
              (pi_psurf_year(i,im2,id_aero) - pi_psurf_year(i,im,id_aero))
      END DO
@@ -370 +370 @@
      DO i=1,klon 
         load_src(i) = &
-             load_year(i,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
+             load_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
              (load_year(i,im2,id_aero) - load_year(i,im,id_aero))
         
         pi_load_src(i) = &
-             pi_load_year(i,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
+             pi_load_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
              (pi_load_year(i,im2,id_aero) - pi_load_year(i,im,id_aero))
      END DO