Changeset 4070 for trunk/LMDZ.VENUS/libf/phyvenus/flott_gwd_ran.F90

Timestamp:

Feb 13, 2026, 3:23:54 PM (3 days 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/flott_gwd_ran.F90 (modified) (5 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/flott_gwd_ran.F90

@@ +1 @@
+      MODULE flott_gwd_ran_mod
+      
+      IMPLICIT NONE
+      
+      CONTAINS
+      
       SUBROUTINE FLOTT_GWD_RAN(NLON,NLEV,DTIME, pp, pn2,  &
                   tt,uu,vv, plevmoy, &
@@ -14 +20 @@
     !---------------------------------------------------------------------
 
-      use dimphy
+      use dimphy, only: klon,klev
       USE geometry_mod, only: cell_area, latitude_deg
-      USE YOMCST_mod
+      USE YOMCST_mod, only: rpi, rg, rd
       implicit none
-
-#include "YOEGWD.h"
-!#include "YOMCST.h"
 
     ! 0. DECLARATIONS:
@@ -470 +473 @@
 !===================================================================
 
-      FUNCTION ALEAS (R)
+      REAL FUNCTION ALEAS (R)
 !***BEGIN PROLOGUE  ALEAS
 !***PURPOSE  Generate a uniformly distributed random number.
@@ -563 +566 @@
 !   891214  Prologue converted to Version 4.0 format.  (BAB)
 !***END PROLOGUE  RAND
-      SAVE IA1, IA0, IA1MA0, IC, IX1, IX0
-      DATA IA1, IA0, IA1MA0 /1536, 1029, 507/
-      DATA IC /1731/
-      DATA IX1, IX0 /0, 0/
+      REAL,INTENT(IN) :: R
+      INTEGER,SAVE :: IA1=1536
+      INTEGER,SAVE :: IA0=1029
+      INTEGER,SAVE :: IA1MA0=507
+      INTEGER,SAVE :: IC=1731
+      INTEGER,SAVE :: IX1=0
+      INTEGER,SAVE :: IX0=0
+!$OMP THREADPRIVATE(IA1,IA0,IA1MA0,IC,IX1,IX0)
+      INTEGER :: IY0
+      INTEGER :: IY1
 !***FIRST EXECUTABLE STATEMENT  RAND
 !
@@ -591 +600 @@
       RETURN
 
-      END
-
-
+      END FUNCTION ALEAS
+
+      END MODULE flott_gwd_ran_mod