Changeset 3757 for trunk/LMDZ.MARS/libf/phymars/lwb.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/lwb.F (modified) (2 diffs)

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

@@ +1 @@
+      module lwb_mod
+      
+      implicit none
+      
+      contains
+      
       subroutine lwb (kdlon,kflev,tlev,tlay,dt0
      .               ,bsurf,btop,blay,blev,dblay,dbsublay)
@@ -132 +138 @@
 c----------------------------------------------------------------------
 
-      return
-      end
+      end subroutine lwb
+
+      end module lwb_mod