Ignore:
Timestamp:
Feb 19, 2026, 9:22:06 PM (2 weeks ago)
Author:
mturbet
Message:

minor renaming commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.GENERIC/libf/phygeneric/aerosol_radius.F90

    r4077 r4079  
    190190
    191191!==================================================================
    192    subroutine h2o_reffrad(ngrid,nlayer,pq,pt,reffrad,nueffrad)
    193 !==================================================================
    194 !     Purpose
    195 !     -------
    196 !     Compute the effective radii of liquid and icy water particles
     192   subroutine aerosol_radius_h2o_liquid_ice_mixture(ngrid,nlayer,pq,pt,reffrad,nueffrad)
     193!==================================================================
     194!     Purpose
     195!     -------
     196!     Compute the effective radii of the mixture of liquid and icy water particles.
    197197!
    198198!     Authors
     
    246246      nueffrad(1:ngrid,1:nlayer)=nueff_iaero_h2o
    247247
    248    end subroutine h2o_reffrad
    249 !==================================================================
    250 
    251 
    252 !==================================================================
    253    subroutine h2o_cloudrad(ngrid,nlayer,pql,reffliq,reffice)
    254 !==================================================================
    255 !     Purpose
    256 !     -------
    257 !     Compute the effective radii of liquid and icy water particles
     248   end subroutine aerosol_radius_h2o_liquid_ice_mixture
     249!==================================================================
     250
     251
     252!==================================================================
     253   subroutine aerosol_radius_h2o_liquid_ice_separate(ngrid,nlayer,pql,reffliq,reffice)
     254!==================================================================
     255!     Purpose
     256!     -------
     257!     Compute the effective radii of liquid and icy water particles independently.
    258258!
    259259!     Authors
     
    290290      endif
    291291
    292    end subroutine h2o_cloudrad
     292   end subroutine aerosol_radius_h2o_liquid_ice_separate
    293293!==================================================================
    294294
Note: See TracChangeset for help on using the changeset viewer.