| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1375 |
TRBFLX |
_RL RHOZPK(irun,nlev), Q(irun,nlev) |
|
./pkg/fizhi/fizhi_turb.F |
1691 |
TRBFLX |
Q(I,L) = 2. * QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1692 |
TRBFLX |
Q(I,L) = SQRT( Q(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
1786 |
TRBFLX |
Q(I,NLEV) = QBUSTR * USTAR(I) |
|
./pkg/fizhi/fizhi_turb.F |
1787 |
TRBFLX |
QQ(I,NLEV) = 0.5 * Q(I,NLEV) * Q(I,NLEV) |
|
./pkg/fizhi/fizhi_turb.F |
1933 |
TRBFLX |
Q(I,L) = 0. |
|
./pkg/fizhi/fizhi_turb.F |
1952 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./pkg/fizhi/fizhi_turb.F |
1969 |
TRBFLX |
Q(I,L) = QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
1973 |
TRBFLX |
CALL TRBLEN(STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL,QXLM, |
|
./pkg/fizhi/fizhi_turb.F |
1986 |
TRBFLX |
1 ( Q(I,L) .LE. QE(I,L) ) ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
1996 |
TRBFLX |
TEMP(I,L) = Q(I,L) / QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2004 |
TRBFLX |
Q(I,L) = 0.1 * QE(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2007 |
TRBFLX |
1 ( QE(I,L) - Q(I,L) ) |
|
./pkg/fizhi/fizhi_turb.F |
2014 |
TRBFLX |
CALL TRBL25(Q(1,LMINQ),XL(1,LMINQ),STRT(1,LMINQ),DW2(1,LMINQ), |
|
./pkg/fizhi/fizhi_turb.F |
2112 |
TRBFLX |
Q(I,L) = 2. * QQ(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
2113 |
TRBFLX |
Q(I,L) = SQRT(Q(I,L)) |
|
./pkg/fizhi/fizhi_turb.F |
2114 |
TRBFLX |
XQ(I,L)= XL(I,L) * Q(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3338 |
TRBLEN |
SUBROUTINE TRBLEN (STRT,DW2,DZ3,Q,VKZE,VKZM,DTHV,DPK,DU,DV,XL, |
|
./pkg/fizhi/fizhi_turb.F |
3377 |
TRBLEN |
_RL Q(irun,NLEV),VKZM(irun,NLEV-1),VKZE(irun,NLEV-1) |
|
./pkg/fizhi/fizhi_turb.F |
3546 |
TRBLEN |
XL0(I,L) = Q(I,L) / XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3550 |
TRBLEN |
XL0(I,L) = Q(I,L) / XL0(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3594 |
TRBLEN |
Q1(I,L) = Q(I,L) |
|
./pkg/fizhi/fizhi_turb.F |
3596 |
TRBLEN |
IF ( Q(I,L).LE.Q(I,L+1) ) INT1(I,L) = 1 |
|
./pkg/fizhi/fizhi_turb.F |
3599 |
TRBLEN |
Q1(I,L) = Q(I,L+1) |
|
./pkg/fizhi/fizhi_turb.F |
3808 |
TRBL25 |
SUBROUTINE TRBL25(Q,XL,STRT,DW2,INTSTB,INTQ,ZKM,ZKH,P3,NLEV, |
|
./pkg/fizhi/fizhi_turb.F |
3833 |
TRBL25 |
_RL Q(irun*NLEV,1),XL(irun*NLEV,1),STRT(irun*NLEV,1) |
|
./pkg/fizhi/fizhi_turb.F |
3868 |
TRBL25 |
XQ(I,1) = XL(I,1) / Q(I,1) |
|
./pkg/fizhi/fizhi_turb.F |
3884 |
TRBL25 |
P3(I,1) = P3(I,1)*Q(I,1) |
|
./pkg/fizhi/fizhi_utils.F |
183 |
QSAT |
SUBROUTINE QSAT (TT,P,Q,DQDT,LDQDT) |
|
./pkg/fizhi/fizhi_utils.F |
205 |
QSAT |
_RL TT, P, Q, DQDT |
|
./pkg/fizhi/fizhi_utils.F |
366 |
QSAT |
Q = 1.0 |
|
./pkg/fizhi/fizhi_utils.F |
370 |
QSAT |
Q = MIN(QX * D,1.0 _d 0) |
|
./pkg/fizhi/fizhi_utils.F |
371 |
QSAT |
IF (LDQDT) DQDT = (1.0 + ERFAC*Q) * D * DQX |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
29 |
GAD_OS7MP_ADV_R |
_RL Q (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
66 |
GAD_OS7MP_ADV_R |
Qippp = Q(i,j,kp2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
67 |
GAD_OS7MP_ADV_R |
Qipp = Q(i,j,kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
68 |
GAD_OS7MP_ADV_R |
Qip = Q(i,j,k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
69 |
GAD_OS7MP_ADV_R |
Qi = Q(i,j,km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
70 |
GAD_OS7MP_ADV_R |
Qim = Q(i,j,km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
71 |
GAD_OS7MP_ADV_R |
Qimm = Q(i,j,km3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
72 |
GAD_OS7MP_ADV_R |
Qimmm = Q(i,j,km4) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
81 |
GAD_OS7MP_ADV_R |
Qippp = Q(i,j,km3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
82 |
GAD_OS7MP_ADV_R |
Qipp = Q(i,j,km2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
83 |
GAD_OS7MP_ADV_R |
Qip = Q(i,j,km1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
84 |
GAD_OS7MP_ADV_R |
Qi = Q(i,j,k) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
85 |
GAD_OS7MP_ADV_R |
Qim = Q(i,j,kp1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
86 |
GAD_OS7MP_ADV_R |
Qimm = Q(i,j,kp2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
87 |
GAD_OS7MP_ADV_R |
Qimmm = Q(i,j,kp3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_r.F |
9 |
GAD_OS7MP_ADV_R |
I Q, |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
31 |
GAD_OS7MP_ADV_X |
_RL Q (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
70 |
GAD_OS7MP_ADV_X |
Qippp = Q(i+2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
71 |
GAD_OS7MP_ADV_X |
Qipp = Q(i+1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
72 |
GAD_OS7MP_ADV_X |
Qip = Q(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
73 |
GAD_OS7MP_ADV_X |
Qi = Q(i-1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
74 |
GAD_OS7MP_ADV_X |
Qim = Q(i-2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
75 |
GAD_OS7MP_ADV_X |
Qimm = Q(i-3,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
76 |
GAD_OS7MP_ADV_X |
Qimmm = Q(i-4,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
85 |
GAD_OS7MP_ADV_X |
Qippp = Q(i-3,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
86 |
GAD_OS7MP_ADV_X |
Qipp = Q(i-2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
87 |
GAD_OS7MP_ADV_X |
Qip = Q(i-1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
88 |
GAD_OS7MP_ADV_X |
Qi = Q(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
89 |
GAD_OS7MP_ADV_X |
Qim = Q(i+1,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
90 |
GAD_OS7MP_ADV_X |
Qimm = Q(i+2,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
91 |
GAD_OS7MP_ADV_X |
Qimmm = Q(i+3,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_x.F |
9 |
GAD_OS7MP_ADV_X |
I maskLocW, Q, |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
31 |
GAD_OS7MP_ADV_Y |
_RL Q (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
70 |
GAD_OS7MP_ADV_Y |
Qippp = Q(i,j+2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
71 |
GAD_OS7MP_ADV_Y |
Qipp = Q(i,j+1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
72 |
GAD_OS7MP_ADV_Y |
Qip = Q(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
73 |
GAD_OS7MP_ADV_Y |
Qi = Q(i,j-1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
74 |
GAD_OS7MP_ADV_Y |
Qim = Q(i,j-2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
75 |
GAD_OS7MP_ADV_Y |
Qimm = Q(i,j-3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
76 |
GAD_OS7MP_ADV_Y |
Qimmm = Q(i,j-4) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
85 |
GAD_OS7MP_ADV_Y |
Qippp = Q(i,j-3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
86 |
GAD_OS7MP_ADV_Y |
Qipp = Q(i,j-2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
87 |
GAD_OS7MP_ADV_Y |
Qip = Q(i,j-1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
88 |
GAD_OS7MP_ADV_Y |
Qi = Q(i,j) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
89 |
GAD_OS7MP_ADV_Y |
Qim = Q(i,j+1) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
90 |
GAD_OS7MP_ADV_Y |
Qimm = Q(i,j+2) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
91 |
GAD_OS7MP_ADV_Y |
Qimmm = Q(i,j+3) |
|
./pkg/generic_advdiff/gad_os7mp_adv_y.F |
9 |
GAD_OS7MP_ADV_Y |
I maskLocS, Q, |
|
./pkg/sbo/sbo_rho.F |
25 |
NO PROCEDURE |
_RL PLAT,D,C1,P,PR,Q,X,SR,V350P,B |
|
./pkg/sbo/sbo_rho.F |
48 |
NO PROCEDURE |
Q = PR*((((-2.1687E-16*T+1.8676E-14)*T-4.6206E-13)*P+ |
|
./pkg/sbo/sbo_rho.F |
54 |
NO PROCEDURE |
T = T + 0.5*Q |
|
./pkg/sbo/sbo_rho.F |
62 |
NO PROCEDURE |
T = T + 0.29289322*(x-Q) |
|
./pkg/sbo/sbo_rho.F |
63 |
NO PROCEDURE |
Q = 0.58578644*x + 0.121320344*Q |
|
./pkg/sbo/sbo_rho.F |
70 |
NO PROCEDURE |
T = T + 1.707106781*(x-Q) |
|
./pkg/sbo/sbo_rho.F |
71 |
NO PROCEDURE |
Q = 3.414213562*x - 4.121320344*Q |
|
./pkg/sbo/sbo_rho.F |
78 |
NO PROCEDURE |
T = T + (x-2.0*Q)/6.0 |
|
./pkg/sphere/sphere.F |
315 |
SHC2ZONE |
REAL A, B, E, F, Q, DA, DB, XLAT |
|
./pkg/sphere/sphere.F |
338 |
SHC2ZONE |
Q = FACT(L)*P(K) |
|
./pkg/sphere/sphere.F |
339 |
SHC2ZONE |
DA = Q*SHC(J+M) |
|
./pkg/sphere/sphere.F |
340 |
SHC2ZONE |
DB = Q*SHC(J-M) |
|
./pkg/sphere/sphere.F |
347 |
SHC2ZONE |
Q = FACT(L+1)*P(K) |
|
./pkg/sphere/sphere.F |
348 |
SHC2ZONE |
DA = Q*SHC(J+M) |
|
./pkg/sphere/sphere.F |
349 |
SHC2ZONE |
DB = Q*SHC(J-M) |
|
./pkg/sphere/sphere.F |
358 |
SHC2ZONE |
Q = FACT(LMAX)*P(K) |
|
./pkg/sphere/sphere.F |
359 |
SHC2ZONE |
DA = Q*SHC(J+M) |
|
./pkg/sphere/sphere.F |
360 |
SHC2ZONE |
DB = Q*SHC(J-M) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1006 |
COST_GENCOST_SSHV4 |
if ( (2*jrec.EQ.ndaysave).OR.(2*jrec-1.EQ.ndaysave) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1018 |
COST_GENCOST_SSHV4 |
if ( (2*jrec.EQ.ndaysave).OR.(2*jrec-1.EQ.ndaysave) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
994 |
COST_GENCOST_SSHV4 |
if ( (2*jrec.EQ.ndaysave).OR.(2*jrec-1.EQ.ndaysave) ) |