| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1116 |
IRRAD |
gg=(g1+g2+g3)/(w1+w2+w3) |
|
./pkg/fizhi/fizhi_lwrad.F |
1121 |
IRRAD |
ff=0.5+(0.3739+(0.0076+0.1185*gg)*gg)*gg |
|
./pkg/fizhi/fizhi_lwrad.F |
621 |
IRRAD |
_RL w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2 |
|
./optim/optim_readdata.F |
315 |
OPTIM_READDATA |
gg = (icvrec-1)/nobcs |
|
./optim/optim_readdata.F |
316 |
OPTIM_READDATA |
igg = int(gg) |
|
./optim/optim_readdata.F |
96 |
OPTIM_READDATA |
_RL gg |
|
./optim/optim_writedata.F |
213 |
OPTIM_WRITEDATA |
gg = (icvrec-1)/nobcs |
|
./optim/optim_writedata.F |
214 |
OPTIM_WRITEDATA |
igg = int(gg) |
|
./optim/optim_writedata.F |
72 |
OPTIM_WRITEDATA |
_RL gg |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
133 |
CTRL_MASK_SET_XZ |
gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
138 |
CTRL_MASK_SET_XZ |
call ACTIVE_WRITE_XZ( fname, gg, iobcs, 0, mythid, dummy ) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
59 |
CTRL_MASK_SET_XZ |
_RL gg (1-olx:snx+olx,nr,nsx,nsy) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
134 |
CTRL_MASK_SET_YZ |
gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
139 |
CTRL_MASK_SET_YZ |
call ACTIVE_WRITE_YZ( fname, gg, iobcs, 0, mythid, dummy) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
59 |
CTRL_MASK_SET_YZ |
_RL gg (1-oly:sny+oly,nr,nsx,nsy) |
|
./lsopt/lsline.F |
129 |
LSLINE |
call SIMUL( indic, nn, xdiff, fnew, gg ) |
|
./lsopt/lsline.F |
131 |
LSLINE |
fp = DDOT( nn, dd, 1, gg, 1 ) |
|
./lsopt/lsline.F |
57 |
LSLINE |
double precision xx(nn), dd(nn), gg(nn), xdiff(nn) |
|
./lsopt/lsline.F |
8 |
LSLINE |
& , dd, gg, xx, xdiff |
|
./lsopt/lsopt_top.F |
261 |
LSOPT_TOP |
print *, 'pathei-lsopt xx(1), gg(1) ', xx(1), gg(1) |
|
./lsopt/lsopt_top.F |
263 |
LSOPT_TOP |
call SIMUL( indic, nn, xx, ff, gg ) |
|
./lsopt/lsopt_top.F |
266 |
LSOPT_TOP |
print *, 'pathei: nach simul: xx(1), gg(1) = ', xx(1), gg(1) |
|
./lsopt/lsopt_top.F |
276 |
LSOPT_TOP |
call DOSTORE( nn, gg, .true., 2 ) |
|
./lsopt/lsopt_top.F |
287 |
LSOPT_TOP |
gnorm0 = DNRM2( nn, gg, 1 ) |
|
./lsopt/lsopt_top.F |
2 |
LSOPT_TOP |
subroutine LSOPT_TOP( nn, xx, ff, gg, simul, optline |
|
./lsopt/lsopt_top.F |
354 |
LSOPT_TOP |
call DOSTORE( nn, gg, .false., 2 ) |
|
./lsopt/lsopt_top.F |
406 |
LSOPT_TOP |
gold(i) = gg(i) |
|
./lsopt/lsopt_top.F |
423 |
LSOPT_TOP |
& , gg, dd, xx, xdiff |
|
./lsopt/lsopt_top.F |
442 |
LSOPT_TOP |
& , dd, gg, xx, xdiff |
|
./lsopt/lsopt_top.F |
451 |
LSOPT_TOP |
call DOSTORE( nn, gg, .true., 2 ) |
|
./lsopt/lsopt_top.F |
456 |
LSOPT_TOP |
gnorm = DNRM2( nn, gg, 1 ) |
|
./lsopt/lsopt_top.F |
498 |
LSOPT_TOP |
gold(i) = gg(i)-gold(i) |
|
./lsopt/lsopt_top.F |
605 |
LSOPT_TOP |
& , gg, dd, xx, xdiff |
|
./lsopt/lsopt_top.F |
60 |
LSOPT_TOP |
double precision xx(nn), ff, gg(nn), epsx, fmin, epsg |
|
./lsopt/lsopt_top.F |
634 |
LSOPT_TOP |
$ , ' norm of g...................', DNRM2( nn, gg, 1 ) |
|
./lsopt/lsupdxx.F |
102 |
LSUPDXX |
dotdg = DDOT( nn, dd, 1, gg, 1 ) |
|
./lsopt/lsupdxx.F |
39 |
LSUPDXX |
double precision gg(nn), dd(nn), xx(nn), xdiff(nn) |
|
./lsopt/lsupdxx.F |
6 |
LSUPDXX |
& , gg, dd, xx, xdiff |
|
./lsopt/lsupdxx.F |
71 |
LSUPDXX |
dd(i) = -gg(i)*preco |
|
./lsopt/lsupdxx.F |
86 |
LSUPDXX |
dd(i) = -gg(i) |
|
./lsopt/lswri.F |
23 |
LSWRI |
real*4 xx(NN), gg(NN) |
|
./lsopt/lswri.F |
2 |
LSWRI |
subroutine LSWRI( isize, phniter, NN, xx, gg, lphprint ) |
|
./pkg/ecco/cost_obcse.F |
162 |
COST_OBCSE |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcse.F |
163 |
COST_OBCSE |
igg = int(gg) |
|
./pkg/ecco/cost_obcse.F |
94 |
COST_OBCSE |
_RL gg |
|
./pkg/ecco/cost_obcsn.F |
160 |
COST_OBCSN |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcsn.F |
161 |
COST_OBCSN |
igg = int(gg) |
|
./pkg/ecco/cost_obcsn.F |
93 |
COST_OBCSN |
_RL gg |
|
./pkg/ecco/cost_obcss.F |
160 |
COST_OBCSS |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcss.F |
161 |
COST_OBCSS |
igg = int(gg) |
|
./pkg/ecco/cost_obcss.F |
93 |
COST_OBCSS |
_RL gg |
|
./pkg/ecco/cost_obcsvol.F |
188 |
COST_OBCSVOL |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcsvol.F |
189 |
COST_OBCSVOL |
igg = int(gg) |
|
./pkg/ecco/cost_obcsvol.F |
78 |
COST_OBCSVOL |
_RL gg |
|
./pkg/ecco/cost_obcsw.F |
160 |
COST_OBCSW |
gg = (irec-1)/nobcs |
|
./pkg/ecco/cost_obcsw.F |
161 |
COST_OBCSW |
igg = int(gg) |
|
./pkg/ecco/cost_obcsw.F |
93 |
COST_OBCSW |
_RL gg |