Parent Directory | Revision Log | Patch
trunk/libf/phylmd/CV3_routines/cv3_uncompress.f90 revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC | trunk/phylmd/CV3_routines/cv3_uncompress.f revision 82 by guez, Wed Mar 5 14:57:53 2014 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 |