- Timestamp:
- Jan 5, 2014, 10:11:22 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90
r1148 r1149 67 67 REAL*8 blami(L_NSPECTI+1) 68 68 REAL*8 blamv(L_NSPECTV+1) ! these are needed by suaer.F90 69 70 !! account for possible ring shadow (or other exotic effects)71 REAL, DIMENSION(:), ALLOCATABLE :: transparency72 69 73 70 !! AS: introduced to avoid doing same computations again for continuum
Note: See TracChangeset
for help on using the changeset viewer.