Changeset 2325 for LMDZ5/trunk/libf/phylmd/rrtm
- Timestamp:
- Jul 8, 2015, 10:17:34 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90
r2323 r2325 301 301 END DO 302 302 303 ! AI 12 juin 2015 304 ! Modif Olivier pour prendre en compte des prop optiq aero ancienne pour RRTM 2bds 305 306 IF (NSW.EQ.2) THEN 307 !--old aerosol properties 308 309 ! old aeropt_2bands for rrtm 310 CALL aeropt_2bands( & 311 pdel, m_allaer, pdtphys, rhcl, & 312 tau_aero, piz_aero, cg_aero, & 313 m_allaer_pi, flag_aerosol, & 314 pplay, t_seri, presnivs) 315 316 ! aeropt_5wv only for validation and diagnostics. 317 CALL aeropt_5wv( & 318 pdel, m_allaer, & 319 pdtphys, rhcl, aerindex, & 320 flag_aerosol, pplay, t_seri, & 321 tausum_aero, tau3d_aero, presnivs) 322 323 ELSEIF (NSW.EQ.6) THEN 324 !--new aerosol propertie 303 !--new aerosol properties 325 304 ! aeropt_6bands for rrtm 326 305 CALL aeropt_6bands_rrtm( & … … 336 315 flag_aerosol, pplay, t_seri, & 337 316 tausum_aero, tau3d_aero ) 338 339 ELSE340 341 PRINT *,'Cas NSW non prevu pour RRTM - NSW=',NSW342 STOP343 344 ENDIF345 317 346 318 ! Diagnostics calculation for CMIP5 protocol
Note: See TracChangeset
for help on using the changeset viewer.