Changeset 690 for trunk/LMDZ.MARS/libf/phymars/nirco2abs.F
- Timestamp:
- Jun 4, 2012, 10:37:25 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/nirco2abs.F
r575 r690 197 197 pyy(l)=pplay(ig,l) 198 198 enddo 199 200 201 199 call interpnir(cor1,pyy,nlayer,corgcm,pres1d,npres) 200 call interpnir(oldoco2,pyy,nlayer,oco21d,pres1d,npres) 201 call interpnir(alfa2,pyy,nlayer,alfa,pres1d,npres) 202 202 endif 203 203
Note: See TracChangeset
for help on using the changeset viewer.