repo.or.cz
/
wrffire.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Original WRF subgrid support version from John Michalakes without fire
[wrffire.git]
/
wrfv2_fire
/
external
/
RSL
/
RSL
/
vicopy_sx.F
blob
f18a5b8f360f1caf5616e64e03a2b0679c3c2a4c
1
subroutine vicopy( a, b, c )
2
integer a(*), b(*)
3
integer c
4
do i = 1, c
5
b(i) = a(i)
6
enddo
7
return
8
end
9
10
subroutine vrcopy( a, b, c )
11
real a(*), b(*)
12
integer c
13
do i = 1, c
14
b(i) = a(i)
15
enddo
16
return
17
end
18