Parent Directory | Revision Log | Patch
revision 120 by guez, Thu Sep 18 19:56:46 2014 UTC | revision 121 by guez, Wed Jan 28 16:10:02 2015 UTC | |
---|---|---|
# | Line 18 contains | Line 18 contains |
18 | ||
19 | ! Local: | ! Local: |
20 | REAL vec(iim, iim), vec1(iim, iim) | REAL vec(iim, iim), vec1(iim, iim) |
REAL dlonu(iim), dlonv(iim) | ||
21 | REAL du(iim) | REAL du(iim) |
22 | real d(iim) | real d(iim) |
23 | REAL pi | REAL pi |
# | Line 32 contains | Line 31 contains |
31 | pi = 2.*asin(1.) | pi = 2.*asin(1.) |
32 | ||
33 | DO i = 1, iim | DO i = 1, iim |
34 | dlonu(i) = xprimu(i) | sddv(i) = sqrt(xprimv(i)) |
35 | dlonv(i) = xprimv(i) | sddu(i) = sqrt(xprimu(i)) |
END DO | ||
DO i = 1, iim | ||
sddv(i) = sqrt(dlonv(i)) | ||
sddu(i) = sqrt(dlonu(i)) | ||
36 | unsddu(i) = 1./sddu(i) | unsddu(i) = 1./sddu(i) |
37 | unsddv(i) = 1./sddv(i) | unsddv(i) = 1./sddv(i) |
38 | END DO | END DO |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |