Ignore:
Timestamp:
Feb 13, 2026, 3:23:54 PM (18 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:
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.VENUS/libf/phyvenus/YOEGWD_mod.F90

    r4069 r4070  
     1module YOEGWD_mod
    12!     -----------------------------------------------------------------
    23!*    *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS
    34!     -----------------------------------------------------------------
    4 !
    5       integer :: NKTOPG,NTOP
    6       real    :: GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT
    7       real    :: GHMAX,GRAHILO,GSIGCR,GSSEC,GTSEC,GVSEC
    8       real    :: TAUBS
    9       integer :: LEVBS
    10       COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT         &
    11      &   ,GHMAX,GRAHILO,GSIGCR,NKTOPG,NTOP,GSSEC,GTSEC,GVSEC            &
    12      &   ,TAUBS,LEVBS
     5implicit none
    136
     7  integer,save :: NKTOPG
     8  integer,save :: NTOP
     9!$OMP THREADPRIVATE(NKTOPG,NTOP)
     10
     11  real,save :: GFRCRIT
     12  real,save :: GKWAKE
     13  real,save :: GRCRIT
     14!$OMP THREADPRIVATE(GFRCRIT,GKWAKE,GRCRIT)
     15
     16  real,save :: GVCRIT
     17  real,save :: GKDRAG
     18  real,save :: GKLIFT
     19!$OMP THREADPRIVATE(GVCRIT,GKDRAG,GKLIFT)
     20
     21  real,save :: GHMAX
     22  real,save :: GRAHILO
     23  real,save :: GSIGCR
     24!$OMP THREADPRIVATE(GHMAX,GRAHILO,GSIGCR)
     25
     26  real,save :: GSSEC,GTSEC,GVSEC
     27!$OMP THREADPRIVATE(GSSEC,GTSEC,GVSEC)
     28
     29  real,save :: TAUBS
     30!$OMP THREADPRIVATE(TAUBS)
     31
     32  integer,save :: LEVBS
     33!$OMP THREADPRIVATE(LEVBS)
     34
     35end module YOEGWD_mod
Note: See TracChangeset for help on using the changeset viewer.