| Symbol | Description | Uses |
| atm_yC | 9 |
| File | Line number | Procedure | Code |
| ./pkg/atm2d/AGRID.h | 4 | NO PROCEDURE |
COMMON/ATM_GRID/atm_yC,atm_yG |
| ./pkg/atm2d/AGRID.h | 5 | NO PROCEDURE |
REAL*4 atm_yC(jm0) ! center points of atmos grid |
| ./pkg/atm2d/init_atm2d.F | 136 | INIT_ATM2D |
IF (( yG(1,j,1,1) .GE. atm_yC(jj)).AND. |
| ./pkg/atm2d/init_atm2d.F | 137 | INIT_ATM2D |
& ( yG(1,j,1,1) .LT. atm_yC(jj+1))) j_atm=jj |
| ./pkg/atm2d/init_atm2d.F | 140 | INIT_ATM2D |
tauv_jwght(j)= 1. _d 0 - (yG(1,j,1,1) - atm_yC(j_atm)) / |
| ./pkg/atm2d/init_atm2d.F | 141 | INIT_ATM2D |
& (atm_yC(j_atm+1) - atm_yC(j_atm)) |
| ./pkg/atm2d/init_atm2d.F | 78 | INIT_ATM2D |
atm_yC(j_atm-1)=(atm_yG(j_atm-1)+atm_yG(j_atm))/2.0 |
| ./pkg/atm2d/init_atm2d.F | 80 | INIT_ATM2D |
atm_yC(jm0)=atm_yG(jm0)+atm_dyG(jm0)/2.0 |