| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_radiat.F |
113 |
SOL_OZ |
IF ( CLAT(J) .EQ. 0. _d 0 ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
116 |
SOL_OZ |
TanLat = SLAT(J)/CLAT(J) |
|
./pkg/aim_v23/phy_radiat.F |
122 |
SOL_OZ |
& (SLAT(J)*SZEN*HourAng+CLAT(J)*CZEN*SIN(HourAng)) |
|
./pkg/aim_v23/phy_radiat.F |
131 |
SOL_OZ |
& (1. _d 0-(CLAT(J)*CZEN+SLAT(J)*SZEN))**NZEN |
|
./pkg/aim_v23/phy_radiat.F |
136 |
SOL_OZ |
STRATZ(J)=AST*FSOL(J)*CLAT(J)**3 |
|
./pkg/aim_v23/phy_radiat.F |
17 |
SOL_OZ |
SUBROUTINE SOL_OZ (SOLC, TYEAR, SLAT, CLAT, |
|
./pkg/aim_v23/phy_radiat.F |
55 |
SOL_OZ |
_RL SLAT(NGP), CLAT(NGP) |
|
./pkg/aim_v23/phy_suflux_prep.F |
10 |
SUFLUX_PREP |
I PSA,TA,QA,RH,ThA,Vsurf2,WVS,CLAT,FOROG, |
|
./pkg/aim_v23/phy_suflux_prep.F |
181 |
SUFLUX_PREP |
dTskin(J)=CTDAY*CLAT(J)*SSR(J)*PSA(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
83 |
SUFLUX_PREP |
_RL Vsurf2(NGP), WVS(NGP), CLAT(NGP), FOROG(NGP) |