Changeset 1160
- Timestamp:
- May 14, 2009, 11:23:40 AM (16 years ago)
- Location:
- LMDZ4/branches/LMDZ4-dev/libf/phylmd
- Files:
-
- 1 edited
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F
r1159 r1160 2940 2940 ELSE 2941 2941 2942 CALL radlwsw _aero2942 CALL radlwsw 2943 2943 e (dist, rmu0, fract, 2944 2944 e paprs, pplay,zxtsol,albsol1, albsol2, -
LMDZ4/branches/LMDZ4-dev/libf/phylmd/radlwsw.F90
r1159 r1160 1 SUBROUTINE radlwsw _aero( &1 SUBROUTINE radlwsw( & 2 2 dist, rmu0, fract, & 3 3 paprs, pplay,tsol,alb1, alb2, & … … 343 343 !===== iflag_rrtm=1, on passe dans SW via RECMWFL =============== 344 344 WRITE(lunout,*) "Option iflag_rrtm=T ne fonctionne pas encore !!!" 345 CALL abort_gcm('radlwsw _aero','iflag_rrtm=T not valid',1)345 CALL abort_gcm('radlwsw','iflag_rrtm=T not valid',1) 346 346 347 347 ENDIF ! iflag_rrtm … … 426 426 427 427 428 END SUBROUTINE radlwsw _aero429 430 428 END SUBROUTINE radlwsw 429 430
Note: See TracChangeset
for help on using the changeset viewer.