Changeset 3435 for trunk/LMDZ.GENERIC/libf
- Timestamp:
- Sep 23, 2024, 4:08:03 PM (3 months ago)
- Location:
- trunk/LMDZ.GENERIC/libf/phystd
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/thermcell_env.F90
r3342 r3435 133 133 134 134 RV_generic = (8.314511*1000.)/(epsi_generic*mugaz) 135 RETV_generic = RV_generic/ (r-1.)135 RETV_generic = RV_generic/r-1. 136 136 RLvCp_generic = RLVTT_generic/cpp 137 137 -
trunk/LMDZ.GENERIC/libf/phystd/thermcell_plume.F90
r3342 r3435 145 145 ELSEIF (generic_condensation .AND. .NOT. water ) THEN 146 146 RV_generic = (8.314511*1000.)/(epsi_generic*mugaz) 147 RETV_comp = RV_generic/ (r-1.)147 RETV_comp = RV_generic/r-1. 148 148 RLvCp_comp = RLVTT_generic/cpp 149 149 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.