Changeset 4069

Timestamp:

Feb 12, 2026, 5:28:54 PM (4 weeks ago)

Author:

emillour

Message:

Venus PCM:
Code cleanup: Turn radlwsw.F, lw_venus_ve.F and lwi.F into modules
and remove timerad.h, including its variable "dtimerad" in
module tabcontrol_mod, alongside "radpas".
EM

Location:

trunk/LMDZ.VENUS/libf/phyvenus

Files:

• lw_venus_ve.F (modified) (3 diffs)
• lwi.F (modified) (2 diffs)
• physiq_mod.F (modified) (3 diffs)
• radlwsw.F (modified) (4 diffs)
• tabcontrol.F90 (modified) (1 diff)
• timerad.h (deleted)

trunk/LMDZ.VENUS/libf/phyvenus/lw_venus_ve.F

@@ +1 @@
+      MODULE LW_venus_ve_mod
+      
+      IMPLICIT NONE
+      
+      CONTAINS
+      
       SUBROUTINE LW_venus_ve( 
      S              PPB, pt, psi, deltapsi,
@@ -5 +11 @@
      S              ZFLNET)
       
-      use dimphy
+      use dimphy, only: klev
       use cpdet_phy_mod, only: cpdet
-      use YOMCST_mod
+      use YOMCST_mod,ONLY: RG
+      use lwi_mod, only: lwi
       IMPLICIT none
 
-C#include "YOMCST.h"
 C
 C     ------------------------------------------------------------------
@@ -124 +130 @@
 c     print*,PCOOL
 
-      return
-      end
+      END SUBROUTINE LW_venus_ve
 
+      END MODULE LW_venus_ve_mod

trunk/LMDZ.VENUS/libf/phyvenus/lwi.F

@@ +1 @@
+      module lwi_mod
+      
+      implicit none
+      
+      contains
+      
       subroutine lwi(nl,netrad,deltapsi,deltap,temp,coolrate)
 
-      use dimphy
       use cpdet_phy_mod, only: cpdet
-      use YOMCST_mod
+      use tabcontrol_mod, only: dtimerad
+      use YOMCST_mod, only: RG
+
       implicit none
 
-
-c#include "YOMCST.h"
-#include "timerad.h"
-      
 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
 C
@@ -184 +187 @@
 c-------------------------------------------------------------------------
 
-      RETURN
-      END
+      end subroutine lwi
+      
+      end module lwi_mod

trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F

@@ -75 +75 @@
       USE compo_hedin83_mod2
       use radlwsw_newtoncool_mod, only: radlwsw_newtoncool
+      use radlwsw_mod, only: radlwsw
 !      use ieee_arithmetic
       use time_phylmdz_mod, only: annee_ref, day_ref, itau_phy
@@ -84 +85 @@
       use sed_and_prod_mad, only: aer_sedimentation, drop_sedimentation
       use iono_h, only: temp_elect, temp_ion
-      use tabcontrol_mod, only: radpas, dtime
+      use tabcontrol_mod, only: radpas, dtime, dtimerad
       use soil_mod, only: nsoilmx
       use hgardfou_mod, only: hgardfou
@@ -123 +124 @@
 c======================================================================
 #include "iniprint.h"
-#include "timerad.h" 
 #include "nirdata.h"
 #include "hedin.h"

trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.F

@@ -1 @@
-!
-! $Header: /home/cvsroot/LMDZ4/libf/phylmd/radlwsw.F,v 1.2 2004/10/27 10:14:46 lmdzadmin Exp $
-!
+      MODULE radlwsw_mod
+      
+      IMPLICIT NONE
+      
+      CONTAINS
+      
       SUBROUTINE radlwsw(dist, rmu0, fract, zzlev,
      .                  paprs, pplay,tsol, t)
@@ -34 +37 @@
       use write_field_phy
       use radinc_h, only: ini_radinc_h
-      use clesphys_mod
-      use YOMCST_mod
+      use clesphys_mod, only: cycle_diurne, callnlte, 
+     &                        nbapp_rad, solarchoice
+      use YOMCST_mod, only: RPI
+      use LW_venus_ve_mod, only: LW_venus_ve
 
 #ifdef CPP_XIOS      
@@ -42 +47 @@
 
       IMPLICIT none
-!      include "YOMCST.h"
-!      include "clesphys.h" 
       include "comcstVE.h"
       include "nlteparams.h"
@@ -749 +752 @@
       firstcall = .false.
 
-      END
+      END SUBROUTINE radlwsw
+
+      END MODULE radlwsw_mod

trunk/LMDZ.VENUS/libf/phyvenus/tabcontrol.F90

@@ -7 +7 @@
 INTEGER,SAVE :: radpas ! rate of computation of radiative transfert, in physics steps
 !$OMP THREADPRIVATE(radpas)
+
+REAL,SAVE :: dtimerad ! radiative time step (s) , set by physiq
+!$OMP THREADPRIVATE(dtimerad)      
 
 INTEGER,SAVE :: chimpas ! rate of computation of chemistry, in physics steps