| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_readparms.F |
51 |
ECCO_READPARMS |
INTEGER k, k2, iUnit, num_file, num_var |
|
./pkg/ecco/ecco_readparms.F |
555 |
ECCO_READPARMS |
do k2=1,NGENPPROC |
|
./pkg/ecco/ecco_readparms.F |
556 |
ECCO_READPARMS |
no_preproc(k2) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
557 |
ECCO_READPARMS |
no_preproc_c(k2) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
558 |
ECCO_READPARMS |
no_preproc_i(k2) = 0 |
|
./pkg/ecco/ecco_readparms.F |
559 |
ECCO_READPARMS |
no_preproc_r(k2) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
560 |
ECCO_READPARMS |
no_posproc(k2) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
561 |
ECCO_READPARMS |
no_posproc_c(k2) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
562 |
ECCO_READPARMS |
no_posproc_i(k2) = 0 |
|
./pkg/ecco/ecco_readparms.F |
563 |
ECCO_READPARMS |
no_posproc_r(k2) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
564 |
ECCO_READPARMS |
clim_preproc(k2) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
565 |
ECCO_READPARMS |
clim_preproc_i(k2) = 0 |
|
./pkg/ecco/ecco_readparms.F |
566 |
ECCO_READPARMS |
anom_preproc(k2) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
588 |
ECCO_READPARMS |
do k2=1,NGENPPROC |
|
./pkg/ecco/ecco_readparms.F |
589 |
ECCO_READPARMS |
gencost_preproc(k2,k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
590 |
ECCO_READPARMS |
gencost_preproc_c(k2,k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
591 |
ECCO_READPARMS |
gencost_preproc_i(k2,k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
592 |
ECCO_READPARMS |
gencost_preproc_r(k2,k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
593 |
ECCO_READPARMS |
gencost_posproc(k2,k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
594 |
ECCO_READPARMS |
gencost_posproc_c(k2,k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
595 |
ECCO_READPARMS |
gencost_posproc_i(k2,k) = 0 |
|
./pkg/ecco/ecco_readparms.F |
596 |
ECCO_READPARMS |
gencost_posproc_r(k2,k) = 0. _d 0 |
|
./pkg/ecco/ecco_readparms.F |
620 |
ECCO_READPARMS |
do k2 = 1,nr |
|
./pkg/ecco/ecco_readparms.F |
621 |
ECCO_READPARMS |
gencost_mskVertical(k2,k)= 1. _d 0 |
|
./pkg/ecco/ecco_summary.F |
44 |
ECCO_SUMMARY |
integer k, k2, il, msgunit |
|
./pkg/ecco/ecco_summary.F |
827 |
ECCO_SUMMARY |
do k2 = 1, NGENPPROC |
|
./pkg/ecco/ecco_summary.F |
828 |
ECCO_SUMMARY |
if (gencost_preproc(k2,k).NE.' ') then |
|
./pkg/ecco/ecco_summary.F |
829 |
ECCO_SUMMARY |
il = ilnblnk(gencost_preproc(k2,k)) |
|
./pkg/ecco/ecco_summary.F |
831 |
ECCO_SUMMARY |
& gencost_preproc(k2,k)(1:il) |
|
./pkg/ecco/ecco_summary.F |
834 |
ECCO_SUMMARY |
if (gencost_posproc(k2,k).NE.' ') then |
|
./pkg/ecco/ecco_summary.F |
835 |
ECCO_SUMMARY |
il = ilnblnk(gencost_posproc(k2,k)) |
|
./pkg/ecco/ecco_summary.F |
837 |
ECCO_SUMMARY |
& gencost_posproc(k2,k)(1:il) |
|
./pkg/fizhi/fizhi_lwrad.F |
1401 |
IRRAD |
do 3000 k2=k1+1,np+1 |
|
./pkg/fizhi/fizhi_lwrad.F |
1420 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1424 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1429 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nh,nt,sh2o,swpre,swtem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1438 |
IRRAD |
call H2OKDIS(ib,m,n,np,k2-1,fkw,gkw,ne,h2oexp,conexp, |
|
./pkg/fizhi/fizhi_lwrad.F |
1454 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,nc,nt,sco3,scopre,scotem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1460 |
IRRAD |
call CO2KDIS(m,n,np,k2-1,co2exp,tco2,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1473 |
IRRAD |
call TABLUP(k1,k2,m,n,np,nx,no,nt,sco3,scopre,scotem, |
|
./pkg/fizhi/fizhi_lwrad.F |
1485 |
IRRAD |
call N2OKDIS(ib,m,n,np,k2-1,n2oexp,tn2o,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1491 |
IRRAD |
call CH4KDIS(ib,m,n,np,k2-1,ch4exp,tch4,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1497 |
IRRAD |
call COMKDIS(ib,m,n,np,k2-1,comexp,tcom,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1503 |
IRRAD |
call CFCKDIS(m,n,np,k2-1,f11exp,tf11,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1509 |
IRRAD |
call CFCKDIS(m,n,np,k2-1,f12exp,tf12,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1515 |
IRRAD |
call CFCKDIS(m,n,np,k2-1,f22exp,tf22,trant) |
|
./pkg/fizhi/fizhi_lwrad.F |
1522 |
IRRAD |
call B10KDIS(m,n,np,k2-1,h2oexp,conexp,co2exp,n2oexp |
|
./pkg/fizhi/fizhi_lwrad.F |
1532 |
IRRAD |
ff=0.5+(0.3739+(0.0076+0.1185*asyal(i,j,k2-1,ib)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1533 |
IRRAD |
* *asyal(i,j,k2-1,ib))*asyal(i,j,k2-1,ib) |
|
./pkg/fizhi/fizhi_lwrad.F |
1534 |
IRRAD |
taux=taual(i,j,k2-1,ib)*(1.-ssaal(i,j,k2-1,ib)*ff) |
|
./pkg/fizhi/fizhi_lwrad.F |
1547 |
IRRAD |
if( k2 .le. ict ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1548 |
IRRAD |
clrhi(i,j)=min(clr(i,j,k2-1),clrhi(i,j)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1549 |
IRRAD |
elseif( k2 .gt. ict .and. k2 .le. icb ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1550 |
IRRAD |
clrmd(i,j)=min(clr(i,j,k2-1),clrmd(i,j)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1551 |
IRRAD |
elseif( k2 .gt. icb ) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1552 |
IRRAD |
clrlw(i,j)=min(clr(i,j,k2-1),clrlw(i,j)) |
|
./pkg/fizhi/fizhi_lwrad.F |
1566 |
IRRAD |
if (k2 .eq. k1+1) then |
|
./pkg/fizhi/fizhi_lwrad.F |
1574 |
IRRAD |
flcd(i,j,k2)=flcd(i,j,k2)+blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1579 |
IRRAD |
flxd(i,j,k2)=flxd(i,j,k2)+blayer(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
1591 |
IRRAD |
xx=trant(i,j)*dlayer(i,j,k2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1595 |
IRRAD |
flcd(i,j,k2) =flcd(i,j,k2)+xx |
|
./pkg/fizhi/fizhi_lwrad.F |
1596 |
IRRAD |
flxd(i,j,k2) =flxd(i,j,k2)+xx*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1609 |
IRRAD |
* *dlayer(i,j,k2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1610 |
IRRAD |
rflx(i,j,k2) = rflx(i,j,k2)+trant(i,j)*fclr(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
1613 |
IRRAD |
* *dlayer(i,j,k2) |
|
./pkg/fizhi/fizhi_lwrad.F |
1614 |
IRRAD |
rflc(i,j,k2) = rflc(i,j,k2)+trant(i,j) |
|
./pkg/fizhi/fizhi_lwrad.F |
2464 |
TABLUP |
subroutine TABLUP(k1,k2,m,n,np,nx,nh,nt,sabs,spre,stem,w1,p1, |
|
./pkg/fizhi/fizhi_lwrad.F |
2503 |
TABLUP |
integer k1,k2,m,n,np,nx,nh,nt,i,j |
|
./pkg/fizhi/fizhi_lwrad.F |
2527 |
TABLUP |
x1=sabs(i,j,k2)-sabs(i,j,k1) |
|
./pkg/fizhi/fizhi_lwrad.F |
2528 |
TABLUP |
x2=(spre(i,j,k2)-spre(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
2529 |
TABLUP |
x3=(stem(i,j,k2)-stem(i,j,k1))/x1 |
|
./pkg/fizhi/fizhi_lwrad.F |
563 |
IRRAD |
integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2 |
|
./pkg/fizhi/fizhi_utils.F |
733 |
CHPPRM |
integer k1,k2,nymd1,nhms1,nymd2,nhms2,i |
|
./pkg/fizhi/fizhi_utils.F |
865 |
CHPPRM |
call TIME_BOUND ( nymd,nhms, nymd1,nhms1, nymd2,nhms2, k1,k2 ) |
|
./pkg/fizhi/fizhi_utils.F |
870 |
CHPPRM |
zoch(i) = vgz0(k2,ityp(i))*facp + vgz0(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
871 |
CHPPRM |
rdcs(i) = vgrd(k2,ityp(i))*facp + vgrd(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
873 |
CHPPRM |
rootl = vgrt(k2,ityp(i))*facp + vgrt(k1,ityp(i))*facm |
|
./pkg/fizhi/fizhi_utils.F |
887 |
CHPPRM |
d = vgdd(k2,ityp(i))*facp + vgdd(k1,ityp(i))*facm |
|
./pkg/fizhi/update_earth_exports.F |
721 |
GETLGR |
INTEGER i,midmon,midm,midp,id,k1,k2,kk1,kk2 |
|
./pkg/flt/flt_interp_linear.F |
138 |
FLT_TRILINEAR |
INTEGER i1, j1, k1, i2, j2, k2 |
|
./pkg/flt/flt_interp_linear.F |
178 |
FLT_TRILINEAR |
k2 = k1 + 1 |
|
./pkg/flt/flt_interp_linear.F |
183 |
FLT_TRILINEAR |
k2 = MIN( MAX( k2, 1 ), Nr ) |
|
./pkg/flt/flt_interp_linear.F |
191 |
FLT_TRILINEAR |
& + ddz *( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k2,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
192 |
FLT_TRILINEAR |
& + ddx * ddy *var(i2,j2,k2,bi,bj) ) |
|
./pkg/flt/flt_interp_linear.F |
193 |
FLT_TRILINEAR |
& + ( ddx*(1.-ddy) *var(i2,j1,k2,bi,bj) |
|
./pkg/flt/flt_interp_linear.F |
194 |
FLT_TRILINEAR |
& + (1.-ddx)* ddy *var(i1,j2,k2,bi,bj) ) ) |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
52 |
MON_STATS_LATBND_RL |
INTEGER km, k1, k2 |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
76 |
MON_STATS_LATBND_RL |
k2 = myNr |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
79 |
MON_STATS_LATBND_RL |
k2 = kLoc |
|
./pkg/monitor/mon_stats_latbnd_rl.F |
98 |
MON_STATS_LATBND_RL |
DO k=k1,k2 |
|
./pkg/opps/opps_calc.F |
176 |
OPPS_CALC |
DO k2=k,KMax-1 |
|
./pkg/opps/opps_calc.F |
177 |
OPPS_CALC |
D1=STATE1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
178 |
OPPS_CALC |
D2=STATE1( tracerEnv(k2+1,2), tracerEnv(k2+1,1), |
|
./pkg/opps/opps_calc.F |
179 |
OPPS_CALC |
& i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
180 |
OPPS_CALC |
De(k2+1)=D2 |
|
./pkg/opps/opps_calc.F |
189 |
OPPS_CALC |
IF (D2-D1 .LT. STABILITY_THRESHOLD.or.k2.ne.k) THEN |
|
./pkg/opps/opps_calc.F |
191 |
OPPS_CALC |
dz2=DrF(k2+1) |
|
./pkg/opps/opps_calc.F |
195 |
OPPS_CALC |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)* |
|
./pkg/opps/opps_calc.F |
200 |
OPPS_CALC |
PlumeEntrainment(k2+1) = newflux/StartingFlux |
|
./pkg/opps/opps_calc.F |
206 |
OPPS_CALC |
& 'S/R OPPS_CALC: Plume entrained to zero at level ', k2 |
|
./pkg/opps/opps_calc.F |
211 |
OPPS_CALC |
maxdepth = k2 |
|
./pkg/opps/opps_calc.F |
224 |
OPPS_CALC |
pmix=(dz1*tracerEnv(k2,ktr)+dz2*tracerEnv(k2+1,ktr)) |
|
./pkg/opps/opps_calc.F |
226 |
OPPS_CALC |
Pd(k2+1,ktr)=Pd(k2,ktr) |
|
./pkg/opps/opps_calc.F |
227 |
OPPS_CALC |
& - entrainrate*(pmix - Pd(k2,ktr)) |
|
./pkg/opps/opps_calc.F |
233 |
OPPS_CALC |
Dd(k2+1)=STATE1(Pd(k2+1,2),Pd(k2+1,1),i,j,k2+1,bi,bj,myThid) |
|
./pkg/opps/opps_calc.F |
241 |
OPPS_CALC |
& 'S/R OPPS_CALC: Dd,De,entr,k ',Dd(k2),De(k2),entrainrate,k2 |
|
./pkg/opps/opps_calc.F |
248 |
OPPS_CALC |
& (dz1*(Dd(k2)-De(k2))/De(k2) |
|
./pkg/opps/opps_calc.F |
249 |
OPPS_CALC |
& +dz2*(Dd(k2+1)-De(k2+1))/De(k2+1)) |
|
./pkg/opps/opps_calc.F |
254 |
OPPS_CALC |
maxdepth = k2 |
|
./pkg/opps/opps_calc.F |
258 |
OPPS_CALC |
& 'S/R OPPS_CALC: Plume velocity went to zero at level ', k2 |
|
./pkg/opps/opps_calc.F |
268 |
OPPS_CALC |
& (Dd(k2)-De(k2))/De(k2), (Dd(k2+1)-De(k2+1))/De(k2+1) |
|
./pkg/opps/opps_calc.F |
276 |
OPPS_CALC |
Wd(k2+1)=sqrt(wsqr) |
|
./pkg/opps/opps_calc.F |
281 |
OPPS_CALC |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |
|
./pkg/opps/opps_calc.F |
283 |
OPPS_CALC |
maxdepth=k2 |
|
./pkg/opps/opps_calc.F |
306 |
OPPS_CALC |
DO k2=k+1,maxDepth |
|
./pkg/opps/opps_calc.F |
307 |
OPPS_CALC |
Md(k2)=Md(k)*PlumeEntrainment(k2) |
|
./pkg/opps/opps_calc.F |
311 |
OPPS_CALC |
& 'S/R OPPS_CALC: Md, Wd, and k are ',Md(k2),Wd(k2),k2 |
|
./pkg/opps/opps_calc.F |
327 |
OPPS_CALC |
do k2=k,maxDepth-1 |
|
./pkg/opps/opps_calc.F |
328 |
OPPS_CALC |
IF ( Wd(K2) .NE. 0. _d 0 ) dt = min(dt,drF(k2)/Wd(k2)) |
|
./pkg/opps/opps_calc.F |
342 |
OPPS_CALC |
mda(k2) = (md(k2)*drF(k2)+md(k2+1)*drF(k2+1))/ |
|
./pkg/opps/opps_calc.F |
343 |
OPPS_CALC |
* (drF(k2)+drF(k2+1)) |
|
./pkg/opps/opps_calc.F |
345 |
OPPS_CALC |
wda(k2) = (wd(k2)*drF(k2)+wd(k2+1)*drF(k2+1))/ |
|
./pkg/opps/opps_calc.F |
346 |
OPPS_CALC |
* (drF(k2)+drF(k2+1)) |
|
./pkg/opps/opps_calc.F |
349 |
OPPS_CALC |
Pda(k2,ktr) = Pd(k2,ktr) |
|
./pkg/opps/opps_calc.F |
350 |
OPPS_CALC |
Paa(k2,ktr) = tracerEnv(k2+1,ktr) |
|
./pkg/opps/opps_calc.F |
384 |
OPPS_CALC |
DO k2=k+1,kmx |
|
./pkg/opps/opps_calc.F |
385 |
OPPS_CALC |
k2m1 = max(k,k2-1) |
|
./pkg/opps/opps_calc.F |
386 |
OPPS_CALC |
k2p1 = max(k2+1,maxDepth) |
|
./pkg/opps/opps_calc.F |
389 |
OPPS_CALC |
tracerEnv(k2,ktr) = tracerEnv(k2,ktr) + |
|
./pkg/opps/opps_calc.F |
391 |
OPPS_CALC |
& -mda(k2) *(Pda(k2,ktr) -Paa(k2,ktr)) ) |
|
./pkg/opps/opps_calc.F |
392 |
OPPS_CALC |
& *dt*recip_drF(k2) |
|
./pkg/opps/opps_calc.F |
408 |
OPPS_CALC |
DO k2=1,kmx |
|
./pkg/opps/opps_calc.F |
409 |
OPPS_CALC |
paa(k2,ktr) = tracerEnv(k2+1,ktr) |
|
./pkg/opps/opps_calc.F |
572 |
NLOPPS |
integer is,ie,k2 |
|
./pkg/opps/opps_calc.F |
701 |
NLOPPS |
DO k2=k,NumGridPoints-1 |
|
./pkg/opps/opps_calc.F |
702 |
NLOPPS |
D1=state1(Sd(k2),Td(k2),k2+1) |
|
./pkg/opps/opps_calc.F |
703 |
NLOPPS |
D2=state1(stemp(k2+1),ttemp(k2+1),k2+1) |
|
./pkg/opps/opps_calc.F |
704 |
NLOPPS |
De(k2+1)=D2 |
|
./pkg/opps/opps_calc.F |
710 |
NLOPPS |
IF (D2-D1 .LT. STABILITY_THRESHOLD.or.k2.ne.k) THEN |
|
./pkg/opps/opps_calc.F |
712 |
NLOPPS |
dz2=GridThickness(k2+1) |
|
./pkg/opps/opps_calc.F |
716 |
NLOPPS |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50* |
|
./pkg/opps/opps_calc.F |
719 |
NLOPPS |
PlumeEntrainment(k2+1) = newflux/StartingFlux |
|
./pkg/opps/opps_calc.F |
723 |
NLOPPS |
write(0,*)"Plume entrained to zero at ",k2 |
|
./pkg/opps/opps_calc.F |
725 |
NLOPPS |
maxdepth = k2 |
|
./pkg/opps/opps_calc.F |
737 |
NLOPPS |
smix=(dz1*stemp(k2)+dz2*stemp(k2+1))/(dz1+dz2) |
|
./pkg/opps/opps_calc.F |
738 |
NLOPPS |
thmix=(dz1*ttemp(k2)+dz2*ttemp(k2+1))/(dz1+dz2) |
|
./pkg/opps/opps_calc.F |
743 |
NLOPPS |
sd(k2+1)=sd(k2) - entrainrate*(smix - sd(k2)) |
|
./pkg/opps/opps_calc.F |
744 |
NLOPPS |
td(k2+1)=td(k2) - entrainrate*(thmix - td(k2)) |
|
./pkg/opps/opps_calc.F |
749 |
NLOPPS |
Dd(k2+1)=state1(Sd(k2+1),Td(k2+1),k2+1) |
|
./pkg/opps/opps_calc.F |
755 |
NLOPPS |
write(0,*)"Dd,De,entr,k ",Dd(k2),De(k2),entrainrate,k2 |
|
./pkg/opps/opps_calc.F |
759 |
NLOPPS |
. (dz1*(Dd(k2)-De(k2))/De(k2) |
|
./pkg/opps/opps_calc.F |
760 |
NLOPPS |
. +dz2*(Dd(k2+1)-De(k2+1))/De(k2+1)) |
|
./pkg/opps/opps_calc.F |
765 |
NLOPPS |
maxdepth = k2 |
|
./pkg/opps/opps_calc.F |
767 |
NLOPPS |
write(0,*)"Plume velocity went to zero at ",k2 |
|
./pkg/opps/opps_calc.F |
772 |
NLOPPS |
Wd(k2+1)=sqrt(wsqr) |
|
./pkg/opps/opps_calc.F |
776 |
NLOPPS |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |
|
./pkg/opps/opps_calc.F |
778 |
NLOPPS |
maxdepth=k2 |
|
./pkg/opps/opps_calc.F |
802 |
NLOPPS |
DO k2=k+1,MaxDepth |
|
./pkg/opps/opps_calc.F |
803 |
NLOPPS |
Md(k2)=Md(k)*PlumeEntrainment(k2) |
|
./pkg/opps/opps_calc.F |
805 |
NLOPPS |
write(0,*)"Md, Wd, and k are ",Md(k2),Wd(k2),k2 |
|
./pkg/opps/opps_calc.F |
819 |
NLOPPS |
do k2=k,maxdepth-1 |
|
./pkg/opps/opps_calc.F |
820 |
NLOPPS |
dt = min(dt,dz(k2)/wd(k2)) |
|
./pkg/opps/opps_calc.F |
834 |
NLOPPS |
mda(k2) = (md(k2)*dz(k2)+md(k2+1)*dz(k2+1))/ |
|
./pkg/opps/opps_calc.F |
835 |
NLOPPS |
* (dz(k2)+dz(k2+1)) |
|
./pkg/opps/opps_calc.F |
837 |
NLOPPS |
wda(k2) = (wd(k2)*dz(k2)+wd(k2+1)*dz(k2+1))/ |
|
./pkg/opps/opps_calc.F |
838 |
NLOPPS |
* (dz(k2)+dz(k2+1)) |
|
./pkg/opps/opps_calc.F |
840 |
NLOPPS |
tda(k2) = td(k2) |
|
./pkg/opps/opps_calc.F |
841 |
NLOPPS |
sda(k2) = sd(k2) |
|
./pkg/opps/opps_calc.F |
843 |
NLOPPS |
taa(k2) = ttemp(k2+1) |
|
./pkg/opps/opps_calc.F |
844 |
NLOPPS |
saa(k2) = stemp(k2+1) |
|
./pkg/opps/opps_calc.F |
868 |
NLOPPS |
do k2=k+1,Maxdepth-1 |
|
./pkg/opps/opps_calc.F |
870 |
NLOPPS |
ttemp(k2) = ttemp(k2) + |
|
./pkg/opps/opps_calc.F |
871 |
NLOPPS |
* (mda(k2-1)*(tda(k2-1)-taa(k2-1))- |
|
./pkg/opps/opps_calc.F |
872 |
NLOPPS |
* mda(k2)*(tda(k2)-taa(k2))) |
|
./pkg/opps/opps_calc.F |
873 |
NLOPPS |
* *dt*recip_drF(k2) |
|
./pkg/opps/opps_calc.F |
875 |
NLOPPS |
stemp(k2) = stemp(k2) + |
|
./pkg/opps/opps_calc.F |
876 |
NLOPPS |
* (mda(k2-1)*(sda(k2-1)-saa(k2-1))- |
|
./pkg/opps/opps_calc.F |
877 |
NLOPPS |
* mda(k2)*(sda(k2)-saa(k2))) |
|
./pkg/opps/opps_calc.F |
878 |
NLOPPS |
* *dt*recip_drF(k2) |
|
./pkg/opps/opps_calc.F |
892 |
NLOPPS |
do k2=1,maxdepth-1 |
|
./pkg/opps/opps_calc.F |
893 |
NLOPPS |
taa(k2) = ttemp(k2+1) |
|
./pkg/opps/opps_calc.F |
894 |
NLOPPS |
saa(k2) = stemp(k2+1) |
|
./pkg/opps/opps_calc.F |
908 |
NLOPPS |
do k2=k,maxdepth |
|
./pkg/opps/opps_calc.F |
909 |
NLOPPS |
convadj(i,j,k2) = convadj(i,j,k2) + (ttemp(k2)- |
|
./pkg/opps/opps_calc.F |
910 |
NLOPPS |
* ta(i,k2)) |
|
./pkg/opps/opps_calc.F |
911 |
NLOPPS |
sa(i,k2) = stemp(k2) |
|
./pkg/opps/opps_calc.F |
912 |
NLOPPS |
ta(i,k2) = ttemp(k2) |
|
./pkg/profiles/cost_profiles.F |
158 |
COST_PROFILES |
do k2 = 1, NLEVELCOMB |
|
./pkg/profiles/cost_profiles.F |
160 |
COST_PROFILES |
& prof_depth_comb(k2,bi,bj).AND. |
|
./pkg/profiles/cost_profiles.F |
161 |
COST_PROFILES |
& prof_depth_comb(k2,bi,bj).GE.0. _d 0.AND. |
|
./pkg/profiles/cost_profiles.F |
163 |
COST_PROFILES |
prof_lev_comb(k,num_file,bi,bj) = k2 |
|
./pkg/profiles/cost_profiles.F |
64 |
COST_PROFILES |
integer k2, ix9, iy9, ktmp |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
104 |
CTRL_MAP_INI_GENTIM2D |
do k2 = 1, maxCtrlProc |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
105 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'smooth') then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
106 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
107 |
CTRL_MAP_INI_GENTIM2D |
& smoothOpNb=xx_gentim2d_preproc_i(k2,iarr) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
113 |
CTRL_MAP_INI_GENTIM2D |
do k2 = 1, maxCtrlProc |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
114 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'replicate') then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
115 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) then |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
116 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
136 |
CTRL_MAP_INI_GENTIM2D |
do k2 = 1, maxCtrlProc |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
137 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'variaweight') |
|
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_gentim2d.F |
67 |
CTRL_MAP_INI_GENTIM2D |
integer i,j,k2 |
|
./pkg/ctrl/ctrl_cost_driver.F |
126 |
CTRL_COST_DRIVER |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_cost_driver.F |
127 |
CTRL_COST_DRIVER |
if (xx_genarr3d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_cost_driver.F |
48 |
CTRL_COST_DRIVER |
integer k2 |
|
./pkg/ctrl/ctrl_cost_driver.F |
60 |
CTRL_COST_DRIVER |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_cost_driver.F |
61 |
CTRL_COST_DRIVER |
if (xx_gentim2d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_cost_driver.F |
69 |
CTRL_COST_DRIVER |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_cost_driver.F |
70 |
CTRL_COST_DRIVER |
if (xx_gentim2d_preproc(k2,iarr).EQ.'replicate') then |
|
./pkg/ctrl/ctrl_cost_driver.F |
71 |
CTRL_COST_DRIVER |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) then |
|
./pkg/ctrl/ctrl_cost_driver.F |
72 |
CTRL_COST_DRIVER |
endrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./pkg/ctrl/ctrl_cost_driver.F |
98 |
CTRL_COST_DRIVER |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_cost_driver.F |
99 |
CTRL_COST_DRIVER |
if (xx_genarr2d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_init.F |
78 |
CTRL_INIT |
INTEGER ilgen, k2, diffrecFull, endrecFull |
|
./pkg/ctrl/ctrl_init.F |
879 |
CTRL_INIT |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_init.F |
880 |
CTRL_INIT |
if (xx_gentim2d_preproc(k2,iarr).EQ.'replicate') |
|
./pkg/ctrl/ctrl_init.F |
881 |
CTRL_INIT |
& xx_gentim2d_preproc(k2,iarr)='docycle' |
|
./pkg/ctrl/ctrl_init.F |
882 |
CTRL_INIT |
if (xx_gentim2d_preproc(k2,iarr).EQ.'doglomean') |
|
./pkg/ctrl/ctrl_init.F |
884 |
CTRL_INIT |
if (xx_gentim2d_preproc(k2,iarr).EQ.'documul') |
|
./pkg/ctrl/ctrl_init.F |
890 |
CTRL_INIT |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_init.F |
891 |
CTRL_INIT |
if (xx_gentim2d_preproc(k2,iarr).EQ.'docycle') then |
|
./pkg/ctrl/ctrl_init.F |
892 |
CTRL_INIT |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) then |
|
./pkg/ctrl/ctrl_init.F |
893 |
CTRL_INIT |
diffrec=min(diffrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./pkg/ctrl/ctrl_init.F |
894 |
CTRL_INIT |
endrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
200 |
CTRL_MAP_GENARR2D |
integer numsmo, k2 |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
235 |
CTRL_MAP_GENARR2D |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
236 |
CTRL_MAP_GENARR2D |
if (xx_genarr2d_preproc(k2,iarr).EQ.'WC01') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
238 |
CTRL_MAP_GENARR2D |
if (xx_genarr2d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
239 |
CTRL_MAP_GENARR2D |
& numsmo=xx_genarr2d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
242 |
CTRL_MAP_GENARR2D |
& (xx_genarr2d_preproc(k2,iarr).EQ.'smooth')) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
244 |
CTRL_MAP_GENARR2D |
if (xx_genarr2d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
245 |
CTRL_MAP_GENARR2D |
& numsmo=xx_genarr2d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
247 |
CTRL_MAP_GENARR2D |
if (xx_genarr2d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
353 |
CTRL_MAP_GENARR3D |
integer numsmo,k2 |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
393 |
CTRL_MAP_GENARR3D |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
394 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_preproc(k2,iarr).EQ.'WC01') then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
396 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
397 |
CTRL_MAP_GENARR3D |
& numsmo=xx_genarr3d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
400 |
CTRL_MAP_GENARR3D |
& (xx_genarr3d_preproc(k2,iarr).EQ.'smooth')) then |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
402 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
403 |
CTRL_MAP_GENARR3D |
& numsmo=xx_genarr3d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_genarr.F |
405 |
CTRL_MAP_GENARR3D |
if (xx_genarr3d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
122 |
CTRL_MAP_INI_GENTIM2D |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
123 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'WC01') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
125 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
126 |
CTRL_MAP_INI_GENTIM2D |
& numsmo=xx_gentim2d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
129 |
CTRL_MAP_INI_GENTIM2D |
& (xx_gentim2d_preproc(k2,iarr).EQ.'smooth')) then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
131 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
132 |
CTRL_MAP_INI_GENTIM2D |
& numsmo=xx_gentim2d_preproc_i(k2,iarr) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
134 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'noscaling') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
152 |
CTRL_MAP_INI_GENTIM2D |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
153 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'docycle') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
154 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
155 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
194 |
CTRL_MAP_INI_GENTIM2D |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
195 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'rmcycle') then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
196 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc_i(k2,iarr).NE.0) then |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
197 |
CTRL_MAP_INI_GENTIM2D |
replicated_nrec=min(endrec,xx_gentim2d_preproc_i(k2,iarr)) |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
307 |
CTRL_MAP_INI_GENTIM2D |
do k2 = 1, maxCtrlProc |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
308 |
CTRL_MAP_INI_GENTIM2D |
if (xx_gentim2d_preproc(k2,iarr).EQ.'variaweight') jrec=irec |
|
./pkg/ctrl/ctrl_map_ini_gentim2d.F |
76 |
CTRL_MAP_INI_GENTIM2D |
integer i,j,k2 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
264 |
DIAGNOSTICS_SET_POINTERS |
k2 = MIN(nlevels(ld),k1+19) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
265 |
DIAGNOSTICS_SET_POINTERS |
WRITE(msgBuf,'(A,20F5.0)') suffix, (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
38 |
DIAGNOSTICS_SET_POINTERS |
INTEGER i, j, k, k1, k2, kLev |
|
./pkg/diagnostics/diagnostics_summary.F |
102 |
DIAGNOSTICS_SUMMARY |
k2 = MIN(nlevels(ld),k1+9) |
|
./pkg/diagnostics/diagnostics_summary.F |
103 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,1P10E10.3)')' interp:', (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
107 |
DIAGNOSTICS_SUMMARY |
k2 = MIN(nlevels(ld),k1+24) |
|
./pkg/diagnostics/diagnostics_summary.F |
108 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,25I4)')' levels:',(NINT(levs(k,ld)),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
34 |
DIAGNOSTICS_SUMMARY |
INTEGER j, k, k1, k2, l |
|
./pkg/ecco/cost_gencost_customize.F |
215 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
216 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
217 |
COST_GENCOST_CUSTOMIZE |
& theta(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
221 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
222 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
223 |
COST_GENCOST_CUSTOMIZE |
& salt(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
228 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
229 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
230 |
COST_GENCOST_CUSTOMIZE |
& pTracer(i,j,k2,bi,bj,itr)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
235 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
236 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
237 |
COST_GENCOST_CUSTOMIZE |
& m_UE(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
241 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
242 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
243 |
COST_GENCOST_CUSTOMIZE |
& m_VN(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
247 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
248 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = trVol(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
252 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
253 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = trHeat(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
257 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
258 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = trSalt(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
263 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
264 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
265 |
COST_GENCOST_CUSTOMIZE |
& diffkr(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
272 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
273 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
274 |
COST_GENCOST_CUSTOMIZE |
& kapgm(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
280 |
COST_GENCOST_CUSTOMIZE |
do k2=1,nr |
|
./pkg/ecco/cost_gencost_customize.F |
281 |
COST_GENCOST_CUSTOMIZE |
gencost_mod3d(i,j,k2,bi,bj,kk) = |
|
./pkg/ecco/cost_gencost_customize.F |
282 |
COST_GENCOST_CUSTOMIZE |
& kapredi(i,j,k2,bi,bj)*maskC(i,j,k2,bi,bj) |
|
./pkg/ecco/cost_gencost_customize.F |
62 |
COST_GENCOST_CUSTOMIZE |
integer k2,kk |
|
./pkg/ecco/cost_gencost_seaicev4.F |
177 |
COST_GENCOST_SEAICEV4 |
do k2 = 1, NGENPPROC |
|
./pkg/ecco/cost_gencost_seaicev4.F |
178 |
COST_GENCOST_SEAICEV4 |
preproc(k2)=gencost_preproc(k2,igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
179 |
COST_GENCOST_SEAICEV4 |
preproc_i(k2)=gencost_preproc_i(k2,igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
180 |
COST_GENCOST_SEAICEV4 |
preproc_c(k2)=gencost_preproc_c(k2,igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
181 |
COST_GENCOST_SEAICEV4 |
preproc_r(k2)=gencost_preproc_r(k2,igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
182 |
COST_GENCOST_SEAICEV4 |
if (preproc(k2).EQ.'variaweight') dovarwei=.TRUE. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
183 |
COST_GENCOST_SEAICEV4 |
if (preproc(k2).EQ.'nosumsq') dosumsq=.FALSE. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
79 |
COST_GENCOST_SEAICEV4 |
integer il, k2 |
|
./pkg/ecco/cost_gencost_sshv4.F |
159 |
COST_GENCOST_SSHV4 |
integer k2, k2_mdt, k2_lsc |
|
./pkg/ecco/cost_gencost_sshv4.F |
203 |
COST_GENCOST_SSHV4 |
do k2 = 1, NGENPPROC |
|
./pkg/ecco/cost_gencost_sshv4.F |
204 |
COST_GENCOST_SSHV4 |
if (gencost_posproc(k2,igen_mdt).EQ.'smooth') k2_mdt=k2 |
|
./pkg/ecco/cost_gencost_sshv4.F |
205 |
COST_GENCOST_SSHV4 |
if (gencost_posproc(k2,igen_lsc).EQ.'smooth') k2_lsc=k2 |
|
./pkg/ecco/cost_gencost_sstv4.F |
130 |
COST_GENCOST_SSTV4 |
do k2 = 1, NGENPPROC |
|
./pkg/ecco/cost_gencost_sstv4.F |
131 |
COST_GENCOST_SSTV4 |
if (gencost_posproc(k2,kgen_lsc).EQ.'smooth') k2_lsc=k2 |
|
./pkg/ecco/cost_gencost_sstv4.F |
77 |
COST_GENCOST_SSTV4 |
integer k2, k2_lsc |
|
./pkg/ecco/cost_gencost_transp.F |
161 |
COST_GENCOST_TRANSP |
do k2 = 1, NGENPPROC |
|
./pkg/ecco/cost_gencost_transp.F |
162 |
COST_GENCOST_TRANSP |
preproc(k2)=gencost_preproc(k2,kgen(icount)) |
|
./pkg/ecco/cost_gencost_transp.F |
163 |
COST_GENCOST_TRANSP |
preproc_i(k2)=gencost_preproc_i(k2,kgen(icount)) |
|
./pkg/ecco/cost_gencost_transp.F |
164 |
COST_GENCOST_TRANSP |
preproc_c(k2)=gencost_preproc_c(k2,kgen(icount)) |
|
./pkg/ecco/cost_gencost_transp.F |
165 |
COST_GENCOST_TRANSP |
preproc_r(k2)=gencost_preproc_r(k2,kgen(icount)) |
|
./pkg/ecco/cost_gencost_transp.F |
166 |
COST_GENCOST_TRANSP |
if (preproc(k2).EQ.'variaweight') dovarwei=.TRUE. |
|
./pkg/ecco/cost_gencost_transp.F |
167 |
COST_GENCOST_TRANSP |
if (preproc(k2)(1:7).EQ.'dosumsq') dosumsq=.TRUE. |
|
./pkg/ecco/cost_gencost_transp.F |
70 |
COST_GENCOST_TRANSP |
integer il,k2 |
|
./pkg/ecco/cost_generic.F |
112 |
COST_GENERIC |
do k2 = 1, NGENPPROC |
|
./pkg/ecco/cost_generic.F |
113 |
COST_GENERIC |
if (preproc(k2).EQ.'mean') domean=.TRUE. |
|
./pkg/ecco/cost_generic.F |
114 |
COST_GENERIC |
if (preproc(k2).EQ.'anom') doanom=.TRUE. |
|
./pkg/ecco/cost_generic.F |
240 |
COST_GENLOOP |
integer il, k2 |
|
./pkg/ecco/cost_generic.F |
295 |
COST_GENLOOP |
do k2 = 1, NGENPPROC |
|
./pkg/ecco/cost_generic.F |
296 |
COST_GENLOOP |
if (preproc(k2).EQ.'mean') domean=.TRUE. |
|
./pkg/ecco/cost_generic.F |
297 |
COST_GENLOOP |
if (preproc(k2).EQ.'anom') doanom=.TRUE. |
|
./pkg/ecco/cost_generic.F |
298 |
COST_GENLOOP |
if (preproc(k2).EQ.'variaweight') dovarwei=.TRUE. |
|
./pkg/ecco/cost_generic.F |
299 |
COST_GENLOOP |
if (preproc(k2).EQ.'nosumsq') dosumsq=.FALSE. |
|
./pkg/ecco/cost_generic.F |
300 |
COST_GENLOOP |
if (posproc(k2).EQ.'smooth') then |
|
./pkg/ecco/cost_generic.F |
302 |
COST_GENLOOP |
k2smooth=k2 |
|
./pkg/ecco/cost_generic.F |
304 |
COST_GENLOOP |
if (preproc(k2).EQ.'clim') then |
|
./pkg/ecco/cost_generic.F |
306 |
COST_GENLOOP |
nrecclim=preproc_i(k2) |
|
./pkg/ecco/cost_generic.F |
308 |
COST_GENLOOP |
if (preproc(k2).EQ.'factor') then |
|
./pkg/ecco/cost_generic.F |
309 |
COST_GENLOOP |
fac=preproc_r(k2) |
|
./pkg/ecco/cost_generic.F |
83 |
COST_GENERIC |
integer bi,bj,k2 |
|
./pkg/ecco/ecco_check.F |
47 |
ECCO_CHECK |
INTEGER igen_etaday, il, k2, ioUnit |
|
./pkg/ecco/ecco_cost_init_fixed.F |
177 |
ECCO_COST_INIT_FIXED |
do k2 = 1,k-1 |
|
./pkg/ecco/ecco_cost_init_fixed.F |
178 |
ECCO_COST_INIT_FIXED |
if ( gencost_barfile(k2).EQ.gencost_barfile(k) ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
74 |
ECCO_COST_INIT_FIXED |
integer i,j,kk,k2 |