[5281] | 1 | ! Replaces comgeom2.h |
---|
[524] | 2 | |
---|
[5281] | 3 | ! AB 07/24: NOTE: THIS USES A LEGACY COMMON BLOCK SHARED WITH comgeom_mod_h.f90 ! |
---|
| 4 | ! See comgeom_mod_h.f90 comment. |
---|
[1107] | 5 | |
---|
[5281] | 6 | MODULE comgeom2_mod_h |
---|
| 7 | USE dimensions_mod, ONLY: iim, jjm, llm, ndm |
---|
| 8 | USE paramet_mod_h |
---|
| 9 | IMPLICIT NONE; PRIVATE |
---|
| 10 | PUBLIC & |
---|
| 11 | cu, cv, unscu2, unscv2, aire, airesurg, aireu, airev, apoln, apols, unsaire & |
---|
| 12 | , unsairez, airuscv2, airvscu2, aireij1, aireij2, aireij3, aireij4, & |
---|
| 13 | alpha1, alpha2, alpha3, alpha4, alpha1p2, alpha1p4, alpha2p3, alpha3p4, & |
---|
| 14 | fext, constang, rlatu, rlatv, rlonu, rlonv, cuvscvgam1, cuvscvgam2, & |
---|
| 15 | cvuscugam1, cvuscugam2, cvscuvgam, cuscvugam, unsapolnga1, & |
---|
| 16 | unsapolnga2, unsapolsga1, unsapolsga2, unsair_gam1, unsair_gam2, & |
---|
| 17 | unsairz_gam, aivscu2gam, aiuscv2gam, cuvsurcv, cvsurcuv, cvusurcu, & |
---|
| 18 | cusurcvu, xprimu, xprimv |
---|
| 19 | |
---|
| 20 | COMMON/comgeom/ & |
---|
| 21 | cu(iip1, jjp1), cv(iip1, jjm), unscu2(iip1, jjp1), unscv2(iip1, jjm), & |
---|
| 22 | aire(iip1, jjp1), airesurg(iip1, jjp1), aireu(iip1, jjp1), & |
---|
| 23 | airev(iip1, jjm), unsaire(iip1, jjp1), apoln, apols, & |
---|
| 24 | unsairez(iip1, jjm), airuscv2(iip1, jjm), airvscu2(iip1, jjm), & |
---|
| 25 | aireij1(iip1, jjp1), aireij2(iip1, jjp1), aireij3(iip1, jjp1), & |
---|
| 26 | aireij4(iip1, jjp1), alpha1(iip1, jjp1), alpha2(iip1, jjp1), & |
---|
| 27 | alpha3(iip1, jjp1), alpha4(iip1, jjp1), alpha1p2(iip1, jjp1), & |
---|
| 28 | alpha1p4(iip1, jjp1), alpha2p3(iip1, jjp1), alpha3p4(iip1, jjp1), & |
---|
| 29 | fext(iip1, jjm), constang(iip1, jjp1), rlatu(jjp1), rlatv(jjm), & |
---|
| 30 | rlonu(iip1), rlonv(iip1), cuvsurcv(iip1, jjm), cvsurcuv(iip1, jjm), & |
---|
| 31 | cvusurcu(iip1, jjp1), cusurcvu(iip1, jjp1), & |
---|
| 32 | cuvscvgam1(iip1, jjm), cuvscvgam2(iip1, jjm), cvuscugam1(iip1, jjp1), & |
---|
| 33 | cvuscugam2(iip1, jjp1), cvscuvgam(iip1, jjm), cuscvugam(iip1, jjp1), & |
---|
| 34 | unsapolnga1, unsapolnga2, unsapolsga1, unsapolsga2, & |
---|
| 35 | unsair_gam1(iip1, jjp1), unsair_gam2(iip1, jjp1), & |
---|
| 36 | unsairz_gam(iip1, jjm), aivscu2gam(iip1, jjm), aiuscv2gam(iip1, jjm) & |
---|
| 37 | , xprimu(iip1), xprimv(iip1) |
---|
| 38 | |
---|
| 39 | REAL & |
---|
| 40 | cu, cv, unscu2, unscv2, aire, airesurg, aireu, airev, apoln, apols, unsaire & |
---|
| 41 | , unsairez, airuscv2, airvscu2, aireij1, aireij2, aireij3, aireij4, & |
---|
| 42 | alpha1, alpha2, alpha3, alpha4, alpha1p2, alpha1p4, alpha2p3, alpha3p4, & |
---|
| 43 | fext, constang, rlatu, rlatv, rlonu, rlonv, cuvscvgam1, cuvscvgam2, & |
---|
| 44 | cvuscugam1, cvuscugam2, cvscuvgam, cuscvugam, unsapolnga1, & |
---|
| 45 | unsapolnga2, unsapolsga1, unsapolsga2, unsair_gam1, unsair_gam2, & |
---|
| 46 | unsairz_gam, aivscu2gam, aiuscv2gam, cuvsurcv, cvsurcuv, cvusurcu, & |
---|
| 47 | cusurcvu, xprimu, xprimv |
---|
| 48 | |
---|
| 49 | END MODULE comgeom2_mod_h |
---|