Changeset 5128 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/comgeom.h
- Timestamp:
- Jul 25, 2024, 5:47:25 PM (8 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3d_common/comgeom.h
r5099 r5128 4 4 !CDK comgeom 5 5 COMMON/comgeom/ & 6 &cu(ip1jmp1),cv(ip1jm),unscu2(ip1jmp1),unscv2(ip1jm), &7 &aire(ip1jmp1),airesurg(ip1jmp1),aireu(ip1jmp1), &8 &airev(ip1jm),unsaire(ip1jmp1),apoln,apols, &9 &unsairez(ip1jm),airuscv2(ip1jm),airvscu2(ip1jm), &10 &aireij1(ip1jmp1),aireij2(ip1jmp1),aireij3(ip1jmp1), &11 &aireij4(ip1jmp1),alpha1(ip1jmp1),alpha2(ip1jmp1), &12 &alpha3(ip1jmp1),alpha4(ip1jmp1),alpha1p2(ip1jmp1), &13 &alpha1p4(ip1jmp1),alpha2p3(ip1jmp1),alpha3p4(ip1jmp1), &14 &fext(ip1jm),constang(ip1jmp1),rlatu(jjp1),rlatv(jjm), &15 &rlonu(iip1),rlonv(iip1),cuvsurcv(ip1jm),cvsurcuv(ip1jm), &16 &cvusurcu(ip1jmp1),cusurcvu(ip1jmp1),cuvscvgam1(ip1jm), &17 &cuvscvgam2(ip1jm),cvuscugam1(ip1jmp1), &18 &cvuscugam2(ip1jmp1),cvscuvgam(ip1jm),cuscvugam(ip1jmp1), &19 &unsapolnga1,unsapolnga2,unsapolsga1,unsapolsga2, &20 &unsair_gam1(ip1jmp1),unsair_gam2(ip1jmp1),unsairz_gam(ip1jm), &21 &aivscu2gam(ip1jm),aiuscv2gam(ip1jm),xprimu(iip1),xprimv(iip1)6 cu(ip1jmp1),cv(ip1jm),unscu2(ip1jmp1),unscv2(ip1jm), & 7 aire(ip1jmp1),airesurg(ip1jmp1),aireu(ip1jmp1), & 8 airev(ip1jm),unsaire(ip1jmp1),apoln,apols, & 9 unsairez(ip1jm),airuscv2(ip1jm),airvscu2(ip1jm), & 10 aireij1(ip1jmp1),aireij2(ip1jmp1),aireij3(ip1jmp1), & 11 aireij4(ip1jmp1),alpha1(ip1jmp1),alpha2(ip1jmp1), & 12 alpha3(ip1jmp1),alpha4(ip1jmp1),alpha1p2(ip1jmp1), & 13 alpha1p4(ip1jmp1),alpha2p3(ip1jmp1),alpha3p4(ip1jmp1), & 14 fext(ip1jm),constang(ip1jmp1),rlatu(jjp1),rlatv(jjm), & 15 rlonu(iip1),rlonv(iip1),cuvsurcv(ip1jm),cvsurcuv(ip1jm), & 16 cvusurcu(ip1jmp1),cusurcvu(ip1jmp1),cuvscvgam1(ip1jm), & 17 cuvscvgam2(ip1jm),cvuscugam1(ip1jmp1), & 18 cvuscugam2(ip1jmp1),cvscuvgam(ip1jm),cuscvugam(ip1jmp1), & 19 unsapolnga1,unsapolnga2,unsapolsga1,unsapolsga2, & 20 unsair_gam1(ip1jmp1),unsair_gam2(ip1jmp1),unsairz_gam(ip1jm), & 21 aivscu2gam(ip1jm),aiuscv2gam(ip1jm),xprimu(iip1),xprimv(iip1) 22 22 23 23 REAL & 24 &cu,cv,unscu2,unscv2,aire,airesurg,aireu,airev,unsaire,apoln ,&25 &apols,unsairez,airuscv2,airvscu2,aireij1,aireij2,aireij3,aireij4,&26 &alpha1,alpha2,alpha3,alpha4,alpha1p2,alpha1p4,alpha2p3,alpha3p4 ,&27 &fext,constang,rlatu,rlatv,rlonu,rlonv,cuvscvgam1,cuvscvgam2 ,&28 &cvuscugam1,cvuscugam2,cvscuvgam,cuscvugam,unsapolnga1,unsapolnga2&29 &,unsapolsga1,unsapolsga2,unsair_gam1,unsair_gam2,unsairz_gam ,&30 &aivscu2gam ,aiuscv2gam,cuvsurcv,cvsurcuv,cvusurcu,cusurcvu,xprimu&31 &, xprimv24 cu,cv,unscu2,unscv2,aire,airesurg,aireu,airev,unsaire,apoln ,& 25 apols,unsairez,airuscv2,airvscu2,aireij1,aireij2,aireij3,aireij4,& 26 alpha1,alpha2,alpha3,alpha4,alpha1p2,alpha1p4,alpha2p3,alpha3p4 ,& 27 fext,constang,rlatu,rlatv,rlonu,rlonv,cuvscvgam1,cuvscvgam2 ,& 28 cvuscugam1,cvuscugam2,cvscuvgam,cuscvugam,unsapolnga1,unsapolnga2& 29 ,unsapolsga1,unsapolsga2,unsair_gam1,unsair_gam2,unsairz_gam ,& 30 aivscu2gam ,aiuscv2gam,cuvsurcv,cvsurcuv,cvusurcu,cusurcvu,xprimu& 31 , xprimv
Note: See TracChangeset
for help on using the changeset viewer.