| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
126 |
MOISTIO |
_RL offset, alpha, rasmax |
|
./pkg/fizhi/fizhi_moist.F |
171 |
MOISTIO |
offset = 0.10 |
|
./pkg/fizhi/fizhi_moist.F |
2367 |
RNEVP |
2 tmfrc,cp,gravity,alhl,gamfac,cldlz,RHCRIT,offset,alpha) |
|
./pkg/fizhi/fizhi_moist.F |
2379 |
RNEVP |
_RL tmscl,tmfrc,cp,gravity,alhl,gamfac,offset,alpha |
|
./pkg/fizhi/fizhi_moist.F |
2586 |
SRCLOUDS |
1 rhc,offset,alpha) |
|
./pkg/fizhi/fizhi_moist.F |
2630 |
SRCLOUDS |
_RL offset,alpha |
|
./pkg/fizhi/fizhi_moist.F |
2656 |
SRCLOUDS |
rhcrit = rhc(i,L) - offset |
|
./pkg/fizhi/fizhi_moist.F |
2657 |
SRCLOUDS |
ratio = alpha*(rh-rhcrit)/offset |
|
./pkg/fizhi/fizhi_moist.F |
656 |
MOISTIO |
. CLSBTH,TMSTP,one,cp,grav,alhl,gamfac,cldlz,rhcrit,offset,alpha) |
|
./pkg/fizhi/fizhi_moist.F |
701 |
MOISTIO |
. rhcrit,offset,alpha) |
|
./pkg/fizhi/fizhi_utils.F |
395 |
STRIPIT |
integer i,j,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
397 |
STRIPIT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
398 |
STRIPIT |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
399 |
STRIPIT |
offset = offset+1 |
|
./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 |
422 |
STRIPITINT |
integer i,j,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
424 |
STRIPITINT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
425 |
STRIPITINT |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
426 |
STRIPITINT |
offset = offset+1 |
|
./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 |
448 |
PASTIT |
integer ib,ia,L,k,irun,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
452 |
PASTIT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
453 |
PASTIT |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
454 |
PASTIT |
offset = offset+1 |
|
./pkg/fizhi/fizhi_utils.F |
458 |
PASTIT |
a(i+offset-1,j) = b(i,j) |
|
./pkg/fizhi/fizhi_utils.F |
465 |
PSTBITINT |
integer ib,ia,L,k,irun,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
470 |
PSTBITINT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
471 |
PSTBITINT |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
472 |
PSTBITINT |
offset = offset+1 |
|
./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 |
484 |
PSTBMPIT |
integer ib,ia,L,k,irun,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
488 |
PSTBMPIT |
offset = ib*(k-1) |
|
./pkg/fizhi/fizhi_utils.F |
489 |
PSTBMPIT |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
490 |
PSTBMPIT |
offset = offset+1 |
|
./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 |
522 |
STRIP2TILE |
integer i,k,Lena,offset |
|
./pkg/fizhi/fizhi_utils.F |
524 |
STRIP2TILE |
offset = ib*(npeice-1) |
|
./pkg/fizhi/fizhi_utils.F |
525 |
STRIP2TILE |
Lena = min(ib,irun-offset) |
|
./pkg/fizhi/fizhi_utils.F |
526 |
STRIP2TILE |
offset = offset+1 |
|
./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 |
577 |
PASTE2GRD_OLD |
integer i,L,offset,Lena |
|
./pkg/fizhi/fizhi_utils.F |
579 |
PASTE2GRD_OLD |
offset = ib*(npeice-1) |
|
./pkg/fizhi/fizhi_utils.F |
580 |
PASTE2GRD_OLD |
Lena = min(ib,numpts-offset) |
|
./pkg/fizhi/fizhi_utils.F |
581 |
PASTE2GRD_OLD |
offset = offset+1 |
|
./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 |
624 |
PASTE2GRD |
integer i,L,offset,Lena |
|
./pkg/fizhi/fizhi_utils.F |
627 |
PASTE2GRD |
offset = ib*(npeice-1) |
|
./pkg/fizhi/fizhi_utils.F |
628 |
PASTE2GRD |
Lena = min(ib,numpts-offset) |
|
./pkg/fizhi/fizhi_utils.F |
629 |
PASTE2GRD |
offset = offset+1 |
|
./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/diagnostics/diag_vegtile_fill.F |
101 |
DIAG_VEGTILE_FILL |
offset = ib*(npeice-1) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
102 |
DIAG_VEGTILE_FILL |
Lena = MIN(ib,numpts-offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
155 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) - 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
167 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) - 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
222 |
DIAG_VEGTILE_FILL |
offset = ib*(npeice-1) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
223 |
DIAG_VEGTILE_FILL |
Lena = MIN(ib,numpts-offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
229 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
239 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
249 |
DIAG_VEGTILE_FILL |
ij = indx(ivt+offset) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
63 |
DIAG_VEGTILE_FILL |
INTEGER offset, Lena |
|
./pkg/ecco/cost_bp.F |
200 |
COST_BP |
offset = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
209 |
COST_BP |
offset = offset + RA(i,j,bi,bj)*bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
217 |
COST_BP |
_GLOBAL_SUM_RL( offset , mythid ) |
|
./pkg/ecco/cost_bp.F |
228 |
COST_BP |
& - offset/offset_sum |
|
./pkg/ecco/cost_bp.F |
77 |
COST_BP |
_RL offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
352 |
COST_GENCOST_SSHV4 |
offset = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
488 |
COST_GENCOST_SSHV4 |
offset=offset+mean_psMssh_all(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
502 |
COST_GENCOST_SSHV4 |
_GLOBAL_SUM_RL( offset , mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
522 |
COST_GENCOST_SSHV4 |
offset = offset / offset_sum |
|
./pkg/ecco/cost_gencost_sshv4.F |
535 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
541 |
COST_GENCOST_SSHV4 |
& psmean(i,j,bi,bj) -tpmean(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
547 |
COST_GENCOST_SSHV4 |
& psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
84 |
COST_GENCOST_SSHV4 |
_RL offset,fac |
|
./pkg/ecco/cost_ssh.F |
162 |
COST_SSH |
offset = 0. _d 0 |
|
./pkg/ecco/cost_ssh.F |
170 |
COST_SSH |
offset = offset + |
|
./pkg/ecco/cost_ssh.F |
181 |
COST_SSH |
_GLOBAL_SUM_RL( offset , mythid ) |
|
./pkg/ecco/cost_ssh.F |
200 |
COST_SSH |
offset = offset / offset_sum |
|
./pkg/ecco/cost_ssh.F |
207 |
COST_SSH |
prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh.F |
222 |
COST_SSH |
I psmean, offset |
|
./pkg/ecco/cost_ssh.F |
275 |
COST_SSH |
& (tpobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
302 |
COST_SSH |
& (ersobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
329 |
COST_SSH |
& (gfoobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh.F |
73 |
COST_SSH |
_RL offset |
|
./pkg/ecco/cost_ssh_mean.F |
123 |
COST_SSH_MEAN |
& tpmean(i,j,bi,bj) - offset - psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_mean.F |
238 |
COST_SSH_MEAN |
diff = psmean(i,j,bi,bj) - tpmean(i,j,bi,bj) + offset |
|
./pkg/ecco/cost_ssh_mean.F |
275 |
COST_SSH_MEAN |
& ( diff*diff + 2. _d 0*offset*diff + offset*offset ) |
|
./pkg/ecco/cost_ssh_mean.F |
288 |
COST_SSH_MEAN |
costmean = sumC2 + 2. _d 0*offset*sumC1 + offset*offset*sumC0 |
|
./pkg/ecco/cost_ssh_mean.F |
60 |
COST_SSH_MEAN |
_RL offset |
|
./pkg/ecco/cost_ssh_mean.F |
8 |
COST_SSH_MEAN |
I psmean, offset |
|
./pkg/ecco/cost_ssh_new.F |
247 |
COST_SSH_NEW |
offset = 0. _d 0 |
|
./pkg/ecco/cost_ssh_new.F |
255 |
COST_SSH_NEW |
offset = offset + |
|
./pkg/ecco/cost_ssh_new.F |
266 |
COST_SSH_NEW |
_GLOBAL_SUM_RL( offset , mythid ) |
|
./pkg/ecco/cost_ssh_new.F |
285 |
COST_SSH_NEW |
offset = offset / offset_sum |
|
./pkg/ecco/cost_ssh_new.F |
292 |
COST_SSH_NEW |
prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj) |
|
./pkg/ecco/cost_ssh_new.F |
307 |
COST_SSH_NEW |
I psmean, offset |
|
./pkg/ecco/cost_ssh_new.F |
360 |
COST_SSH_NEW |
& (tpobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh_new.F |
389 |
COST_SSH_NEW |
& (ersobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh_new.F |
418 |
COST_SSH_NEW |
& (gfoobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) ) |
|
./pkg/ecco/cost_ssh_new.F |
74 |
COST_SSH_NEW |
_RL offset |
|
./pkg/ecco/cost_sshv4.F |
332 |
COST_SSHV4 |
offset = 0. _d 0 |
|
./pkg/ecco/cost_sshv4.F |
468 |
COST_SSHV4 |
offset=offset+mean_psMssh_all(i,j,bi,bj)* |
|
./pkg/ecco/cost_sshv4.F |
482 |
COST_SSHV4 |
_GLOBAL_SUM_RL( offset , mythid ) |
|
./pkg/ecco/cost_sshv4.F |
502 |
COST_SSHV4 |
offset = offset / offset_sum |
|
./pkg/ecco/cost_sshv4.F |
515 |
COST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_sshv4.F |
521 |
COST_SSHV4 |
& psmean(i,j,bi,bj) -tpmean(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_sshv4.F |
527 |
COST_SSHV4 |
& psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset |
|
./pkg/ecco/cost_sshv4.F |
78 |
COST_SSHV4 |
_RL offset,fac |