Changeset 4051 for trunk/LMDZ.TITAN/libf/phytitan/comm_wrf.F90

Timestamp:

Feb 5, 2026, 5:50:45 PM (2 weeks ago)

Author:

aslmd

Message:

Titan CRM:

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

EMo

File:

• trunk/LMDZ.TITAN/libf/phytitan/comm_wrf.F90 (modified) (3 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