| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_convmf.F |
145 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
146 |
CONVMF |
IF (Ktmp.GT.2) THEN |
|
./pkg/aim_v23/phy_convmf.F |
148 |
CONVMF |
DO K=2,Ktmp-1 |
|
./pkg/aim_v23/phy_convmf.F |
154 |
CONVMF |
DO K=2,Ktmp-1 |
|
./pkg/aim_v23/phy_convmf.F |
173 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
174 |
CONVMF |
IF ( Ktmp .GE. 2 ) THEN |
|
./pkg/aim_v23/phy_convmf.F |
175 |
CONVMF |
dSEdpTot = dSEdp(J,Ktmp-1) |
|
./pkg/aim_v23/phy_convmf.F |
176 |
CONVMF |
DO k=Ktmp-2,2,-1 |
|
./pkg/aim_v23/phy_convmf.F |
178 |
CONVMF |
stab_crit = dSEdpTot + ALHC*(QSAT(J,Ktmp)-QSAT(J,K)) |
|
./pkg/aim_v23/phy_convmf.F |
189 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
190 |
CONVMF |
IF ( Ktmp .NE. 0 ) THEN |
|
./pkg/aim_v23/phy_convmf.F |
191 |
CONVMF |
QATHR(J)=MIN(QBL,RHBL*QSAT(J,Ktmp)) |
|
./pkg/aim_v23/phy_convmf.F |
192 |
CONVMF |
IF (QA(J,Ktmp).LT.QATHR(J).OR.PSA(J).LT.PSMIN) |
|
./pkg/aim_v23/phy_convmf.F |
193 |
CONVMF |
& ITOP(J)=Ktmp |
|
./pkg/aim_v23/phy_convmf.F |
195 |
CONVMF |
IDEPTH(J)=Ktmp-ITOP(J) |
|
./pkg/aim_v23/phy_convmf.F |
201 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
202 |
CONVMF |
IF (ITOP(J).EQ.Ktmp) GO TO 300 |
|
./pkg/aim_v23/phy_convmf.F |
206 |
CONVMF |
K = Ktmp |
|
./pkg/aim_v23/phy_convmf.F |
241 |
CONVMF |
DO K=Ktmp-1,ITOP(J)+1,-1 |
|
./pkg/aim_v23/phy_convmf.F |
275 |
CONVMF |
DFQA(J,Ktmp)=DFQA(J,Ktmp)-FSQ |
|
./pkg/aim_v23/phy_convmf.F |
65 |
CONVMF |
INTEGER J, K, K1, Ktmp |
|
./pkg/aim_v23/phy_convmf.F |
84 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
85 |
CONVMF |
IF ( Ktmp .NE. 0 ) THEN |
|
./pkg/aim_v23/phy_convmf.F |
87 |
CONVMF |
FM0(J)=P0*DSIG(Ktmp)*dpFac(J,Ktmp)/(GG*TRCNV*3600. _d 0) |
|
./pkg/aim_v23/phy_suflux_prep.F |
129 |
SUFLUX_PREP |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
130 |
SUFLUX_PREP |
NL1 = Ktmp-1 |
|
./pkg/aim_v23/phy_suflux_prep.F |
131 |
SUFLUX_PREP |
IF ( Ktmp.GT.1 ) THEN |
|
./pkg/aim_v23/phy_suflux_prep.F |
134 |
SUFLUX_PREP |
T0(J) = TA(J,Ktmp) + WVS(J)*(TA(J,Ktmp)-TA(J,NL1)) |
|
./pkg/aim_v23/phy_suflux_prep.F |
137 |
SUFLUX_PREP |
T1(J) = ThA(J,Ktmp)*(PSA(J)**kappa) |
|
./pkg/aim_v23/phy_suflux_prep.F |
138 |
SUFLUX_PREP |
tmpRH(J)=RH(J,Ktmp) |
|
./pkg/aim_v23/phy_suflux_prep.F |
99 |
SUFLUX_PREP |
INTEGER J, Ktmp, NL1 |
|
./pkg/aim_v23/phy_vdifsc.F |
130 |
VDIFSC |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_vdifsc.F |
131 |
VDIFSC |
NL1 = Ktmp - 1 |
|
./pkg/aim_v23/phy_vdifsc.F |
132 |
VDIFSC |
IF (Ktmp.GE.2) THEN |
|
./pkg/aim_v23/phy_vdifsc.F |
134 |
VDIFSC |
DRH0=RHGRAD*(SIG(Ktmp)-SIG(NL1)) |
|
./pkg/aim_v23/phy_vdifsc.F |
135 |
VDIFSC |
FSHCQ = DSIG(Ktmp)*dpFac(J,Ktmp)/(TRSHC*3600. _d 0) |
|
./pkg/aim_v23/phy_vdifsc.F |
138 |
VDIFSC |
DMSE = dSEdp(J,NL1) + ALHC*(QA(J,Ktmp)-QSAT(J,NL1)) |
|
./pkg/aim_v23/phy_vdifsc.F |
139 |
VDIFSC |
DRH = RH(J,Ktmp)-RH(J,NL1) |
|
./pkg/aim_v23/phy_vdifsc.F |
146 |
VDIFSC |
TTENVD(J,Ktmp) =-FLUXSE*RSIG(Ktmp) |
|
./pkg/aim_v23/phy_vdifsc.F |
149 |
VDIFSC |
FLUXQ = FSHCQ*QSAT(J,Ktmp)*DRH |
|
./pkg/aim_v23/phy_vdifsc.F |
151 |
VDIFSC |
QTENVD(J,Ktmp) =-FLUXQ*RSIG(Ktmp) |
|
./pkg/aim_v23/phy_vdifsc.F |
159 |
VDIFSC |
QTENVD(J,Ktmp) =-FLUXQ*RSIG(Ktmp) |
|
./pkg/aim_v23/phy_vdifsc.F |
68 |
VDIFSC |
INTEGER J, K, Ktmp, NL1 |