Changeset 4051 for trunk/LMDZ.TITAN/libf

Timestamp:

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

Author:

aslmd

Message:

Titan CRM:

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

EMo

Location:

trunk/LMDZ.TITAN/libf/phytitan

Files:

• comm_wrf.F90 (modified) (3 diffs)
• physiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/comm_wrf.F90

@@ -20 +20 @@
   REAL,SAVE,ALLOCATABLE :: comm_zqfi_omp(:,:,:)
   REAL,SAVE,ALLOCATABLE :: comm_zdtlc(:,:)
-  REAL,SAVE,ALLOCATABLE :: comm_rsat_ch4(:,:)
+  REAL,SAVE,ALLOCATABLE :: comm_rh_ch4(:,:)
 
 contains
@@ -44 +44 @@
   allocate(comm_zqfi_omp(ngrid,nlayer,nq))
   allocate(comm_zdtlc(ngrid,nlayer))
-  allocate(comm_rsat_ch4(ngrid,nlayer))
+  allocate(comm_rh_ch4(ngrid,nlayer))
 
   end subroutine allocate_comm_wrf
@@ -65 +65 @@
   deallocate(comm_zqfi_omp)
   deallocate(comm_zdtlc)
-  deallocate(comm_rsat_ch4)
+  deallocate(comm_rh_ch4)
 
   end subroutine deallocate_comm_wrf

trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

@@ -50 +50 @@
                      comm_FLUXSURF_LW, comm_FLXGRD,&
                      comm_zqfi_omp, comm_zdtlc,&
-                     comm_rsat_ch4
+                     comm_rh_ch4
 #endif
 #ifdef CPP_XIOS      
@@ -2064 +2064 @@
       do iq=1, nice
          if(trim(nameOfTracer(gazs_indx(iq))) .eq. "CH4") then
-            comm_rsat_ch4(1:ngrid,1:nlayer) = mmd_gazs_sat(1:ngrid,1:nlayer,iq)
+            comm_rh_ch4(1:ngrid,1:nlayer) = mmd_gazs_sat(1:ngrid,1:nlayer,iq)
          endif
       enddo