| File |
Line number |
Procedure |
Code |
|
./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) |
|
./pkg/aim_v23/phy_radiat.F |
45 |
SOL_OZ |
_RL SLAT(NGP), CLAT(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
6 |
SOL_OZ |
SUBROUTINE SOL_OZ (SOLC, TYEAR, SLAT, CLAT, |
|
./pkg/aim_v23/phy_radiat.F |
91 |
SOL_OZ |
& (1. _d 0-(CLAT(J)*CZEN+SLAT(J)*SZEN))**NZEN |
|
./pkg/aim_v23/phy_radiat.F |
96 |
SOL_OZ |
STRATZ(J)=AST*FSOL(J)*CLAT(J)**3 |