Changeset 3356 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/rrtm/susw15.F90
- Timestamp:
- Jun 29, 2018, 12:31:11 PM (6 years ago)
- Location:
- LMDZ6/branches/DYNAMICO-conv
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv
- Property svn:mergeinfo changed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/rrtm/susw15.F90
r2010 r3356 58 58 59 59 IMPLICIT NONE 60 REAL(KIND=JPRB) :: ZPDH2O=0.8_JPRB61 REAL(KIND=JPRB) :: ZPDUMG=0.75_JPRB62 REAL(KIND=JPRB) :: ZPRH2O=30000._JPRB63 REAL(KIND=JPRB) :: ZPRUMG=30000._JPRB60 REAL(KIND=JPRB),SAVE :: ZPDH2O=0.8_JPRB 61 REAL(KIND=JPRB),SAVE :: ZPDUMG=0.75_JPRB 62 REAL(KIND=JPRB),SAVE :: ZPRH2O=30000._JPRB 63 REAL(KIND=JPRB),SAVE :: ZPRUMG=30000._JPRB 64 64 65 65 !$OMP THREADPRIVATE(zpdh2o,zpdumg,zprh2o,zprumg)
Note: See TracChangeset
for help on using the changeset viewer.