| File |
Line number |
Procedure |
Code |
|
./pkg/atm2d/ATM2D_VARS.h |
157 |
NO PROCEDURE |
& endwgt1, endwgt2, rsumwgt, tauv_jpt, tauv_jwght |
|
./pkg/atm2d/ATM2D_VARS.h |
162 |
NO PROCEDURE |
_RL endwgt1 ! weighting of atmos polar cap |
|
./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 |
101 |
INIT_ATM2D |
endwgt1 = endwgt1 + 1. _d 0 !and goes 90S to 90N |
|
./pkg/atm2d/init_atm2d.F |
102 |
INIT_ATM2D |
rsumwgt = 1. _d 0/(endwgt1 + endwgt2) |
|
./pkg/atm2d/init_atm2d.F |
99 |
INIT_ATM2D |
endwgt1 = sin(atm_yG(2)*deg2rad) !hard-coded that the atmos |
|
./pkg/atm2d/read_atmos.F |
83 |
READ_ATMOS |
& CALL COMBINE_ENDS(endwgt1,endwgt2,1,2,rsumwgt) |
|
./pkg/atm2d/read_atmos.F |
85 |
READ_ATMOS |
& CALL COMBINE_ENDS(endwgt1,endwgt2,jm0,jm0-1,rsumwgt) |