| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_suflux.F |
103 |
SUFLUX |
_RL FSLAND, FSSEA, CHLCP, CHSCP, QDUMMY(1), RDUMMY(1) |
|
./pkg/aim/phy_suflux.F |
193 |
SUFLUX |
FSSEA =1.+MIN(DTHETAF,MAX(-DTHETAF, TSEA(J)-T0(J,2)))*RDTH |
|
./pkg/aim/phy_suflux.F |
196 |
SUFLUX |
DENVV(J,2)=DENVV(J,3)*FSSEA |
|
./pkg/aim_v23/phy_suflux_ocean.F |
72 |
SUFLUX_OCEAN |
_RL CDENVV(NGP), RDTH, FSSEA |
|
./pkg/aim_v23/phy_suflux_ocean.F |
90 |
SUFLUX_OCEAN |
FSSEA =1.+MIN(DTHETA,MAX(-DTHETA, Tsurf(J)-T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_ocean.F |
91 |
SUFLUX_OCEAN |
CDENVV(J)=CHS*DENVV(J)*FSSEA |