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 |