Ignore:
Timestamp:
Jul 24, 2024, 1:17:08 PM (6 months ago)
Author:
abarral
Message:

Rename modules in misc from *_mod > lmdz_*
Put cbrt.f90, ch*.f90, pch*.f90 in new lmdz_libmath_pch.f90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/StratAer/sulfate_aer_mod.F90

    r5105 r5113  
    773773!     and Noppel et al. (1990)
    774774
    775       implicit none
     775      IMPLICIT NONE
    776776      real, intent(in) :: T
    777777      real, parameter ::      &
    … …  
    792792!     equilibrium H2SO4 number density over pure H2SO4 (molec/cm3)
    793793
    794       implicit none
     794      IMPLICIT NONE
    795795      real, intent(in) :: T
    796796      real :: presat
    … …  
    811811!     equilibrium H2O pressure over pure liquid water (Pa)
    812812
    813       implicit none
     813      IMPLICIT NONE
    814814      real, intent(in) :: T
    815815
    … …  
    841841!---->Vehkamaeki et al. (2002)
    842842
    843       implicit none
     843      IMPLICIT NONE
    844844      real, intent(in) :: T, so4mfrac
    845845      real, parameter :: &
    … …  
    891891!---->Vehkamaeki et al. (2002)
    892892
    893       implicit none
     893      IMPLICIT NONE
    894894      real,intent(in) :: T, so4frac
    895895      real :: a,b,so4mfrac,so4m2,so4m3,so4m4,so4m5,so4sig
    … …  
    941941!                     = h2so4 mass fraction*100.
    942942
    943       implicit none
     943      IMPLICIT NONE
    944944      real, intent(in) :: pph2o, T
    945945     
    … …  
    10041004!     equilibrium h2so4 number density over H2SO4/H2O solution (molec/cm3)
    10051005
    1006       implicit none
     1006      IMPLICIT NONE
    10071007      real, intent(in) :: T, xa       ! T(K)  xa(H2SO4 mass fraction)
    10081008     
    … …  
    10261026!     partial molar volume of h2so4 in h2so4/h2o solution (cm3/mole)
    10271027
    1028       implicit none
     1028      IMPLICIT NONE
    10291029      real, intent(in) :: T, ws
    10301030      real, dimension(22),parameter :: x=(/  &
    … …  
    10491049!     molar volume of pure h2o (cm3/mole)
    10501050
    1051        implicit none
     1051       IMPLICIT NONE
    10521052       real, intent(in) :: T
    10531053       real, parameter :: x1=2.393284E-02,x2=-4.359335E-05,x3=7.961181E-08
Note: See TracChangeset for help on using the changeset viewer.