| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_suflux.F |
193 |
SUFLUX |
FSSEA =1.+MIN(DTHETAF,MAX(-DTHETAF, TSEA(J)-T0(J,2)))*RDTH |
|
./pkg/aim/phy_suflux.F |
246 |
SUFLUX |
SHF(J,2) = CHSCP*DENVV(J,2)*(TSEA(J) -T0(J,1)) |
|
./pkg/aim/phy_suflux.F |
309 |
SUFLUX |
CALL SHTORH (0,NGP,TSEA ,PSA,1. _d 0,QDUMMY,RDUMMY,QSAT0(1,2),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) |