| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_dyn2aim.F |
239 |
AIM_DYN2AIM |
K = kGrd(I2) |
|
./pkg/aim_v23/aim_dyn2aim.F |
56 |
AIM_DYN2AIM |
INTEGER kGrd(NGP) |
|
./pkg/aim_v23/aim_dyn2aim.F |
85 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - ksurfC(I,J,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
9 |
AIM_DYN2AIM |
O kGrd, |
|
./pkg/aim_v23/phy_convmf.F |
104 |
CONVMF |
ITOP(J) =kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
145 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
173 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
189 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
201 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
54 |
CONVMF |
INTEGER kGrd(NGP) |
|
./pkg/aim_v23/phy_convmf.F |
84 |
CONVMF |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_convmf.F |
8 |
CONVMF |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_lscond.F |
109 |
LSCOND |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_lscond.F |
47 |
LSCOND |
INTEGER kGrd(NGP) |
|
./pkg/aim_v23/phy_lscond.F |
8 |
LSCOND |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_radiat.F |
150 |
RADSW |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_radiat.F |
201 |
RADSW |
INTEGER kGrd(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
234 |
RADSW |
NL1(J)=kGrd(J)-1 |
|
./pkg/aim_v23/phy_radiat.F |
269 |
RADSW |
ICLTOP(J)= kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
284 |
RADSW |
IF (kGrd(J).NE.0) |
|
./pkg/aim_v23/phy_radiat.F |
285 |
RADSW |
& QCLOUD(J)= MAX( QA(J,kGrd(J)), QA(J,NL1(J)) ) |
|
./pkg/aim_v23/phy_radiat.F |
339 |
RADSW |
K = kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
347 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
379 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
389 |
RADSW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
421 |
RADSW |
IF ( K .LE. kGrd(J) ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
469 |
RADSW |
IF ( K.GE.ICLTOP(J).AND.K.NE.kGrd(J) ) THEN |
|
./pkg/aim_v23/phy_radiat.F |
501 |
RADLW |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_radiat.F |
552 |
RADLW |
INTEGER kGrd(NGP) |
|
./pkg/aim_v23/phy_radiat.F |
567 |
RADLW |
NL1(J)=kGrd(J)-1 |
|
./pkg/aim_v23/phy_radiat.F |
596 |
RADLW |
K=kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
642 |
RADLW |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_radiat.F |
693 |
RADLW |
DO K=kGrd(J),2,-1 |
|
./pkg/aim_v23/phy_snow_precip.F |
106 |
SNOW_PRECIP |
IF (kGrd(J).NE.0 .AND. IDEPTH(J).NE.0 ) THEN |
|
./pkg/aim_v23/phy_snow_precip.F |
107 |
SNOW_PRECIP |
Ktop = kGrd(J) - IDEPTH(J) |
|
./pkg/aim_v23/phy_snow_precip.F |
14 |
SNOW_PRECIP |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_snow_precip.F |
64 |
SNOW_PRECIP |
INTEGER kGrd(NGP) |
|
./pkg/aim_v23/phy_snow_precip.F |
83 |
SNOW_PRECIP |
IF ( kGrd(J).NE.0 ) THEN |
|
./pkg/aim_v23/phy_snow_precip.F |
84 |
SNOW_PRECIP |
T1(J) = ThA(J,kGrd(J))*(PSA(J)**kappa) |
|
./pkg/aim_v23/phy_snow_precip.F |
98 |
SNOW_PRECIP |
DO K=2,kGrd(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
129 |
SUFLUX_PREP |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
13 |
SUFLUX_PREP |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_suflux_prep.F |
158 |
SUFLUX_PREP |
IF ( kGrd(J) .GT. 0 ) THEN |
|
./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 |
90 |
SUFLUX_PREP |
INTEGER kGrd(NGP) |
|
./pkg/aim_v23/phy_vdifsc.F |
130 |
VDIFSC |
Ktmp = kGrd(J) |
|
./pkg/aim_v23/phy_vdifsc.F |
170 |
VDIFSC |
DO K=3,kGrd(J)-2 |
|
./pkg/aim_v23/phy_vdifsc.F |
190 |
VDIFSC |
DO K=1,kGrd(J)-1 |
|
./pkg/aim_v23/phy_vdifsc.F |
62 |
VDIFSC |
INTEGER kGrd(NGP) |
|
./pkg/aim_v23/phy_vdifsc.F |
8 |
VDIFSC |
I kGrd,bi,bj,myThid) |
|
./pkg/aim_v23/phy_vdifsc.F |
94 |
VDIFSC |
NL1 = kGrd(J)-1 |