Changeset 3655 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
Feb 27, 2025, 12:35:31 PM (4 months ago)
Author:
gmilcareck
Message:

Generic PCM:
Water: changing only the name of the 'RV' variable to 'RW'
to avoid conflicts with the future thermodynamics module.
GM

Location:
trunk/LMDZ.GENERIC
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/changelog.txt

    r3654 r3655  
    20122012If you want add another molecule, you just need to add these 2 parameters and the references (please).
    20132013For water, the rayleigh scattering now depends on temperature and pressure.
     2014
     2015== 27/02/2025 == GM
     2016
     2017Water: changing only the name of the 'RV' variable to 'RW'
     2018to avoid conflicts with the future thermodynamics module.

  • trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

    r3562 r3655  
    1818      use ioipsl_getin_p_mod, only: getin_p
    1919      use radinc_h, only : L_NSPECTI,L_NSPECTV,naerkind, corrkdir, banddir
    20       use watercommon_h, only : RLVTT, Psat_water,epsi,su_watercycle, RV, T_h2o_ice_liq
     20      use watercommon_h, only : RLVTT, Psat_water,epsi,su_watercycle, RW, T_h2o_ice_liq
    2121      use generic_cloud_common_h, only : epsi_generic, Psat_generic
    2222      use thermcell_mod, only: init_thermcell_mod
    … …  
    784784!        ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    785785         if (calltherm) then
    786             CALL init_thermcell_mod(g, rcp, r, pi, T_h2o_ice_liq, RV)
     786            CALL init_thermcell_mod(g, rcp, r, pi, T_h2o_ice_liq, RW)
    787787         endif
    788788

  • trunk/LMDZ.GENERIC/libf/phystd/rain.F90

    r2871 r3655  
    33
    44  use ioipsl_getin_p_mod, only: getin_p
    5   use watercommon_h, only: T_h2O_ice_liq,T_h2O_ice_clouds, RLVTT, RCPD, RCPV, RV, RVTMP2,Psat_water,Tsat_water,rhowater
     5  use watercommon_h, only: T_h2O_ice_liq,T_h2O_ice_clouds, RLVTT, RCPD, RCPV, RW, RVTMP2,Psat_water,Tsat_water,rhowater
    66  use radii_mod, only: h2o_cloudrad
    77  USE tracer_h, only: igcm_h2o_vap, igcm_h2o_ice

  • trunk/LMDZ.GENERIC/libf/phystd/thermcell_mod.F90

    r2480 r3655  
    5151      CONTAINS
    5252     
    53       SUBROUTINE init_thermcell_mod(g, rcp, r, pi, T_h2o_ice_liq, RV)
     53      SUBROUTINE init_thermcell_mod(g, rcp, r, pi, T_h2o_ice_liq, RW)
    5454         
    5555         USE ioipsl_getin_p_mod, ONLY: getin_p
    … …  
    6262         REAL pi
    6363         REAL T_h2o_ice_liq
    64          REAL RV
     64         REAL RW
    6565         
    6666         RTT = T_h2o_ice_liq

  • trunk/LMDZ.GENERIC/libf/phystd/watercommon_h.F90

    r3489 r3655  
    1818      real, parameter :: mx_eau_sol = 150 ! mass of water (kg/m^2)
    1919
    20       real, save :: epsi, RCPD, RCPV, RV, RVTMP2
     20      real, save :: epsi, RCPD, RCPV, RW, RVTMP2
    2121      real, save :: RETV
    2222      real, save :: RLvCp
    23 !$OMP THREADPRIVATE(epsi,RCPD,RCPV,RV,RVTMP2)
     23!$OMP THREADPRIVATE(epsi,RCPD,RCPV,RW,RVTMP2)
    2424     
    2525      contains
    … …  
    4848      RCPD   = cpp
    4949
    50       !RV = 1000.*R/mH2O
    51       RV = 1000.*8.314/mH2O ! caution! R is R/mugaz already!
     50      !RW = 1000.*R/mH2O
     51      RW = 1000.*8.314/mH2O ! caution! R is R/mugaz already!
    5252
    5353      RCPV   = 1.88e3 ! specific heat capacity of water vapor at 350K
    … …  
    5656     
    5757! AB : initializations added for the thermal plume model
    58       RETV = RV / r - 1.
     58      RETV = RW / r - 1.
    5959      RLvCp = RLVTT / RCPD
    6060     
Note: See TracChangeset for help on using the changeset viewer.