Changeset 3420
- Timestamp:
- Dec 7, 2018, 9:25:16 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/conf_phys_m.F90
r3412 r3420 2459 2459 ENDIF 2460 2460 !--here we test that solaire has not been changed if ok_suntime_rrtm is activated 2461 IF (ok_suntime_rrtm.AND.ABS(solaire-solaire_omp_init).GT.1.E-10) THEN2462 WRITE(lunout,*) ' ERROR ok_suntime_rrtm=y and solaire is provided in def file'2463 CALL abort_physic('conf_phys','ok_suntime_rrtm=y and solaire is provided',1)2464 ENDIF2461 ! IF (ok_suntime_rrtm.AND.ABS(solaire-solaire_omp_init).GT.1.E-7) THEN 2462 ! WRITE(lunout,*) ' ERROR ok_suntime_rrtm=y and solaire is provided in def file' 2463 ! CALL abort_physic('conf_phys','ok_suntime_rrtm=y and solaire is provided',1) 2464 ! ENDIF 2465 2465 #ifdef CPP_StratAer 2466 2466 IF (iflag_rrtm .NE. 1) THEN
Note: See TracChangeset
for help on using the changeset viewer.