Ignore:
Timestamp:
Jul 29, 2024, 12:37:08 PM (3 months ago)
Author:
abarral
Message:

Put cvthermo.h, cv30param.h, cv3param.h into modules

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_cvthermo.f90

    r5140 r5141  
     1! Replaces cvthermo.h
    12
    2 ! $Header$
     3MODULE lmdz_cvthermo
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     6          , clmci, eps, epsi, epsim1, ginv, hrd, grav
    37
    4 ! Thermodynamical constants for convectL:
     8  ! Thermodynamical constants for convectL:
     9  REAL cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0
     10  REAL clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci
     11  REAL eps, epsi, epsim1
     12  REAL ginv, hrd
     13  REAL grav
    514
    6       REAL cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0
    7       REAL clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl, clmci
    8       REAL eps, epsi, epsim1
    9       REAL ginv, hrd
    10       REAL grav
    11 
    12       COMMON /cvthermo/ cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl &
    13                        ,t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
    14                        ,clmci, eps, epsi, epsim1, ginv, hrd, grav
    15 
    16 !$OMP THREADPRIVATE(/cvthermo/)
     15  !$OMP THREADPRIVATE(cpd, cpv, cl, ci, rrv, rrd, lv0, lf0, g, rowl, t0, clmcpv, clmcpd, cpdmcp, cpvmcpd, cpvmcl  &
     16  !$OMP      , clmci, eps, epsi, epsim1, ginv, hrd, grav)
     17END MODULE lmdz_cvthermo
Note: See TracChangeset for help on using the changeset viewer.