Changeset 4051 for trunk/WRF.COMMON/INTERFACES_V4

Timestamp:

Feb 5, 2026, 5:50:45 PM (3 days ago)

Author:

aslmd

Message:

Titan CRM:

• change variable name rsat_ch4 to rh_ch4 for correctness (relative humidity)

EMo

Location:

trunk/WRF.COMMON/INTERFACES_V4

Files:

• dynphy_wrf_titan_lmd/update_outputs_physiq_mod.F (modified) (3 diffs)
• module_lmd_driver.F (modified) (3 diffs)

trunk/WRF.COMMON/INTERFACES_V4/dynphy_wrf_titan_lmd/update_outputs_physiq_mod.F

@@ -165 +165 @@
             DTLSC,DTRAIN,DT_MOIST,&
             H2OICE_REFF,LATENT_HF,&
-            DT_COND,RSAT_CH4)
+            DT_COND,RH_CH4)
 
    USE comm_wrf !! to get fields to be written from physiq
@@ -176 +176 @@
    REAL, DIMENSION( ims:ime, kms:kme, jms:jme ), INTENT(INOUT ) :: &
      HR_SW,HR_LW,CLOUDFRAC,HR_DYN,DT_RAD,RH,DQICE,DQVAP,&
-     DTLSC,DTRAIN,DT_MOIST,H2OICE_REFF,DT_COND,RSAT_CH4
+     DTLSC,DTRAIN,DT_MOIST,H2OICE_REFF,DT_COND,RH_CH4
    INTEGER :: i,j,subs
 
@@ -205 +205 @@
      FLXGRD(i,j) = comm_FLXGRD(subs)
      DT_COND(i,kps:kpe,j) = comm_ZDTLC(subs,kps:kpe)
-     RSAT_CH4(i,kps:kpe,j) = comm_rsat_ch4(subs,kps:kpe)
+     RH_CH4(i,kps:kpe,j)  = comm_rh_ch4(subs,kps:kpe)
 !    DTLSC(i,kps:kpe,j) = comm_DTLSC(subs,kps:kpe)
 !    DTRAIN(i,kps:kpe,j) = comm_DTRAIN(subs,kps:kpe)

trunk/WRF.COMMON/INTERFACES_V4/module_lmd_driver.F

@@ -49 +49 @@
         USTM,HFX,&
         SLPX,SLPY,RESTART,&
-        DT_COND,RSAT_CH4)
+        DT_COND,RH_CH4)
 ! NB: module_lmd_driver_output1.inc : output arguments generated from Registry
 
@@ -116 +116 @@
      HR_SW,HR_LW,HR_DYN,DT_RAD,&
      CLOUDFRAC,RH,DQICE,DQVAP,DTLSC,DTRAIN,DT_MOIST,H2OICE_REFF,&
-     DT_COND, RSAT_CH4
+     DT_COND, RH_CH4
 REAL, DIMENSION( ims:ime, kms:kme+1, jms:jme ), INTENT(INOUT ) :: &
      P_Q2
@@ -664 +664 @@
             ALBEQ,FLUXTOP_DN,FLUXABS_SW,FLUXTOP_LW,FLUXSURF_SW,&
             FLUXSURF_LW,FLXGRD,DTLSC,DTRAIN,DT_MOIST,H2OICE_REFF,LATENT_HF,&
-            DT_COND,RSAT_CH4)
+            DT_COND,RH_CH4)
 !!!
 !print *, '** ',planet_type,'** OUTPUT PHYSICS DONE'