Ignore:
Timestamp:
Jun 13, 2025, 7:41:53 PM (6 weeks ago)
Author:
yann meurdesoif
Message:

Convection GPU porting : replace saved variables by PARAMETER when possible
YM

Location:
LMDZ6/trunk/libf/phylmd
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/cv3_enthalpmix.f90

    r5692 r5695  
    5757  REAL                                      :: cpn
    5858  REAL                                      :: x, y, p0, p0m1, zdelta, zcor
    59   REAL, SAVE                                :: dpmin=1.
    60 !$OMP THREADPRIVATE(dpmin)
     59  REAL, PARAMETER                           :: dpmin=1.
    6160  REAL, DIMENSION(len)                      :: plim2p  ! = min(plim2(:),plim1(:)-dpmin)
    6261  REAL, DIMENSION(len)                      :: akm     ! mixture enthalpy

  • LMDZ6/trunk/libf/phylmd/cv3_estatmix.f90

    r5692 r5695  
    6060  REAL                                      :: cpn
    6161  REAL                                      :: x, y, p0, zdelta, zcor
    62   REAL, SAVE                                :: dpmin=1.
    63 !$OMP THREADPRIVATE(dpmin)
     62  REAL, PARAMETER                           :: dpmin=1.
    6463  REAL, DIMENSION(len)                      :: plim2p  ! = min(plim2(:),plim1(:)-dpmin)
    6564  REAL, DIMENSION(len)                      :: dpw, coef

  • LMDZ6/trunk/libf/phylmd/cv3_routines.f90

    r5693 r5695  
    5252
    5353! Local variables
    54   CHARACTER (LEN=20) :: modname = 'cv3_param'
     54  CHARACTER (LEN=20),PARAMETER :: modname = 'cv3_param'
    5555  CHARACTER (LEN=80) :: abort_message
    5656
    … …  
    12191219  REAL                                               :: fracg
    12201220  REAL                                               :: deltap
    1221   REAL, SAVE                                         :: Tx, Tm
    1222   DATA Tx/263.15/, Tm/243.15/
    1223 !$OMP THREADPRIVATE(Tx, Tm)
     1221  REAL, PARAMETER                                    :: Tx=263.15
     1222  REAL, PARAMETER                                    :: Tm=243.15
    12241223  REAL                                               :: aa, bb, dd, ddelta, discr
    12251224  REAL                                               :: ff, fp

  • LMDZ6/trunk/libf/phylmd/cv3a_compress.f90

    r5692 r5695  
    9696  INTEGER i, k, nn, j
    9797
    98   CHARACTER (LEN=20) :: modname = 'cv3a_compress'
     98  CHARACTER (LEN=20),PARAMETER :: modname = 'cv3a_compress'
    9999  CHARACTER (LEN=80) :: abort_message
    100100

  • LMDZ6/trunk/libf/phylmd/cv3p1_closure.f90

    r5692 r5695  
    9494!>jyg
    9595
    96   REAL sigmax
    97   PARAMETER (sigmax=0.1)
    98 
    99   CHARACTER (LEN=20) :: modname = 'cv3p1_closure'
     96  REAL,PARAMETER :: sigmax = 0.1
     97
     98  CHARACTER (LEN=20), PARAMETER :: modname = 'cv3p1_closure'
    10099  CHARACTER (LEN=80) :: abort_message
    101100

  • LMDZ6/trunk/libf/phylmd/cv3p2_closure.f90

    r5692 r5695  
    107107!!  PARAMETER (sigmax=10.)
    108108
    109   CHARACTER (LEN=20)                                 :: modname = 'cv3p2_closure'
     109  CHARACTER (LEN=20),PARAMETER                       :: modname = 'cv3p2_closure'
    110110  CHARACTER (LEN=80)                                 :: abort_message
    111111
    112   INTEGER,SAVE                                       :: igout=1
    113 !$OMP THREADPRIVATE(igout)
     112  INTEGER,PARAMETER                                  :: igout=1
    114113
    115114 IF (prt_level>=20) print *,' -> cv3p2_closure, Ale ',ale(igout)

  • LMDZ6/trunk/libf/phylmd/cv3p_mixing.f90

    r5692 r5695  
    8282  INTEGER nstep
    8383
    84   INTEGER,SAVE                                       :: igout=1
    85 !$OMP THREADPRIVATE(igout)
     84  INTEGER,PARAMETER                                       :: igout=1
    8685
    8786! --   Mixing probability distribution functions
Note: See TracChangeset for help on using the changeset viewer.