| File |
Line number |
Procedure |
Code |
|
./pkg/profiles/profiles_init_fixed.F |
274 |
PROFILES_INIT_FIXED |
call CAL_TOSECONDS (tmpdiff,diffsecs,mythid) |
|
./pkg/profiles/profiles_init_fixed.F |
275 |
PROFILES_INIT_FIXED |
diffsecs=diffsecs+nIter0*deltaTclock |
|
./pkg/profiles/profiles_init_fixed.F |
289 |
PROFILES_INIT_FIXED |
prof_time(num_file,length_for_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
308 |
PROFILES_INIT_FIXED |
prof_time(num_file,length_for_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
331 |
PROFILES_INIT_FIXED |
prof_time(num_file,length_for_tile,bi,bj)=diffsecs |
|
./pkg/profiles/profiles_init_fixed.F |
36 |
PROFILES_INIT_FIXED |
_RL tmpyymmdd(1000),tmphhmmss(1000),diffsecs |
|
./pkg/seaice/seaice_cost_concentration.F |
202 |
SEAICE_COST_CONCENTRATION |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/seaice/seaice_cost_concentration.F |
204 |
SEAICE_COST_CONCENTRATION |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_concentration.F |
209 |
SEAICE_COST_CONCENTRATION |
print *,'difftime,diffsecs',difftime,diffsecs |
|
./pkg/seaice/seaice_cost_concentration.F |
99 |
SEAICE_COST_CONCENTRATION |
_RL diffsecs |
|
./pkg/seaice/seaice_cost_sss.F |
100 |
SEAICE_COST_SSS |
_RL diffsecs |
|
./pkg/seaice/seaice_cost_sss.F |
220 |
SEAICE_COST_SSS |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/seaice/seaice_cost_sss.F |
222 |
SEAICE_COST_SSS |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_sss.F |
227 |
SEAICE_COST_SSS |
print *,'difftime,diffsecs',difftime,diffsecs |
|
./pkg/seaice/seaice_cost_sst.F |
215 |
SEAICE_COST_SST |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/seaice/seaice_cost_sst.F |
217 |
SEAICE_COST_SST |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/seaice/seaice_cost_sst.F |
222 |
SEAICE_COST_SST |
print *,'difftime,diffsecs',difftime,diffsecs |
|
./pkg/seaice/seaice_cost_sst.F |
98 |
SEAICE_COST_SST |
_RL diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
196 |
CAL_GETMONTHSREC |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/cal/cal_getmonthsrec.F |
206 |
CAL_GETMONTHSREC |
fac = (midsecs - currentsecs)/diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
209 |
CAL_GETMONTHSREC |
& diffsecs |
|
./pkg/cal/cal_getmonthsrec.F |
70 |
CAL_GETMONTHSREC |
_RL diffsecs |
|
./pkg/ctrl/ctrl_init.F |
104 |
CTRL_INIT |
_RL diffsecs |
|
./pkg/ctrl/ctrl_init.F |
201 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
206 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
208 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
228 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
233 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
235 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
265 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
270 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
272 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
292 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
297 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
299 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
329 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
334 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
336 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
360 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
365 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
367 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
397 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
402 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
404 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
428 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
433 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
435 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
469 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
470 |
CTRL_INIT |
startrec = int((modelstart - diffsecs)/xx_obcsnperiod) + 1 |
|
./pkg/ctrl/ctrl_init.F |
472 |
CTRL_INIT |
endrec = int((modelend - diffsecs)/xx_obcsnperiod) + 2 |
|
./pkg/ctrl/ctrl_init.F |
495 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
496 |
CTRL_INIT |
startrec = int((modelstart - diffsecs)/xx_obcssperiod) + 1 |
|
./pkg/ctrl/ctrl_init.F |
498 |
CTRL_INIT |
endrec = int((modelend - diffsecs)/xx_obcssperiod) + 2 |
|
./pkg/ctrl/ctrl_init.F |
521 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
522 |
CTRL_INIT |
startrec = int((modelstart - diffsecs)/xx_obcswperiod) + 1 |
|
./pkg/ctrl/ctrl_init.F |
524 |
CTRL_INIT |
endrec = int((modelend - diffsecs)/xx_obcswperiod) + 2 |
|
./pkg/ctrl/ctrl_init.F |
547 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
548 |
CTRL_INIT |
startrec = int((modelstart - diffsecs)/xx_obcseperiod) + 1 |
|
./pkg/ctrl/ctrl_init.F |
550 |
CTRL_INIT |
endrec = int((modelend - diffsecs)/xx_obcseperiod) + 2 |
|
./pkg/ctrl/ctrl_init.F |
596 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
601 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
603 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
632 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
637 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
639 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
761 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
766 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
768 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
792 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
797 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
799 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
823 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
828 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
830 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
854 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
859 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
861 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
885 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
890 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
892 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
916 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
921 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
923 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
947 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
952 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
954 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
978 |
CTRL_INIT |
call CAL_TOSECONDS ( difftime, diffsecs, mythid ) |
|
./pkg/ctrl/ctrl_init.F |
983 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
985 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
59 |
CTRL_MASK_SET_XZ |
_RL diffsecs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
59 |
CTRL_MASK_SET_YZ |
_RL diffsecs |
|
./pkg/ctrl/ctrl_readparms.F |
55 |
CTRL_READPARMS |
_RL diffsecs |
|
./pkg/ecco/cost_gencost_sstv4.F |
183 |
COST_GENCOST_SSTV4 |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
184 |
COST_GENCOST_SSTV4 |
localrec = int(diffsecs/86400.) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
321 |
COST_GENCOST_SSTV4 |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
322 |
COST_GENCOST_SSTV4 |
localrec = int(diffsecs/86400.) + 1 |
|
./pkg/ecco/cost_gencost_sstv4.F |
86 |
COST_GENCOST_SSTV4 |
_RL diffsecs |
|
./pkg/ecco/cost_generic.F |
103 |
COST_GENERIC |
_RL diffsecs |
|
./pkg/ecco/cost_generic.F |
213 |
COST_GENERIC |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_generic.F |
214 |
COST_GENERIC |
localrec = int(diffsecs/localperiod) + 1 |
|
./pkg/ecco/cost_readers.F |
107 |
COST_READERS |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readers.F |
108 |
COST_READERS |
sshrec = int(diffsecs/ersperiod) + 1 |
|
./pkg/ecco/cost_readers.F |
56 |
COST_READERS |
_RL diffsecs |
|
./pkg/ecco/cost_readgfo.F |
107 |
COST_READGFO |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readgfo.F |
108 |
COST_READGFO |
sshrec = int(diffsecs/gfoperiod) + 1 |
|
./pkg/ecco/cost_readgfo.F |
56 |
COST_READGFO |
_RL diffsecs |
|
./pkg/ecco/cost_readtopex.F |
107 |
COST_READTOPEX |
call CAL_TOSECONDS( difftime, diffsecs, mythid ) |
|
./pkg/ecco/cost_readtopex.F |
108 |
COST_READTOPEX |
sshrec = int(diffsecs/topexperiod) + 1 |
|
./pkg/ecco/cost_readtopex.F |
56 |
COST_READTOPEX |
_RL diffsecs |
|
./pkg/ecco/cost_sla_read.F |
112 |
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 |
53 |
COST_SLA_READ |
_RL diffsecs |
|
./pkg/ecco/cost_sla_read_yd.F |
54 |
COST_SLA_READ_YD |
_RL diffsecs |