Changeset 1269 for LMDZ4/branches


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/readaerosol_interp.F90

    r1265 r1269  
    347347        DO i=1,klon
    348348           tmp1(i,k) = &
    349                 var_year(i,k,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
     349                var_year(i,k,im2,id_aero) - (jDay-day2)/(day1-day2) * &
    350350                (var_year(i,k,im2,id_aero) - var_year(i,k,im,id_aero))
    351351           
    352352           tmp2(i,k) = &
    353                 pi_var_year(i,k,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
     353                pi_var_year(i,k,im2,id_aero) - (jDay-day2)/(day1-day2) * &
    354354                (pi_var_year(i,k,im2,id_aero) - pi_var_year(i,k,im,id_aero))
    355355        END DO
     
    359359     DO i=1,klon
    360360        psurf_day(i) = &
    361              psurf_year(i,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
     361             psurf_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
    362362             (psurf_year(i,im2,id_aero) - psurf_year(i,im,id_aero))
    363363       
    364364        pi_psurf_day(i) = &
    365              pi_psurf_year(i,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
     365             pi_psurf_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
    366366             (pi_psurf_year(i,im2,id_aero) - pi_psurf_year(i,im,id_aero))
    367367     END DO
     
    370370     DO i=1,klon
    371371        load_src(i) = &
    372              load_year(i,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
     372             load_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
    373373             (load_year(i,im2,id_aero) - load_year(i,im,id_aero))
    374374       
    375375        pi_load_src(i) = &
    376              pi_load_year(i,im2,id_aero) - FLOAT(jDay-day2)/FLOAT(day1-day2) * &
     376             pi_load_year(i,im2,id_aero) - (jDay-day2)/(day1-day2) * &
    377377             (pi_load_year(i,im2,id_aero) - pi_load_year(i,im,id_aero))
    378378     END DO
Note: See TracChangeset for help on using the changeset viewer.