Parent Directory
| 
Revision Log
| 
Patch
| revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC | revision 69 by guez, Mon Feb 18 16:33:12 2013 UTC | |
|---|---|---|
| # | Line 4 SUBROUTINE cv3_uncompress(nloc, len, ncu | Line 4 SUBROUTINE cv3_uncompress(nloc, len, ncu |
| 4 | ft1, fq1, fu1, fv1, ftra1, inb1, Ma1, upwd1, dnwd1, dnwd01, qcondc1, & | ft1, fq1, fu1, fv1, ftra1, inb1, Ma1, upwd1, dnwd1, dnwd01, qcondc1, & |
| 5 | wd1, cape1, da1, phi1, mp1) | wd1, cape1, da1, phi1, mp1) |
| 6 | ||
| 7 | use cvparam3 | use cv3_param_m |
| 8 | ||
| 9 | implicit none | implicit none |
| 10 | ||
| 11 | ! inputs: | ! inputs: |
| 12 | integer len, ncum, nd, ntra, nloc | integer, intent(in):: len, ncum, nd, ntra, nloc |
| 13 | integer idcum(nloc) | integer idcum(nloc) |
| 14 | integer iflag(nloc) | integer iflag(nloc) |
| 15 | integer inb(nloc) | integer inb(nloc) |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |