| 1 |
C $Header: $ |
| 2 |
C $Name: $ |
| 3 |
C |
| 4 |
C Simple sigma testing fields |
| 5 |
C not meant for permanent use. |
| 6 |
C topo_orog_depthC - topo/orog depth at cell center point |
| 7 |
C (read from file) |
| 8 |
C vintz - Vertically integrated transport ( m^2/s ) |
| 9 |
C used to set uVel at each point. |
| 10 |
C (uVel(i,j,k,bi,bj) = vintz/topo_orog_depthW(i,j,bi,bj) |
| 11 |
C blevs - b levels in hybrid |
| 12 |
C alevs - a levels in hybrid |
| 13 |
C (both given at cell interfaces e.g. w points) |
| 14 |
C s_top - Depth at which sigma finishes. |
| 15 |
C slevs - sigma levels for pure sigma |
| 16 |
C (specified from k=1 to k=nr+1) |
| 17 |
C (with sigma = 0 at top, k=1 : for now at least ) |
| 18 |
_RS topo_orog_depthC(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
| 19 |
REAL*8 vintz |
| 20 |
REAL*8 blevs(Nr+1) |
| 21 |
REAL*8 alevs(Nr+1) |
| 22 |
REAL*8 slevs(Nr+1) |
| 23 |
REAL*8 s_top |
| 24 |
CHARACTER*(MAX_LEN_FNAM) topo_orog_File |
| 25 |
CHARACTER*(MAX_LEN_FNAM) vintz_File |
| 26 |
|
| 27 |
COMMON /SIGMA_TESTING_PARMS_R/ |
| 28 |
& vintz, alevs, blevs, slevs, s_top, |
| 29 |
& topo_orog_depthC |
| 30 |
|
| 31 |
COMMON /SIGMA_TESTING_PARMS_C/ |
| 32 |
& topo_orog_File, |
| 33 |
& vintz_File |
| 34 |
|
| 35 |
|
Parent Directory
| 
Revision Log
| 
Revision Graph