Changeset 1148 for trunk/LMDZ.GENERIC/libf
- Timestamp:
- Jan 5, 2014, 10:09:41 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/radcommon_h.F90
r1133 r1148 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 :: transparency 69 72 70 73 !! AS: introduced to avoid doing same computations again for continuum
Note: See TracChangeset
for help on using the changeset viewer.