Changeset 4070 for trunk/LMDZ.VENUS/libf/phyvenus/sugwd.F

Timestamp:

Feb 13, 2026, 3:23:54 PM (44 hours ago)

Author:

emillour

Message:

Venus PCM:
Code cleanup: turn "YOEGWD.h" into module "YOEGWD_mod.F90",
and while at it, turn some of the related routines into modules.
EM

File:

• trunk/LMDZ.VENUS/libf/phyvenus/sugwd.F (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/sugwd.F

@@ +1 @@
+      MODULE SUGWD_MOD
+      
+      IMPLICIT NONE
+      
+      CONTAINS
+      
       SUBROUTINE SUGWD(NLON,NLEV,paprs,pplay)
 C     
@@ -74 +80 @@
 C        LAST:  99-07-09     (FRANCOIS LOTT,LMD)
 C     ------------------------------------------------------------------
-      use dimphy
+      use dimphy, only : klon
+      use YOEGWD_mod, only: GFRCRIT,GHMAX,GKDRAG,GKLIFT,GKWAKE,GRAHILO,
+     &                      GRCRIT,GSIGCR,GSSEC,GTSEC,GVCRIT,GVSEC,
+     &                      LEVBS, nktopg, ntop, TAUBS
       IMPLICIT NONE
 
-#include "YOEGWD.h"
 C
 C  ARGUMENTS
@@ -197 +205 @@
       GTSEC=1.e-7
 C
-      RETURN
-      END
-
+      END SUBROUTINE SUGWD
+
+      END MODULE SUGWD_MOD