Changeset 3757 for trunk/LMDZ.MARS/libf/phymars/lwxd.F

Timestamp:

May 9, 2025, 9:22:41 AM (4 weeks ago)

Author:

emillour

Message:

Mars PCM:
More code tidying: puting routines in modules and modernizing some old
constructs. Tested to not change results with respect to previous version.
EM

File:

• trunk/LMDZ.MARS/libf/phymars/lwxd.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/lwxd.F

@@ +1 @@
+      module lwxd_mod
+      
+      implicit none
+      
+      contains
+      
       subroutine lwxd (ig0,kdlon,kflev,emis
      .                ,aer_t,co2_u,co2_up)
@@ -35 +41 @@
       use yomlw_h, only: nlaylte, xi, xi_emis
       use callkeys_mod, only: callemis
+      use lwtt_mod, only: lwtt
       implicit none
 
@@ -247 +254 @@
 
 c----------------------------------------------------------------------
-      end
+      end subroutine lwxd
+      
+      end module lwxd_mod