Changeset 4069 for trunk/LMDZ.VENUS/libf/phyvenus/lwi.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/lwi.F (modified) (2 diffs)

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