Changeset 4069 for trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.F

Timestamp:

Feb 12, 2026, 5:28:54 PM (5 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

File:

• trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.F (modified) (4 diffs)

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