| File |
Line number |
Procedure |
Code |
|
./pkg/runclock/runclock_continue.F |
38 |
NO PROCEDURE |
INTEGER dd,dh,dm,ds |
|
./pkg/runclock/runclock_continue.F |
65 |
NO PROCEDURE |
dd=RC_now_dy-RC_start_dy |
|
./pkg/runclock/runclock_continue.F |
68 |
NO PROCEDURE |
ETmax=((dd*24.+dh)*60.+dm)*60.+ds |
|
./pkg/salt_plume/salt_plume_frac.F |
102 |
SALT_PLUME_FRAC |
dd = 0. |
|
./pkg/salt_plume/salt_plume_frac.F |
104 |
SALT_PLUME_FRAC |
IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN |
|
./pkg/salt_plume/salt_plume_frac.F |
105 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one,(facz-dd)/(dd20-dd)) |
|
./pkg/salt_plume/salt_plume_frac.F |
62 |
SALT_PLUME_FRAC |
_RL facz, dd, dd20 |
|
./pkg/salt_plume/salt_plume_frac.F |
83 |
SALT_PLUME_FRAC |
dd = abs(SPDepth(i)) |
|
./pkg/salt_plume/salt_plume_frac.F |
85 |
SALT_PLUME_FRAC |
& (exp(facz/dd)-one)/ |
|
./pkg/salt_plume/salt_plume_frac.F |
93 |
SALT_PLUME_FRAC |
dd = dd20/SPovershoot |
|
./pkg/salt_plume/salt_plume_frac.F |
94 |
SALT_PLUME_FRAC |
IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN |
|
./pkg/salt_plume/salt_plume_frac.F |
95 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one,(facz-dd)/(dd20-dd)) |
|
./pkg/seaice/seaice_cost_concentration.F |
105 |
SEAICE_COST_CONCENTRATION |
integer md, dd, sd, ld, wd |
|
./pkg/seaice/seaice_cost_concentration.F |
172 |
SEAICE_COST_CONCENTRATION |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
183 |
SEAICE_COST_CONCENTRATION |
print *,'md,dd,sd ', md,dd,sd |
|
./pkg/seaice/seaice_cost_sss.F |
106 |
SEAICE_COST_SSS |
integer md, dd, sd, ld, wd |
|
./pkg/seaice/seaice_cost_sss.F |
190 |
SEAICE_COST_SSS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
201 |
SEAICE_COST_SSS |
print *,'md,dd,sd ', md,dd,sd |
|
./pkg/seaice/seaice_cost_sst.F |
104 |
SEAICE_COST_SST |
integer md, dd, sd, ld, wd |
|
./pkg/seaice/seaice_cost_sst.F |
185 |
SEAICE_COST_SST |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
196 |
SEAICE_COST_SST |
print *,'md,dd,sd ', md,dd,sd |
|
./optim/optim_sub.F |
122 |
OPTIM_SUB |
& , dd, gold, xdiff |
|
./optim/optim_sub.F |
47 |
OPTIM_SUB |
_RL dd(nn) |
|
./optim/optim_sub.F |
53 |
OPTIM_SUB |
_RL dd(1) |
|
./optim/optim_sub.F |
58 |
OPTIM_SUB |
pointer (pdd,dd) |
|
./optim/optim_sub.F |
66 |
OPTIM_SUB |
_RL dd(nmax) |
|
./pkg/cal/cal_checkdate.F |
107 |
CAL_CHECKDATE |
call CAL_CONVDATE( date,yy,mm,dd,nsecs,lp,wd,mythid ) |
|
./pkg/cal/cal_checkdate.F |
119 |
CAL_CHECKDATE |
yymmdd = yy*10000 + mm*100 + dd |
|
./pkg/cal/cal_checkdate.F |
53 |
CAL_CHECKDATE |
integer yy,mm,dd |
|
./pkg/cal/cal_checkdate.F |
83 |
CAL_CHECKDATE |
call CAL_CONVDATE(date,yy,mm,dd,nsecs,lp,wd,mythid) |
|
./pkg/cal/cal_convdate.F |
105 |
CAL_CONVDATE |
dd = mod(date_1,100) |
|
./pkg/cal/cal_convdate.F |
109 |
CAL_CONVDATE |
dd = date_1 |
|
./pkg/cal/cal_convdate.F |
118 |
CAL_CONVDATE |
dd = fac*dd |
|
./pkg/cal/cal_convdate.F |
53 |
CAL_CONVDATE |
integer dd |
|
./pkg/cal/cal_convdate.F |
8 |
CAL_CONVDATE |
O yy, mm, dd, ss, |
|
./lsopt/hessupd.F |
101 |
HESSUPD |
dd(i) = dd(i) + r*xdiff(i) |
|
./lsopt/hessupd.F |
2 |
HESSUPD |
subroutine HESSUPD( nn, mupd, dd, jmin, jmax, xdiff, lphprint ) |
|
./lsopt/hessupd.F |
38 |
HESSUPD |
double precision dd(nn), alpha(100), xdiff(nn) |
|
./lsopt/hessupd.F |
73 |
HESSUPD |
r = DDOT( nn, dd, 1, xdiff,1 ) |
|
./lsopt/hessupd.F |
77 |
HESSUPD |
dd(i) = dd(i) - r*xdiff(i) |
|
./lsopt/hessupd.F |
87 |
HESSUPD |
dd(i) = dd(i)*xdiff(i) |
|
./lsopt/hessupd.F |
98 |
HESSUPD |
r = alpha(jp) - DDOT( nn, dd,1 , xdiff, 1 ) |
|
./lsopt/lsline.F |
131 |
LSLINE |
fp = DDOT( nn, dd, 1, gg, 1 ) |
|
./lsopt/lsline.F |
239 |
LSLINE |
z = xx(i) + tact*dd(i) |
|
./lsopt/lsline.F |
256 |
LSLINE |
xx(i) = xx(i) + tg*dd(i) |
|
./lsopt/lsline.F |
268 |
LSLINE |
xdiff(i) = xx(i) + tact*dd(i) |
|
./lsopt/lsline.F |
282 |
LSLINE |
xx(i) = xx(i) + tg*dd(i) |
|
./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 |
423 |
LSOPT_TOP |
& , gg, dd, xx, xdiff |
|
./lsopt/lsopt_top.F |
442 |
LSOPT_TOP |
& , dd, gg, xx, xdiff |
|
./lsopt/lsopt_top.F |
462 |
LSOPT_TOP |
$ , DNRM2( nn, xx, 1 ), tact*DNRM2( nn, dd, 1 ) |
|
./lsopt/lsopt_top.F |
491 |
LSOPT_TOP |
xdiff(i) = tact*dd(i) |
|
./lsopt/lsopt_top.F |
557 |
LSOPT_TOP |
call DGSCALE( nn, gold, xdiff, dd, rmin ) |
|
./lsopt/lsopt_top.F |
5 |
LSOPT_TOP |
$ , dd, gold, xdiff |
|
./lsopt/lsopt_top.F |
605 |
LSOPT_TOP |
& , gg, dd, xx, xdiff |
|
./lsopt/lsopt_top.F |
61 |
LSOPT_TOP |
double precision dd(nn), gold(nn), xdiff(nn) |
|
./lsopt/lsupdxx.F |
102 |
LSUPDXX |
dotdg = DDOT( nn, dd, 1, gg, 1 ) |
|
./lsopt/lsupdxx.F |
114 |
LSUPDXX |
tmin = max( tmin, abs(dd(i)) ) |
|
./lsopt/lsupdxx.F |
141 |
LSUPDXX |
xdiff(i) = xx(i) + tact*dd(i) |
|
./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/lsupdxx.F |
90 |
LSUPDXX |
call HESSUPD( nn, nupdate, dd, jmin, jmax, xdiff, |
|
./pkg/ecco/cost_gencost_sstv4.F |
172 |
COST_GENCOST_SSTV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
310 |
COST_GENCOST_SSTV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
93 |
COST_GENCOST_SSTV4 |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_generic.F |
109 |
COST_GENERIC |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_generic.F |
202 |
COST_GENERIC |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readers.F |
66 |
COST_READERS |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_readers.F |
94 |
COST_READERS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readgfo.F |
66 |
COST_READGFO |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_readgfo.F |
94 |
COST_READGFO |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_readtopex.F |
66 |
COST_READTOPEX |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_readtopex.F |
94 |
COST_READTOPEX |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_sla_read.F |
71 |
COST_SLA_READ |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_sla_read.F |
99 |
COST_SLA_READ |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_sla_read_yd.F |
72 |
COST_SLA_READ_YD |
integer md, dd, sd, ld, wd |