| File |
Line number |
Procedure |
Code |
|
./pkg/aim/com_physvar.h |
85 |
NO PROCEDURE |
& USTR, VSTR, SHF, EVAP, T0, Q0, QSAT0, |
|
./pkg/aim/com_physvar.h |
99 |
NO PROCEDURE |
_RL Q0 (NGP,MAX_NO_THREADS) |
|
./pkg/aim/phy_suflux.F |
161 |
SUFLUX |
CALL SHTORH (-1,NGP,T0,PSA,1. _d 0,Q0,WORK,QSAT0,myThid) |
|
./pkg/aim/phy_suflux.F |
165 |
SUFLUX |
Q0(J)=FHUM0*Q0(J)+GHUM0*QA(J,NLEVxy(J,myThid)) |
|
./pkg/aim/phy_suflux.F |
313 |
SUFLUX |
EVAP(J,1)=CHL*DENVV(J,1)*MIN(1. _d 0,SWAV(J))*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim/phy_suflux.F |
318 |
SUFLUX |
EVAP(J,2) = CHS*DENVV(J,2)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim/phy_suflux.F |
68 |
SUFLUX |
_RL T0(NGP,2),Q0(NGP),QSAT0(NGP,2), SPEED0(NGP) |
|
./pkg/aim/phy_suflux.F |
8 |
SUFLUX |
* DRAG,USTR,VSTR,SHF,EVAP,T0,Q0,QSAT0,SPEED0, |
|
./pkg/aim/phy_driver.F |
202 |
PDRIVER |
& EVAP(1,1,myThid),T0(1,1,myThid),Q0(1,myThid), |
|
./pkg/ebm/EBM.h |
48 |
NO PROCEDURE |
_RL Q0, Q2, A0, A2, A4 |
|
./pkg/ebm/EBM.h |
49 |
NO PROCEDURE |
PARAMETER ( Q0 = 1365., Q2 = -0.482) |
|
./pkg/ebm/ebm_atmosphere.F |
229 |
EBM_ATMOSPHERE |
SW(j,bj) = 0.25*Q0*(1 + Q2*P2(i,j,bj))* |
|
./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_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/com_physvar.h |
45 |
NO PROCEDURE |
COMMON /PHYGR3/ TS, TSKIN, T0, Q0, CLOUDC, CLTOP |
|
./pkg/aim_v23/com_physvar.h |
51 |
NO PROCEDURE |
_RL Q0 (NGP,MAX_NO_THREADS) |
|
./pkg/aim_v23/phy_suflux_sice.F |
12 |
SUFLUX_SICE |
I T1, T0, Q0, DENVV, |
|
./pkg/aim_v23/phy_suflux_sice.F |
155 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
156 |
SUFLUX_SICE |
Evp0(J) = Shf0(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
158 |
SUFLUX_SICE |
& + dShf(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
162 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
163 |
SUFLUX_SICE |
Evp0(J) = CDENVV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
80 |
SUFLUX_SICE |
_RL T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP) |
|
./pkg/aim_v23/aim_diagnostics.F |
132 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,Q0(1,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
201 |
AIM_DIAGNOSTICS |
& + Q0(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
289 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( Q0(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
243 |
PHY_DRIVER |
O dTskin,T1s,T0(1,myThid),Q0(1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
250 |
PHY_DRIVER |
I T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_driver.F |
269 |
PHY_DRIVER |
O T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_driver.F |
278 |
PHY_DRIVER |
I T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_driver.F |
304 |
PHY_DRIVER |
I T0(1,myThid), Q0(1,myThid), DENVV, |
|
./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/seaice/growth.F |
220 |
GROWTH |
GHEFF(I,J)=-SEAICE_deltaTtherm*FHEFF(I,J,bi,bj)*Q0 |
|
./pkg/seaice/growth.F |
221 |
GROWTH |
GAREA(I,J)=SEAICE_deltaTtherm*FO(I,J,bi,bj)*Q0 |
|
./pkg/seaice/growth.F |
240 |
GROWTH |
& FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj) |
|
./pkg/seaice/growth.F |
246 |
GROWTH |
& FICE(I,J,bi,bj)*Q0*AR(I,J,bi,bj))/Q0/SEAICE_deltaTtherm |
|
./pkg/seaice/growth.F |
41 |
GROWTH |
_RL TBC, salinity_ice, SDF, Q0, QS |
|
./pkg/seaice/growth.F |
58 |
GROWTH |
Q0=1.0D-06/302.0 _d +00 ! INVERSE HEAT OF FUSION OF ICE |