| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_init_fixed.F |
388 |
PROFILES_INIT_FIXED |
call CAL_TOSECONDS (tmpdiff,diffsecs,mythid) |
|
./pkg/profiles/profiles_init_fixed.F |
389 |
PROFILES_INIT_FIXED |
diffsecs=diffsecs+nIter0*deltaTclock |
|
./pkg/profiles/profiles_init_fixed.F |
393 |
PROFILES_INIT_FIXED |
diffsecs=-deltaTclock |
|
./pkg/profiles/profiles_init_fixed.F |
398 |
PROFILES_INIT_FIXED |
diffsecs=-deltaTclock |
|
./pkg/profiles/profiles_init_fixed.F |
45 |
PROFILES_INIT_FIXED |
_RL tmpyymmdd(1000),tmphhmmss(1000),diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
477 |
PROFILES_INIT_FIXED |
prof_time(num_file,ProfNo_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
522 |
PROFILES_INIT_FIXED |
prof_time(num_file,ProfNo_tile,bi,bj)=diffsecs |
|
./pkg/seaice/seaice_cost_concentration.F |
115 |
SEAICE_COST_CONCENTRATION |
_RL diffsecs |
|
./pkg/seaice/seaice_cost_concentration.F |
216 |
SEAICE_COST_CONCENTRATION |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
218 |
SEAICE_COST_CONCENTRATION |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_concentration.F |
223 |
SEAICE_COST_CONCENTRATION |
print *,'difftime,diffsecs',difftime,diffsecs |
|
./pkg/seaice/seaice_cost_sss.F |
113 |
SEAICE_COST_SSS |
_RL diffsecs |
|
./pkg/seaice/seaice_cost_sss.F |
231 |
SEAICE_COST_SSS |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
233 |
SEAICE_COST_SSS |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_sss.F |
238 |
SEAICE_COST_SSS |
print *,'difftime,diffsecs',difftime,diffsecs |
|
./pkg/seaice/seaice_cost_sst.F |
111 |
SEAICE_COST_SST |
_RL diffsecs |
|
./pkg/seaice/seaice_cost_sst.F |
231 |
SEAICE_COST_SST |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
233 |
SEAICE_COST_SST |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_sst.F |
238 |
SEAICE_COST_SST |
print *,'difftime,diffsecs',difftime,diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
193 |
CAL_GETMONTHSREC |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
203 |
CAL_GETMONTHSREC |
fac = (midsecs - currentsecs)/diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
206 |
CAL_GETMONTHSREC |
& diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
75 |
CAL_GETMONTHSREC |
_RL diffsecs |
|
./pkg/ctrl/ctrl_init_rec.F |
100 |
CTRL_INIT_REC |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init_rec.F |
101 |
CTRL_INIT_REC |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init_rec.F |
103 |
CTRL_INIT_REC |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init_rec.F |
64 |
CTRL_INIT_REC |
_RL diffsecs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
56 |
CTRL_MASK_SET_XZ |
_RL diffsecs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
56 |
CTRL_MASK_SET_YZ |
_RL diffsecs |
|
./pkg/ctrl/ctrl_readparms.F |
56 |
CTRL_READPARMS |
_RL diffsecs |
|
./pkg/ecco/cost_gencal.F |
107 |
COST_GENCAL |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_gencal.F |
109 |
COST_GENCAL |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/ecco/cost_gencal.F |
59 |
COST_GENCAL |
_RL diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
216 |
COST_GENCOST_SSTV4 |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
218 |
COST_GENCOST_SSTV4 |
localrec = int(diffsecs/86400.) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
227 |
COST_GENCOST_SSTV4 |
& yday,' ',ymod,' ',localrec,' ',diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
235 |
COST_GENCOST_SSTV4 |
if ( ( localrec .GT. 0 ).AND.(diffsecs .GT. 0.d0) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
374 |
COST_GENCOST_SSTV4 |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
376 |
COST_GENCOST_SSTV4 |
localrec = int(diffsecs/86400.) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
385 |
COST_GENCOST_SSTV4 |
& yday,' ',ymod,' ',localrec,' ',diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
393 |
COST_GENCOST_SSTV4 |
if ( ( localrec .GT. 0 ).AND.(diffsecs .GT. 0.d0) ) then |
|
./pkg/ecco/cost_gencost_sstv4.F |
89 |
COST_GENCOST_SSTV4 |
_RL diffsecs |
|
./pkg/ecco/cost_sla_read.F |
111 |
COST_SLA_READ |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_sla_read.F |
113 |
COST_SLA_READ |
sshrec = int(diffsecs/sla_period) + 1 |
|
./pkg/ecco/cost_sla_read.F |
54 |
COST_SLA_READ |
_RL diffsecs |
|
./pkg/ecco/cost_sla_read_yd.F |
62 |
COST_SLA_READ_YD |
_RL diffsecs |