| 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 |
123 |
SALT_PLUME_FRAC |
dd = abs(SPDepth(i)) |
|
./pkg/salt_plume/salt_plume_frac.F |
124 |
SALT_PLUME_FRAC |
S = exp(facz/dd)-one |
|
./pkg/salt_plume/salt_plume_frac.F |
134 |
SALT_PLUME_FRAC |
dd = dd20/SPovershoot |
|
./pkg/salt_plume/salt_plume_frac.F |
135 |
SALT_PLUME_FRAC |
So=dd20-dd |
|
./pkg/salt_plume/salt_plume_frac.F |
136 |
SALT_PLUME_FRAC |
S =facz-dd |
|
./pkg/salt_plume/salt_plume_frac.F |
137 |
SALT_PLUME_FRAC |
IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN |
|
./pkg/salt_plume/salt_plume_frac.F |
145 |
SALT_PLUME_FRAC |
dd = zero |
|
./pkg/salt_plume/salt_plume_frac.F |
147 |
SALT_PLUME_FRAC |
IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN |
|
./pkg/salt_plume/salt_plume_frac.F |
72 |
SALT_PLUME_FRAC |
_RL facz, dd, dd20 |
|
./pkg/seaice/seaice_cost_concentration.F |
121 |
SEAICE_COST_CONCENTRATION |
integer md, dd, sd, ld, wd |
|
./pkg/seaice/seaice_cost_concentration.F |
186 |
SEAICE_COST_CONCENTRATION |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
197 |
SEAICE_COST_CONCENTRATION |
print *,'md,dd,sd ', md,dd,sd |
|
./pkg/seaice/seaice_cost_sss.F |
119 |
SEAICE_COST_SSS |
integer md, dd, sd, ld, wd |
|
./pkg/seaice/seaice_cost_sss.F |
201 |
SEAICE_COST_SSS |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
212 |
SEAICE_COST_SSS |
print *,'md,dd,sd ', md,dd,sd |
|
./pkg/seaice/seaice_cost_sst.F |
117 |
SEAICE_COST_SST |
integer md, dd, sd, ld, wd |
|
./pkg/seaice/seaice_cost_sst.F |
201 |
SEAICE_COST_SST |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
212 |
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 |
106 |
CAL_CHECKDATE |
ELSEIF ( dd.EQ.0 .OR. ABS(dd).GT.nMaxDayMonth ) THEN |
|
./pkg/cal/cal_checkdate.F |
46 |
CAL_CHECKDATE |
INTEGER yy, mm, dd |
|
./pkg/cal/cal_checkdate.F |
90 |
CAL_CHECKDATE |
CALL CAL_CONVDATE( date, yy, mm, dd, nsecs, lp, wd, myThid ) |
|
./pkg/cal/cal_convdate.F |
101 |
CAL_CONVDATE |
dd = fac*dd |
|
./pkg/cal/cal_convdate.F |
40 |
CAL_CONVDATE |
INTEGER yy, mm, dd |
|
./pkg/cal/cal_convdate.F |
88 |
CAL_CONVDATE |
dd = mod(date_1,100) |
|
./pkg/cal/cal_convdate.F |
8 |
CAL_CONVDATE |
O yy, mm, dd, ss, |
|
./pkg/cal/cal_convdate.F |
92 |
CAL_CONVDATE |
dd = date_1 |
|
./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_gencal.F |
66 |
COST_GENCAL |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_gencal.F |
95 |
COST_GENCAL |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
205 |
COST_GENCOST_SSTV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
363 |
COST_GENCOST_SSTV4 |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
98 |
COST_GENCOST_SSTV4 |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_sla_read.F |
100 |
COST_SLA_READ |
call CAL_CONVDATE( daydate,yday,md,dd,sd,ld,wd,mythid ) |
|
./pkg/ecco/cost_sla_read.F |
72 |
COST_SLA_READ |
integer md, dd, sd, ld, wd |
|
./pkg/ecco/cost_sla_read_yd.F |
72 |
COST_SLA_READ_YD |
integer md, dd, sd, ld, wd |