25 |
|
|
26 |
gr_int_dyn(:, 1) = sum(champin(:, 1)) / iim ! north pole |
gr_int_dyn(:, 1) = sum(champin(:, 1)) / iim ! north pole |
27 |
gr_int_dyn(:, jp1) = sum(champin(:, jp1)) / iim ! south pole |
gr_int_dyn(:, jp1) = sum(champin(:, jp1)) / iim ! south pole |
28 |
gr_int_dyn(:iim, 2:jp1 - 1) = champin(:, 2:jp1 - 1) |
gr_int_dyn(: iim, 2: jp1 - 1) = champin(:, 2: jp1 - 1) |
29 |
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) |
30 |
|
|
31 |
END function gr_int_dyn |
END function gr_int_dyn |
32 |
|
|