Changeset 285
- Timestamp:
- 10/20/14 18:35:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/optcv.F90
r222 r285 335 335 DO NG=1,L_NGAUSS ! full gauss loop 336 336 DO NW=1,L_NSPECTV 337 TAUV(1,NW,NG)= 0.0D0337 TAUV(1,NW,NG)=DTAUKV(2,NW,NG) 338 338 DO L=1,L_NLAYRAD 339 339 TAUV(L+1,NW,NG)=TAUV(L,NW,NG)+DTAUV(L,NW,NG)
Note: See TracChangeset
for help on using the changeset viewer.