| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interpolate.F |
16 |
NO PROCEDURE |
_RL FUNCTION LAGRAN(i,x,a,sp) |
|
./pkg/exf/exf_interpolate.F |
32 |
NO PROCEDURE |
_RL a(4) |
|
./pkg/exf/exf_interpolate.F |
47 |
NO PROCEDURE |
denom = denom*(a(i) - a(k)) |
|
./pkg/exf/exf_interpolate.F |
48 |
NO PROCEDURE |
numer = numer*(x - a(k)) |
|
./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) |
|
./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) |
|
./model/src/impldiff.F |
130 |
IMPLDIFF |
a(i,j,1) = 0. _d 0 |
|
./model/src/impldiff.F |
141 |
IMPLDIFF |
a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k)*recip_drF(k) |
|
./model/src/impldiff.F |
145 |
IMPLDIFF |
IF (recip_hFac(i,j,k-1).EQ.0.) a(i,j,k)=0. |
|
./model/src/impldiff.F |
187 |
IMPLDIFF |
b(i,j,k) = 1. _d 0 - ( a(i,j,k) + c(i,j,k) ) |
|
./model/src/impldiff.F |
241 |
IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./model/src/impldiff.F |
242 |
IMPLDIFF |
& bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) |
|
./model/src/impldiff.F |
269 |
IMPLDIFF |
& (gTracer(i,j,k) - a(i,j,k)*locTr(i,j,k-1)) |
|
./model/src/impldiff.F |
67 |
IMPLDIFF |
_RL a(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
134 |
SMOOTH_IMPLDIFF |
IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.) |
|
./pkg/smooth/smooth_impldiff.F |
135 |
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 |
153 |
SMOOTH_IMPLDIFF |
& (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj)) |
|
./pkg/smooth/smooth_impldiff.F |
39 |
SMOOTH_IMPLDIFF |
_RL a(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
|
./pkg/smooth/smooth_impldiff.F |
60 |
SMOOTH_IMPLDIFF |
a(i,j,1) = 0. _d 0 |
|
./pkg/smooth/smooth_impldiff.F |
66 |
SMOOTH_IMPLDIFF |
a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k) |
|
./pkg/smooth/smooth_impldiff.F |
70 |
SMOOTH_IMPLDIFF |
IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0. |
|
./pkg/smooth/smooth_impldiff.F |
97 |
SMOOTH_IMPLDIFF |
b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k) |
|
./model/src/update_masks_etc.F |
361 |
UPDATE_MASKS_ETC |
_RS FUNCTION SMOOTHMIN_RS( a, b ) |
|
./model/src/update_masks_etc.F |
365 |
UPDATE_MASKS_ETC |
_RS a, b |
|
./model/src/update_masks_etc.F |
371 |
UPDATE_MASKS_ETC |
SMOOTHMIN_RS = .5*( a+b - SMOOTHABS_RS(a-b) ) |
|
./model/src/update_masks_etc.F |
377 |
UPDATE_MASKS_ETC |
_RL FUNCTION SMOOTHMIN_RL( a, b ) |
|
./model/src/update_masks_etc.F |
381 |
UPDATE_MASKS_ETC |
_RL a, b |
|
./model/src/update_masks_etc.F |
387 |
UPDATE_MASKS_ETC |
SMOOTHMIN_RL = .5*( a+b - SMOOTHABS_RL(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/autodiff/tamc.h |
23 |
NO PROCEDURE |
These lines are here to deliberately cause a compile-time error. |
|
./pkg/bling/bling_carbon_chem.F |
178 |
CALC_PCO2 |
a = x3 + k1plocal*x2 + k12p*x + k123p |
|
./pkg/bling/bling_carbon_chem.F |
179 |
CALC_PCO2 |
a2=a*a |
|
./pkg/bling/bling_carbon_chem.F |
192 |
CALC_PCO2 |
& pt*k12p*x/a + |
|
./pkg/bling/bling_carbon_chem.F |
193 |
CALC_PCO2 |
& 2.0*pt*k123p/a + |
|
./pkg/bling/bling_carbon_chem.F |
198 |
CALC_PCO2 |
& pt*x3/a - |
|
./pkg/bling/bling_carbon_chem.F |
209 |
CALC_PCO2 |
& (pt*k12p*(a - x*da))/a2 - |
|
./pkg/bling/bling_carbon_chem.F |
215 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
|
./pkg/bling/bling_carbon_chem.F |
250 |
CALC_PCO2 |
a = x3 + k1plocal*x2 + k12p*x + k123p |
|
./pkg/bling/bling_carbon_chem.F |
251 |
CALC_PCO2 |
a2=a*a |
|
./pkg/bling/bling_carbon_chem.F |
261 |
CALC_PCO2 |
& pt*k12p*x/a + |
|
./pkg/bling/bling_carbon_chem.F |
262 |
CALC_PCO2 |
& 2.0*pt*k123p/a + |
|
./pkg/bling/bling_carbon_chem.F |
267 |
CALC_PCO2 |
& pt*x3/a - |
|
./pkg/bling/bling_carbon_chem.F |
90 |
CALC_PCO2 |
_RL a |
|
./pkg/dic/carbon_chem.F |
183 |
CALC_PCO2 |
a = x3 + k1plocal*x2 + k12p*x + k123p |
|
./pkg/dic/carbon_chem.F |
184 |
CALC_PCO2 |
a2=a*a |
|
./pkg/dic/carbon_chem.F |
197 |
CALC_PCO2 |
& pt*k12p*x/a + |
|
./pkg/dic/carbon_chem.F |
198 |
CALC_PCO2 |
& 2.0*pt*k123p/a + |
|
./pkg/dic/carbon_chem.F |
203 |
CALC_PCO2 |
& pt*x3/a - |
|
./pkg/dic/carbon_chem.F |
214 |
CALC_PCO2 |
& (pt*k12p*(a - x*da))/a2 - |
|
./pkg/dic/carbon_chem.F |
220 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
|
./pkg/dic/carbon_chem.F |
255 |
CALC_PCO2 |
a = x3 + k1plocal*x2 + k12p*x + k123p |
|
./pkg/dic/carbon_chem.F |
256 |
CALC_PCO2 |
a2=a*a |
|
./pkg/dic/carbon_chem.F |
266 |
CALC_PCO2 |
& pt*k12p*x/a + |
|
./pkg/dic/carbon_chem.F |
267 |
CALC_PCO2 |
& 2.0*pt*k123p/a + |
|
./pkg/dic/carbon_chem.F |
272 |
CALC_PCO2 |
& pt*x3/a - |
|
./pkg/dic/carbon_chem.F |
95 |
CALC_PCO2 |
_RL a |