Parent Directory | Revision Log | Patch
trunk/libf/dyn3d/divgrad.f revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC | trunk/libf/dyn3d/Dissipation/divgrad.f revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC | |
---|---|---|
# | Line 26 c ------------- | Line 26 c ------------- |
26 | c | c |
27 | c | c |
28 | INTEGER klevel | INTEGER klevel |
29 | REAL h( ip1jmp1,klevel ), divgra( ip1jmp1,klevel ) | REAL, intent(in):: h( ip1jmp1,klevel ) |
30 | real divgra( ip1jmp1,klevel ) | |
31 | real, intent(in):: cdivh | real, intent(in):: cdivh |
32 | c | c |
33 | REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm) | REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm) |
# | Line 36 c | Line 37 c |
37 | c | c |
38 | c | c |
39 | c | c |
40 | CALL SCOPY ( ip1jmp1*klevel,h,1,divgra,1 ) | divgra = h |
41 | c | c |
42 | DO 10 iter = 1,lh | DO 10 iter = 1,lh |
43 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |