Changeset 785
- Timestamp:
- Sep 18, 2012, 5:04:08 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/ave_stelspec.F90
r773 r785 152 152 band=1 153 153 Do while(lam(1).lt. real(10000.0/BWNV(band+1))) 154 if (band .gt.L_NSPECTV) exit154 if (band+1.ge.L_NSPECTV+1) exit 155 155 band=band+1 156 156 enddo
Note: See TracChangeset
for help on using the changeset viewer.