Changeset 2742 for LMDZ5/trunk/libf/phylmd/rrtm/read_rsun_rrtm.F90
- Timestamp:
- Jan 5, 2017, 4:34:58 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/rrtm/read_rsun_rrtm.F90
r2726 r2742 16 16 USE mod_phys_lmdz_para 17 17 18 USE YOESW 18 USE YOESW, ONLY : RSUN 19 19 20 20 IMPLICIT NONE … … 33 33 !$OMP THREADPRIVATE(TSI) 34 34 35 INTEGER, SAVE :: day_pre 35 INTEGER, SAVE :: day_pre=1 36 !$OMP THREADPRIVATE(day_pre) 36 37 37 38 !--only one processor reads
Note: See TracChangeset
for help on using the changeset viewer.