3 |
|
|
4 |
c Alternate grid Mapping Common |
c Alternate grid Mapping Common |
5 |
c ------------------------------ |
c ------------------------------ |
6 |
|
#ifdef ALLOW_FIZHI |
7 |
common /gridalt_mapping/ nlperdyn,dpphys0,dpphys, |
common /gridalt_mapping/ nlperdyn,dpphys0,dpphys, |
8 |
. dxfalt,dyfalt,drfalt |
. dxfalt,dyfalt,drfalt |
9 |
integer nlperdyn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,Nsy) |
integer nlperdyn(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,Nsy) |
10 |
_RL dpphys0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
_RL dpphys0(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
11 |
_RL dpphys(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
_RL dpphys(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,nSx,nSy) |
12 |
_RL dxfalt,dyfalt,drfalt |
_RL dxfalt,dyfalt,drfalt |
13 |
|
#endif |