Changeset 3411 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/rrtm/susw15.F90
- Timestamp:
- Nov 5, 2018, 3:24:59 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/trunk removed
- Property svn:mergeinfo changed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/rrtm/susw15.F90
r3356 r3411 58 58 59 59 IMPLICIT NONE 60 REAL(KIND=JPRB) ,SAVE:: ZPDH2O=0.8_JPRB61 REAL(KIND=JPRB) ,SAVE:: ZPDUMG=0.75_JPRB62 REAL(KIND=JPRB) ,SAVE:: ZPRH2O=30000._JPRB63 REAL(KIND=JPRB) ,SAVE:: ZPRUMG=30000._JPRB60 REAL(KIND=JPRB) :: ZPDH2O=0.8_JPRB 61 REAL(KIND=JPRB) :: ZPDUMG=0.75_JPRB 62 REAL(KIND=JPRB) :: ZPRH2O=30000._JPRB 63 REAL(KIND=JPRB) :: ZPRUMG=30000._JPRB 64 64 65 65 !$OMP THREADPRIVATE(zpdh2o,zpdumg,zprh2o,zprumg)
Note: See TracChangeset
for help on using the changeset viewer.