| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_suflux.F |
192 |
SUFLUX |
FSLAND=1.+MIN(DTHETAF,MAX(-DTHETAF,TLAND(J)-T0(J,2)))*RDTH |
|
./pkg/aim/phy_suflux.F |
245 |
SUFLUX |
SHF(J,1) = CHLCP*DENVV(J,1)*(TLAND(J)-T0(J,1)) |
|
./pkg/aim/phy_suflux.F |
308 |
SUFLUX |
CALL SHTORH (0,NGP,TLAND,PSA,1. _d 0,QDUMMY,RDUMMY,QSAT0(1,1),myThid) |
|
./pkg/aim/phy_suflux.F |
64 |
SUFLUX |
* PHI0(NGP), FMASK(NGP), TLAND(NGP), TSEA(NGP), SWAV(NGP), |
|
./pkg/aim/phy_suflux.F |
7 |
SUFLUX |
* PHI0,FMASK,TLAND,TSEA,SWAV,SSR,SLR, |
|
./pkg/aim_v23/phy_suflux_prep.F |
11 |
SUFLUX_PREP |
I FMASK,TLAND,TSEA,TSICE,SSR, |
|
./pkg/aim_v23/phy_suflux_prep.F |
84 |
SUFLUX_PREP |
_RL FMASK(NGP,3), TLAND(NGP), TSEA(NGP), TSICE(NGP) |
|
./pkg/aim_v23/phy_suflux_post.F |
11 |
SUFLUX_POST |
I TLAND, TSEA, TSICE, dTskin, SLRD, |
|
./pkg/aim_v23/phy_suflux_post.F |
128 |
SUFLUX_POST |
TSFC(J) = (FMASK(J,1)*TLAND(J) + FMASK(J,2)*TSEA(J) |
|
./pkg/aim_v23/phy_suflux_post.F |
153 |
SUFLUX_POST |
& 'SUFLUX_POST: T_Lnd,Sea,Sic=',TLAND(J),TSEA(J),TSICE(J), |
|
./pkg/aim_v23/phy_suflux_post.F |
79 |
SUFLUX_POST |
_RL TLAND(NGP), TSEA(NGP), TSICE(NGP), dTskin(NGP), SLRD(NGP) |