1 |
molod |
1.1 |
C $Header: $ |
2 |
|
|
C $Name: $ |
3 |
|
|
|
4 |
|
|
|
5 |
|
|
C The physics state uses the dynamics dimensions in the horizontal |
6 |
|
|
C and the land dimensions in the horizontal for turbulence variables |
7 |
|
|
c |
8 |
|
|
c Secret Hiding Place - Use to compute gridalt correction term diagnostics |
9 |
|
|
c ------------------------------------------------------------------------ |
10 |
|
|
common /fizhi_SHP/ ubef,vbef,thbef,sbef, |
11 |
|
|
. udynbef,vdynbef,thdynbef,sdynbef |
12 |
|
|
|
13 |
|
|
_RL ubef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
14 |
|
|
_RL vbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
15 |
|
|
_RL thbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
16 |
|
|
_RL sbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nrphys,Nsx,Nsy) |
17 |
|
|
_RL udynbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
18 |
|
|
_RL vdynbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
19 |
|
|
_RL thdynbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |
20 |
|
|
_RL sdynbef(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,Nsx,Nsy) |