| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/AGRID.h |
4 |
NO PROCEDURE |
COMMON/ATM_GRID/atm_yC,atm_yG |
|
./pkg/atm2d/AGRID.h |
6 |
NO PROCEDURE |
REAL*4 atm_yG(jm0) ! southern boundary of atmos grid cells |
|
./pkg/atm2d/init_atm2d.F |
100 |
INIT_ATM2D |
endwgt2 = sin(atm_yG(3)*deg2rad) - endwgt1 !grid is same in NH and SH |
|
./pkg/atm2d/init_atm2d.F |
104 |
INIT_ATM2D |
atm_yG(2)=atm_yG(1) ! grid now combined atm end points |
|
./pkg/atm2d/init_atm2d.F |
105 |
INIT_ATM2D |
atm_yG(jm0)=90. _d 0 |
|
./pkg/atm2d/init_atm2d.F |
110 |
INIT_ATM2D |
IF ((yG(1,j,1,1).GE.atm_yG(jj)).AND. |
|
./pkg/atm2d/init_atm2d.F |
111 |
INIT_ATM2D |
& (yG(1,j,1,1).LT.atm_yG(jj+1))) j_atm=jj |
|
./pkg/atm2d/init_atm2d.F |
117 |
INIT_ATM2D |
enda1 = sin(atm_yG(j_atm) *deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
118 |
INIT_ATM2D |
enda2 = sin(atm_yG(j_atm+1) *deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
119 |
INIT_ATM2D |
IF ( yG(1,j+1,1,1) .GT. atm_yG(j_atm+1) ) THEN |
|
./pkg/atm2d/init_atm2d.F |
120 |
INIT_ATM2D |
enda3 = sin(atm_yG(j_atm+2) *deg2rad) |
|
./pkg/atm2d/init_atm2d.F |
172 |
INIT_ATM2D |
& (sin(atm_yG(j_atm+1)*deg2rad) - sin(atm_yG(j_atm)*deg2rad))) |
|
./pkg/atm2d/init_atm2d.F |
179 |
INIT_ATM2D |
& (sin(atm_yG(3)*deg2rad)+1. _d 0)) |
|
./pkg/atm2d/init_atm2d.F |
184 |
INIT_ATM2D |
& (1. _d 0-sin(atm_yG(jm0-1)*deg2rad))) |
|
./pkg/atm2d/init_atm2d.F |
75 |
INIT_ATM2D |
atm_yG(1)=-90.0 |
|
./pkg/atm2d/init_atm2d.F |
77 |
INIT_ATM2D |
atm_yG(j_atm)=atm_yG(j_atm-1)+atm_dyG(j_atm-1) |
|
./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 |
|
./pkg/atm2d/init_atm2d.F |
88 |
INIT_ATM2D |
& (sin(atm_yG(3)*deg2rad)-sin(atm_yG(1)*deg2rad)) |
|
./pkg/atm2d/init_atm2d.F |
95 |
INIT_ATM2D |
& (sin((atm_yG(jm0)+atm_dyG(jm0))*deg2rad)- |
|
./pkg/atm2d/init_atm2d.F |
96 |
INIT_ATM2D |
& sin(atm_yG(jm0-1)*deg2rad)) |
|
./pkg/atm2d/init_atm2d.F |
99 |
INIT_ATM2D |
endwgt1 = sin(atm_yG(2)*deg2rad) !hard-coded that the atmos |