Changeset 5695 for LMDZ6/trunk/libf/phylmd/cv3_routines.f90
- Timestamp:
- Jun 13, 2025, 7:41:53 PM (4 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cv3_routines.f90
r5693 r5695 52 52 53 53 ! Local variables 54 CHARACTER (LEN=20) :: modname = 'cv3_param'54 CHARACTER (LEN=20),PARAMETER :: modname = 'cv3_param' 55 55 CHARACTER (LEN=80) :: abort_message 56 56 … … 1219 1219 REAL :: fracg 1220 1220 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 1224 1223 REAL :: aa, bb, dd, ddelta, discr 1225 1224 REAL :: ff, fp
Note: See TracChangeset
for help on using the changeset viewer.