| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_fillnegs.F |
108 |
TRACER_FILL |
a = getcon('EARTH RADIUS') |
|
./pkg/fizhi/fizhi_fillnegs.F |
129 |
TRACER_FILL |
dxu(i,j) = a*cos(phi(j))*dlam(i) |
|
./pkg/fizhi/fizhi_fillnegs.F |
135 |
TRACER_FILL |
dyv(i,j) = a*dphi(j) |
|
./pkg/fizhi/fizhi_fillnegs.F |
139 |
TRACER_FILL |
dyv(i,1) = a*(dphi(1) +0.5*dphi(2) ) |
|
./pkg/fizhi/fizhi_fillnegs.F |
140 |
TRACER_FILL |
dyv(i,jm-1) = a*(dphi(jm-1)+0.5*dphi(jm-2)) |
|
./pkg/fizhi/fizhi_fillnegs.F |
92 |
TRACER_FILL |
_RL pi,a,getcon,undef |
|
./pkg/fizhi/fizhi_gwdrag.F |
368 |
GWDD |
_RL a,g,agrav,akwnmb |
|
./pkg/fizhi/fizhi_gwdrag.F |
375 |
GWDD |
a = 1.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
460 |
GWDD |
gstar = g*frsf*frsf/(frsf*frsf+a*a) |
|
./pkg/fizhi/fizhi_moist.F |
2329 |
ACRITN |
_RL a(lma) |
|
./pkg/fizhi/fizhi_moist.F |
2338 |
ACRITN |
data a / 3.35848, 3.13645, 2.48072, 2.08277, 1.53364, |
|
./pkg/fizhi/fizhi_moist.F |
2349 |
ACRITN |
acr(i) = a(L+1)*temp + a(L)*(1-temp) |
|
./pkg/fizhi/fizhi_moist.F |
2355 |
ACRITN |
if( pl(i).lt.p(1) ) acr(i) = a(1) |
|
./pkg/fizhi/fizhi_moist.F |
2356 |
ACRITN |
if( pl(i).gt.p(lma) ) acr(i) = a(lma) |
|
./pkg/fizhi/fizhi_utils.F |
391 |
STRIPIT |
subroutine STRIPIT(a,b,irun,ia,ib,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
394 |
STRIPIT |
_RL a(ia,l), b(ib,l) |
|
./pkg/fizhi/fizhi_utils.F |
404 |
STRIPIT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
409 |
STRIPIT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
412 |
STRIPIT |
b(Lena+i,j) = a(Lena+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
419 |
STRIPITINT |
subroutine STRIPITINT(a,b,irun,ia,ib,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
421 |
STRIPITINT |
integer ia,ib,irun,l,k,a(ia,l),b(ib,l) |
|
./pkg/fizhi/fizhi_utils.F |
431 |
STRIPITINT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
436 |
STRIPITINT |
b(i,j) = a(i+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
439 |
STRIPITINT |
b(Lena+i,j) = a(Lena+offset-1,j) |
|
./pkg/fizhi/fizhi_utils.F |
446 |
PASTIT |
subroutine PASTIT(b,a,ib,ia,irun,L,k) |
|
./pkg/fizhi/fizhi_utils.F |
450 |
PASTIT |
_RL a(ia,l), b(ib,l) |
|
./pkg/fizhi/fizhi_utils.F |
458 |
PASTIT |
a(i+offset-1,j) = b(i,j) |
|
./pkg/fizhi/fizhi_utils.F |
463 |
PSTBITINT |
subroutine PSTBITINT(b,a,ib,ia,irun,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
466 |
PSTBITINT |
_RL a(ia,l) |
|
./pkg/fizhi/fizhi_utils.F |
476 |
PSTBITINT |
a(i+offset-1,j) = a(i+offset-1,j) + float(b(i,j)) |
|
./pkg/fizhi/fizhi_utils.F |
482 |
PSTBMPIT |
subroutine PSTBMPIT(b,a,ib,ia,irun,l,k) |
|
./pkg/fizhi/fizhi_utils.F |
485 |
PSTBMPIT |
_RL a(ia,l), b(ib,l) |
|
./pkg/fizhi/fizhi_utils.F |
494 |
PSTBMPIT |
a(i+offset-1,j) = a(i+offset-1,j) + b(i,j) |
|
./pkg/fizhi/fizhi_utils.F |
499 |
STRIP2TILE |
subroutine STRIP2TILE(a,indx,b,irun,ia,ib,levs,npeice) |
|
./pkg/fizhi/fizhi_utils.F |
520 |
STRIP2TILE |
_RL a(ia,levs), b(ib,levs) |
|
./pkg/fizhi/fizhi_utils.F |
531 |
STRIP2TILE |
b(i,k) = a(indx(i+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
536 |
STRIP2TILE |
b(i,k) = a(indx(i+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
539 |
STRIP2TILE |
b(Lena+i,k) = a(indx(Lena+offset-1),k) |
|
./pkg/fizhi/fizhi_utils.F |
546 |
PASTE2GRD_OLD |
subroutine PASTE2GRD_OLD(b,indx,chfr,ib,numpts,a,ia,levs,npeice) |
|
./pkg/fizhi/fizhi_utils.F |
575 |
PASTE2GRD_OLD |
_RL a(ia,levs), b(ib,levs), chfr(ib) |
|
./pkg/fizhi/fizhi_utils.F |
585 |
PASTE2GRD_OLD |
a(indx(i+offset-1),L) = a(indx(i+offset-1),L) + b(i,L)*chfr(i) |
|
./pkg/fizhi/fizhi_utils.F |
590 |
PASTE2GRD |
subroutine PASTE2GRD (b,indx,chfr,ib,numpts,a,ia,levs,npeice, |
|
./pkg/fizhi/fizhi_utils.F |
621 |
PASTE2GRD |
_RL a(ia,levs), b(ib,levs), chfr(ib) |
|
./pkg/fizhi/fizhi_utils.F |
635 |
PASTE2GRD |
if( a(indx(i+offset-1),L).eq.undef .or. b(i,L).eq.undef ) then |
|
./pkg/fizhi/fizhi_utils.F |
636 |
PASTE2GRD |
a(indx(i+offset-1),L) = undef |
|
./pkg/fizhi/fizhi_utils.F |
638 |
PASTE2GRD |
a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i) |
|
./pkg/fizhi/fizhi_utils.F |
645 |
PASTE2GRD |
a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i) |
|
./pkg/ggl90/ggl90_calc.F |
101 |
GGL90_CALC |
_RL a(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/ggl90/ggl90_calc.F |
457 |
GGL90_CALC |
a(i,j,1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
467 |
GGL90_CALC |
a(i,j,k) = -deltaTggl90 |
|
./pkg/ggl90/ggl90_calc.F |
499 |
GGL90_CALC |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./pkg/ggl90/ggl90_calc.F |
523 |
GGL90_CALC |
& - a(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
524 |
GGL90_CALC |
a(i,j,kp1) = 0. _d 0 |
|
./pkg/ggl90/ggl90_calc.F |
535 |
GGL90_CALC |
I a, b, c, |
|
./model/inc/SIZE.h |
4 |
NO PROCEDURE |
These lines are here to deliberately cause a compile-time error. |
|
./pkg/ptracers/PTRACERS_MOD.h |
25 |
NO PROCEDURE |
PtrISt(g)som_P(a,b,c,d,e,f) |
|
./pkg/smooth/smooth_impldiff.F |
112 |
SMOOTH_IMPLDIFF |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./pkg/smooth/smooth_impldiff.F |
149 |
SMOOTH_IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./pkg/smooth/smooth_impldiff.F |
150 |
SMOOTH_IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./pkg/smooth/smooth_impldiff.F |
168 |
SMOOTH_IMPLDIFF |
& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_impldiff.F |
54 |
SMOOTH_IMPLDIFF |
_RL a(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
75 |
SMOOTH_IMPLDIFF |
a(i,j,1) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
81 |
SMOOTH_IMPLDIFF |
a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
85 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./model/src/impldiff.F |
127 |
IMPLDIFF |
a(i,j,1) = 0. _d 0 |
|
./model/src/impldiff.F |
138 |
IMPLDIFF |
a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./model/src/impldiff.F |
142 |
IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./model/src/impldiff.F |
184 |
IMPLDIFF |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./model/src/impldiff.F |
236 |
IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./model/src/impldiff.F |
237 |
IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./model/src/impldiff.F |
265 |
IMPLDIFF |
& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj)) |
|
./model/src/impldiff.F |
64 |
IMPLDIFF |
_RL a(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./model/src/update_masks_etc.F |
367 |
UPDATE_MASKS_ETC |
_RS function smoothMin_R4( a, b ) |
|
./model/src/update_masks_etc.F |
371 |
UPDATE_MASKS_ETC |
_RS a, b |
|
./model/src/update_masks_etc.F |
377 |
UPDATE_MASKS_ETC |
smoothMin_R4 = .5*( a+b - smoothAbs_R4(a-b) ) |
|
./model/src/update_masks_etc.F |
383 |
UPDATE_MASKS_ETC |
_RL function smoothMin_R8( a, b ) |
|
./model/src/update_masks_etc.F |
387 |
UPDATE_MASKS_ETC |
_RL a, b |
|
./model/src/update_masks_etc.F |
393 |
UPDATE_MASKS_ETC |
smoothMin_R8 = .5*( a+b - smoothAbs_R8(a-b) ) |
|
./pkg/atm2d/OCNIDS.h |
4 |
NO PROCEDURE |
These lines are here to deliberately cause a compile-time error. |
|
./pkg/atm2d/OCNIDS.h |
8 |
NO PROCEDURE |
You need: a) to place you own copy of OCNIDS.h in a directory |
|
./pkg/atm_ocn_coupler/ATMIDS.h |
4 |
NO PROCEDURE |
These lines are here to deliberately cause a compile-time error. |
|
./pkg/atm_ocn_coupler/ATMIDS.h |
8 |
NO PROCEDURE |
You need: a) to place you own copy of ATMIDS.h in a directory |
|
./pkg/atm_ocn_coupler/OCNIDS.h |
4 |
NO PROCEDURE |
These lines are here to deliberately cause a compile-time error. |
|
./pkg/atm_ocn_coupler/OCNIDS.h |
8 |
NO PROCEDURE |
You need: a) to place you own copy of OCNIDS.h in a directory |
|
./pkg/dic/carbon_chem.F |
179 |
CALC_PCO2 |
a = x3 + k1plocal*x2 + k12p*x + k123p |
|
./pkg/dic/carbon_chem.F |
180 |
CALC_PCO2 |
a2=a*a |
|
./pkg/dic/carbon_chem.F |
193 |
CALC_PCO2 |
& pt*k12p*x/a + |
|
./pkg/dic/carbon_chem.F |
194 |
CALC_PCO2 |
& 2.0*pt*k123p/a + |
|
./pkg/dic/carbon_chem.F |
199 |
CALC_PCO2 |
& pt*x3/a - |
|
./pkg/dic/carbon_chem.F |
210 |
CALC_PCO2 |
& (pt*k12p*(a - x*da))/a2 - |
|
./pkg/dic/carbon_chem.F |
216 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
|
./pkg/dic/carbon_chem.F |
251 |
CALC_PCO2 |
a = x3 + k1plocal*x2 + k12p*x + k123p |
|
./pkg/dic/carbon_chem.F |
252 |
CALC_PCO2 |
a2=a*a |
|
./pkg/dic/carbon_chem.F |
262 |
CALC_PCO2 |
& pt*k12p*x/a + |
|
./pkg/dic/carbon_chem.F |
263 |
CALC_PCO2 |
& 2.0*pt*k123p/a + |
|
./pkg/dic/carbon_chem.F |
268 |
CALC_PCO2 |
& pt*x3/a - |
|
./pkg/dic/carbon_chem.F |
92 |
CALC_PCO2 |
_RL a |
|
./pkg/exf/exf_interp.F |
16 |
NO PROCEDURE |
_RL FUNCTION LAGRAN(i,x,a,sp) |
|
./pkg/exf/exf_interp.F |
20 |
NO PROCEDURE |
_RL a(4) |
|
./pkg/exf/exf_interp.F |
35 |
NO PROCEDURE |
denom = denom*(a(i) - a(k)) |
|
./pkg/exf/exf_interp.F |
36 |
NO PROCEDURE |
numer = numer*(x - a(k)) |