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

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.