Changeset 3757 for trunk/LMDZ.MARS/libf/phymars/sugwd.F90

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/sugwd.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/sugwd.F90

@@ +1 @@
+MODULE sugwd_mod
+
+IMPLICIT NONE
+
+CONTAINS
+
       SUBROUTINE SUGWD(nlayer,sigtest)
 ! ==============================================================================
@@ -70 +76 @@
       GTSEC=1.E-07    ! Security values for Sub-grid scale anisotropy(OROSETUP,GWSTRESS)
 
-      RETURN
-      END
+      END SUBROUTINE SUGWD
+
+END MODULE sugwd_mod