Ignore:
Timestamp:
Nov 27, 2016, 1:25:13 PM (8 years ago)
Author:
aslmd
Message:

compiler complain about type mismatch (double vs. real)

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/improvedCO2clouds.F

    r1617 r1632  
    148148      SAVE sigma_iceco2
    149149
    150 
     150      DOUBLE PRECISION Niceco2,Qccnco2,Nccnco2
    151151     
    152152c----------------------------------     
    … …  
    525525              write(*,*) "Riceco2 before growth = ",riceco2(ig,l)
    526526
    527               call updaterice_microCO2(zq(ig,l,igcm_co2_ice),
    528      &             zq(ig,l,igcm_ccnco2_mass),zq(ig,l,igcm_ccnco2_number)
    529      &             ,tauscaling(ig),riceco2(ig,l),rhocloudco2(ig,l))
     527              !! Niceco2,Qccnco2,Nccnco2
     528              Niceco2 = zq(ig,l,igcm_co2_ice)
     529              Qccnco2 = zq(ig,l,igcm_ccnco2_mass)
     530              Nccnco2 = zq(ig,l,igcm_ccnco2_number)
     531              call updaterice_microCO2(Niceco2,Qccnco2,Nccnco2,
     532     &             tauscaling(ig),riceco2(ig,l),rhocloudco2(ig,l))
    530533              write(*,*) "Riceco2 update before growth = ",riceco2(ig,l)
    531534
    … …  
    572575     &             *rdust(ig,l) )**(1.0/3.0)
    573576              write(*,*) "new riceco2 = ",riceco2(ig,l)
    574                
    575               call updaterice_microCO2(zq(ig,l,igcm_co2_ice),
    576      &             zq(ig,l,igcm_ccnco2_mass),zq(ig,l,igcm_ccnco2_number)
    577      &            ,tauscaling(ig),riceco2(ig,l),rhocloudco2(ig,l))
     577               
     578              !! Niceco2,Qccnco2,Nccnco2
     579              Niceco2 = zq(ig,l,igcm_co2_ice)
     580              Qccnco2 = zq(ig,l,igcm_ccnco2_mass)
     581              Nccnco2 = zq(ig,l,igcm_ccnco2_number)
     582              call updaterice_microCO2(Niceco2,Qccnco2,Nccnco2,
     583     &             tauscaling(ig),riceco2(ig,l),rhocloudco2(ig,l))
    578584              write(*,*) "new riceco2 updaterad= ",riceco2(ig,l)
    579585

  • trunk/LMDZ.MARS/libf/phymars/updaterad.F90

    r1629 r1632  
    110110!By CL and JA 09/16
    111111
    112 real, intent(in)  :: qice,qccn,nccn
     112DOUBLE PRECISION, intent(in)  :: qice,qccn,nccn
    113113real, intent(in)  :: coeff         ! this coeff is tauscaling if microphy = T (possibly ccn_factor^-1 otherwise)
    114114real, intent(out) :: rhocloudco2 ! rhocloud is needed for sedimentation and is also a good diagnostic variable
Note: See TracChangeset for help on using the changeset viewer.