Changeset 2231 for LMDZ5/trunk/libf/phylmd/physiq.F90
- Timestamp:
- Mar 12, 2015, 5:46:56 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/physiq.F90
r2227 r2231 3026 3026 tausum_aero(:,:,:) = 0. 3027 3027 IF (iflag_rrtm .EQ. 0) THEN !--old radiation 3028 tau_aero(:,:,:,:) = 0.3029 piz_aero(:,:,:,:) = 0.3028 tau_aero(:,:,:,:) = 1.e-15 3029 piz_aero(:,:,:,:) = 1. 3030 3030 cg_aero(:,:,:,:) = 0. 3031 3031 ELSE 3032 tau_aero_sw_rrtm(:,:,:,:)=0.0 3033 piz_aero_sw_rrtm(:,:,:,:)=0.0 3034 cg_aero_sw_rrtm(:,:,:,:)=0.0 3032 tau_aero_sw_rrtm(:,:,:,:) = 1.e-15 3033 tau_aero_lw_rrtm(:,:,:,:) = 1.e-15 3034 piz_aero_sw_rrtm(:,:,:,:) = 1.0 3035 cg_aero_sw_rrtm(:,:,:,:) = 0.0 3035 3036 ENDIF 3036 3037 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.