533 |
|
|
534 |
DO j = 1, jjm |
DO j = 1, jjm |
535 |
DO i = 1, iim |
DO i = 1, iim |
536 |
cv_2d(i,j) = 0.5*(cvij2(i,j)+cvij3(i,j)+cvij1(i,j+1)+cvij4(i,j+1)) |
cv_2d(i,j) = 0.5 * & |
537 |
|
(cvij2(i,j) + cvij3(i,j) + cvij1(i,j+1) + cvij4(i,j+1)) |
538 |
cvu(i,j) = 0.5*(cvij1(i,j)+cvij4(i,j)+cvij2(i,j)+cvij3(i,j)) |
cvu(i,j) = 0.5*(cvij1(i,j)+cvij4(i,j)+cvij2(i,j)+cvij3(i,j)) |
539 |
cuv(i,j) = 0.5*(cuij2(i,j)+cuij3(i,j)+cuij1(i,j+1)+cuij4(i,j+1)) |
cuv(i,j) = 0.5*(cuij2(i,j)+cuij3(i,j)+cuij1(i,j+1)+cuij4(i,j+1)) |
540 |
unscv2_2d(i,j) = 1./(cv_2d(i,j)*cv_2d(i,j)) |
unscv2_2d(i,j) = 1./(cv_2d(i,j)*cv_2d(i,j)) |