| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1008 |
FLUXES |
& (Q0 + ALHX(CHNO)*(ETURB(ChNo)-EMAXRT(CHNO)) - DHSDEA(CHNO)*DEA) |
|
./pkg/fizhi/fizhi_lsm.F |
1041 |
FLUXES |
DTC = ( Q0 + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) / |
|
./pkg/fizhi/fizhi_lsm.F |
1053 |
FLUXES |
Q0X=Q0-ALHM*SNOW(CHNO)/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1060 |
FLUXES |
SMELT(CHNO)=(Q0-Q0SNOW)/ALHM |
|
./pkg/fizhi/fizhi_lsm.F |
1073 |
FLUXES |
DTC = ( Q0 - A12*DEA ) / A11 |
|
./pkg/fizhi/fizhi_lsm.F |
1084 |
FLUXES |
Q0X=Q0-ALHM*SNLEFT/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1090 |
FLUXES |
SMELT(CHNO)=(Q0-Q0SNOW)/ALHM |
|
./pkg/fizhi/fizhi_lsm.F |
858 |
FLUXES |
_RL HLWTC, CDEEPS, Q0, RHOAIR, CONST, DHLWTC, |
|
./pkg/fizhi/fizhi_lsm.F |
886 |
FLUXES |
Q0 = SWNET(ChNo) + |
|
./pkg/fizhi/fizhi_lsm.F |
893 |
FLUXES |
STRDG3(ChNo)=Q0/A11 |
|
./pkg/fizhi/fizhi_lsm.F |
930 |
FLUXES |
DEA = ( Q0*A21 - A11*F0 ) / ( DETERM * A11*A22 ) |
|
./pkg/fizhi/fizhi_lsm.F |
931 |
FLUXES |
DTC = ( Q0 - A12*DEA ) / A11 |
|
./pkg/fizhi/fizhi_lsm.F |
946 |
FLUXES |
DEA = ( Q0*A21 - A11*F0 ) / ( A12*A21 - A11*A22 ) |
|
./pkg/fizhi/fizhi_lsm.F |
947 |
FLUXES |
DTC = ( Q0 - A12*DEA ) / A11 |
|
./pkg/fizhi/fizhi_lsm.F |
970 |
FLUXES |
Q0X=Q0-ALHM*SNLEFT/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
984 |
FLUXES |
SMELT(CHNO)=(Q0-Q0SNOW)/ALHM |
|
./pkg/aim_v23/aim_diagnostics.F |
206 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, Q0, |
|
./pkg/aim_v23/aim_diagnostics.F |
278 |
AIM_DIAGNOSTICS |
& 'aim_Q0',Q0(1,myThid),myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
351 |
AIM_DIAGNOSTICS |
& + Q0(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
434 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( Q0(1,myThid), |
|
./pkg/aim_v23/com_physvar.h |
49 |
NO PROCEDURE |
COMMON /PHYGR3/ TS, TSKIN, T0, Q0, CLOUDC, CLTOP |
|
./pkg/aim_v23/com_physvar.h |
55 |
NO PROCEDURE |
_RL Q0 (NGP,MAX_NO_THREADS) |
|
./pkg/aim_v23/phy_driver.F |
297 |
PHY_DRIVER |
O dTskin,T1s,T0(1,myThid),Q0(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
304 |
PHY_DRIVER |
I T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_driver.F |
323 |
PHY_DRIVER |
O T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_driver.F |
332 |
PHY_DRIVER |
I T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_driver.F |
358 |
PHY_DRIVER |
I T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_suflux_land.F |
12 |
SUFLUX_LAND |
I T1, T0, Q0, DENVV, |
|
./pkg/aim_v23/phy_suflux_land.F |
148 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
149 |
SUFLUX_LAND |
Evp0(J) = Shf0(J)*SWAV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
151 |
SUFLUX_LAND |
& + dShf(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
155 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
156 |
SUFLUX_LAND |
Evp0(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
165 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
166 |
SUFLUX_LAND |
Evp0(J) = Shf0(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
168 |
SUFLUX_LAND |
& + dShf(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
175 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
176 |
SUFLUX_LAND |
Evp0(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
81 |
SUFLUX_LAND |
_RL T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
104 |
SUFLUX_OCEAN |
EVAP(J) = CDENVV(J)*(QSAT0(J)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
12 |
SUFLUX_OCEAN |
I T1, T0, Q0, DENVV, |
|
./pkg/aim_v23/phy_suflux_ocean.F |
61 |
SUFLUX_OCEAN |
_RL T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP) |
|
./pkg/aim_v23/phy_suflux_post.F |
12 |
SUFLUX_POST |
I T0, Q0, DENVV, |
|
./pkg/aim_v23/phy_suflux_post.F |
80 |
SUFLUX_POST |
_RL T0(NGP), Q0(NGP), DENVV(NGP) |
|
./pkg/aim_v23/phy_suflux_prep.F |
12 |
SUFLUX_PREP |
O SPEED0,DRAG,DENVV,dTskin,T1,T0,Q0, |
|
./pkg/aim_v23/phy_suflux_prep.F |
155 |
SUFLUX_PREP |
CALL SHTORH (-1,NGP,T0, PSA, 1. _d 0, Q0, tmpRH, QSAT0, myThid) |
|
./pkg/aim_v23/phy_suflux_prep.F |
159 |
SUFLUX_PREP |
Q0(J)=FHUM0*Q0(J)+GHUM0*QA(J,kGrd(J)) |
|
./pkg/aim_v23/phy_suflux_prep.F |
88 |
SUFLUX_PREP |
_RL dTskin(NGP), T0(NGP), Q0(NGP) |
|
./pkg/aim_v23/phy_suflux_sice.F |
12 |
SUFLUX_SICE |
I T1, T0, Q0, DENVV, |
|
./pkg/aim_v23/phy_suflux_sice.F |
156 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
157 |
SUFLUX_SICE |
Evp0(J) = Shf0(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
159 |
SUFLUX_SICE |
& + dShf(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
163 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
164 |
SUFLUX_SICE |
Evp0(J) = CDENVV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
81 |
SUFLUX_SICE |
_RL T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
11 |
BULKF_FORMULA_AIM |
I T1, T0, Q0, Vsurf, |
|
./pkg/bulk_force/bulkf_formula_aim.F |
190 |
BULKF_FORMULA_AIM |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
191 |
BULKF_FORMULA_AIM |
Evp0(J) = Shf0(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
193 |
BULKF_FORMULA_AIM |
& + dShf(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
197 |
BULKF_FORMULA_AIM |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
198 |
BULKF_FORMULA_AIM |
Evp0(J) = CDENVV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
70 |
BULKF_FORMULA_AIM |
_RL T1(NGP), T0(NGP), Q0(NGP), Vsurf(NGP) |
|
./pkg/ebm/EBM.h |
58 |
NO PROCEDURE |
_RL Q0, Q2, A0, A2, A4 |
|
./pkg/ebm/EBM.h |
59 |
NO PROCEDURE |
PARAMETER ( Q0 = 1365. _d 0 , Q2 = -0.482 _d 0 ) |
|
./pkg/ebm/ebm_atmosphere.F |
250 |
EBM_ATMOSPHERE |
SW(j,bj) = 0.25 _d 0 *Q0*(1. _d 0 + Q2*P2(i,j,bj))* |