|
|
|
|
C The plumes state uses the dynamics dimensions in the vertical |
|
|
C and its own dimensions in the horizontal |
|
1 |
c |
c |
2 |
c Plumes State Common - State variables on plumes grid |
c Plumes State Common - State variables on plumes grid |
3 |
c ---------------------------------------------------------------------- |
c ---------------------------------------------------------------------- |
4 |
common /plumes_state/ uplume,vplume,thplume,splume |
common /plumes_state/ uplume,thplume |
5 |
|
|
6 |
_RL uplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) |
_RL uplume(sNx,sNy,Nhplume,Nrplume,Nsx) |
7 |
_RL vplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) |
_RL thplume(sNx,sNy,Nhplume,Nrplume,Nsx) |
|
_RL thplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) |
|
|
_RL splume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) |
|
8 |
|
|
9 |
c Plumes Tendency Common - Changes in state variables due to plumes |
c Plumes Tendency Common - Changes in state variables due to plumes |
10 |
c ---------------------------------------------------------------------- |
c ---------------------------------------------------------------------- |
11 |
common /plumes_tendency/ duplume,dvplume,dthplume,dsplume |
common /plumes_tendency/ duplume,dthplume |
12 |
|
|
13 |
_RL duplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) |
_RL duplume(sNx,sNy,Nhplume,Nrplume,Nsx) |
14 |
_RL dvplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) |
_RL dthplume(sNx,sNy,Nhplume,Nrplume,Nsx) |
|
_RL dthplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) |
|
|
_RL dsplume(Nxplumes,Nyplumes,Nr,Nsx,Nsy) |
|
15 |
|
|
16 |
c Plumes Exports Common - plumes variables on other grids for export |
c Plumes Exports Common - plumes variables on other grids for export |
17 |
c ---------------------------------------------------------------------- |
c ---------------------------------------------------------------------- |
18 |
common /plumes_exports/ guplume,gvplume,gthplume,gsplume |
common /plumes_exports/ guplume,gvplume,gthplume |
19 |
|
|
20 |
_RL guplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
_RL guplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
21 |
_RL gvplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
_RL gvplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
22 |
_RL gthplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
_RL gthplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
|
_RL gsplume(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
|