1 |
module gr_int_dyn_m |
module gr_int_dyn_m |
2 |
|
|
|
! Clean: no C preprocessor directive, no include line |
|
|
|
|
3 |
implicit none |
implicit none |
4 |
|
|
5 |
contains |
contains |
23 |
|
|
24 |
gr_int_dyn(:, 1) = sum(champin(:, 1)) / iim ! north pole |
gr_int_dyn(:, 1) = sum(champin(:, 1)) / iim ! north pole |
25 |
gr_int_dyn(:, jp1) = sum(champin(:, jp1)) / iim ! south pole |
gr_int_dyn(:, jp1) = sum(champin(:, jp1)) / iim ! south pole |
26 |
gr_int_dyn(:iim, 2:jp1 - 1) = champin(:, 2:jp1 - 1) |
gr_int_dyn(: iim, 2: jp1 - 1) = champin(:, 2: jp1 - 1) |
27 |
gr_int_dyn(iim + 1, 2:jp1 - 1) = gr_int_dyn(1, 2:jp1 - 1) |
gr_int_dyn(iim + 1, 2: jp1 - 1) = gr_int_dyn(1, 2: jp1 - 1) |
28 |
|
|
29 |
END function gr_int_dyn |
END function gr_int_dyn |
30 |
|
|