| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/chronos.h |
10 |
NO PROCEDURE |
integer nymd,nhms |
|
./pkg/fizhi/chronos.h |
17 |
NO PROCEDURE |
common /chronos/ nymd,nhms |
|
./pkg/fizhi/do_fizhi.F |
180 |
DO_FIZHI |
call ASTRO ( nymd,nhms, xlats,xlons, im2*jm2, cosz,ra ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1012 |
TIME_BOUND |
subroutine TIME_BOUND(nymd,nhms,nymd1,nhms1,nymd2,nhms2,imnm,imnp) |
|
./pkg/fizhi/fizhi_clockstuff.F |
1031 |
TIME_BOUND |
integer nymd,nhms, nymd1,nhms1, nymd2,nhms2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1057 |
TIME_BOUND |
nyear = nymd/10000 |
|
./pkg/fizhi/fizhi_clockstuff.F |
1072 |
TIME_BOUND |
nymd2 = (nymd/10000)*10000 + month*100 + midmon |
|
./pkg/fizhi/fizhi_clockstuff.F |
1081 |
TIME_BOUND |
nymd1 = (nymd/10000)*10000 + month*100 + midmon |
|
./pkg/fizhi/fizhi_clockstuff.F |
1123 |
TIME2FREQ2 |
integer mmdd,nymd,nhms,timeleft,daysleft |
|
./pkg/fizhi/fizhi_clockstuff.F |
1154 |
TIME2FREQ2 |
testnymd=nymd + mmdd |
|
./pkg/fizhi/fizhi_clockstuff.F |
157 |
GET_ALARM |
call GET_TIME (nymd,nhms) |
|
./pkg/fizhi/fizhi_clockstuff.F |
158 |
GET_ALARM |
tleft = nsecf(freq) - nalarm(freq,nymd,nhms,datein,timein ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
278 |
SET_TIME |
nymd = datein |
|
./pkg/fizhi/fizhi_clockstuff.F |
289 |
GET_TIME |
datein = nymd |
|
./pkg/fizhi/fizhi_clockstuff.F |
318 |
GET_TIME |
function nsecf2 (nhhmmss,nmmdd,nymd) |
|
./pkg/fizhi/fizhi_clockstuff.F |
334 |
GET_TIME |
integer nsecf2,nhhmmss,nmmdd,nymd |
|
./pkg/fizhi/fizhi_clockstuff.F |
396 |
FIXDATE |
subroutine FIXDATE (nymd) |
|
./pkg/fizhi/fizhi_clockstuff.F |
398 |
FIXDATE |
integer nymd |
|
./pkg/fizhi/fizhi_clockstuff.F |
402 |
FIXDATE |
if (nymd .lt. 500101) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
403 |
FIXDATE |
nymd = 20000000 + nymd |
|
./pkg/fizhi/fizhi_clockstuff.F |
404 |
FIXDATE |
else if (nymd .le. 991231) then |
|
./pkg/fizhi/fizhi_clockstuff.F |
405 |
FIXDATE |
nymd = 19000000 + nymd |
|
./pkg/fizhi/fizhi_clockstuff.F |
411 |
INTERP_TIME |
subroutine INTERP_TIME ( nymd ,nhms , |
|
./pkg/fizhi/fizhi_clockstuff.F |
444 |
INTERP_TIME |
integer nhms,nymd,nhms1,nymd1,nhms2,nymd2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
513 |
TICK |
subroutine TICK (nymd,nhms,ndt) |
|
./pkg/fizhi/fizhi_clockstuff.F |
521 |
TICK |
integer nymd,nhms,ndt |
|
./pkg/fizhi/fizhi_clockstuff.F |
597 |
TIC_TIME |
mymd = nymd |
|
./pkg/fizhi/fizhi_clockstuff.F |
774 |
TIC_TIME |
if( (testnymd.gt.nymd) .or. |
|
./pkg/fizhi/fizhi_clockstuff.F |
796 |
TIC_TIME |
integer incymd,nymd,m |
|
./pkg/fizhi/fizhi_clockstuff.F |
893 |
ASTRO |
integer nymd, nhms, irun |
|
./pkg/fizhi/fizhi_diagalarms.F |
50 |
FIZHI_DIAGALARMS |
nymdb = nymd |
|
./pkg/fizhi/fizhi_diagalarms.F |
53 |
FIZHI_DIAGALARMS |
nymdb = int(nymd/100) * 100 + 1 |
|
./pkg/fizhi/fizhi_diagalarms.F |
67 |
FIZHI_DIAGALARMS |
nymdb = nymd |
|
./pkg/fizhi/fizhi_diagalarms.F |
70 |
FIZHI_DIAGALARMS |
nymdb = int(nymd/100) * 100 + 1 |
|
./pkg/fizhi/fizhi_driver.F |
164 |
FIZHI_DRIVER |
call SWRIO ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_driver.F |
187 |
FIZHI_DRIVER |
call LWRIO ( nymd,nhms,bi,bj,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_driver.F |
202 |
FIZHI_DRIVER |
call TURBIO (im,jm,lm,istrip,nymd,nhms,bi,bj, |
|
./pkg/fizhi/fizhi_init_vars.F |
226 |
FIZHI_INIT_VARS |
if( (nhms.eq.nhms0) .and. (nymd.eq.nymd0) ) then |
|
./pkg/fizhi/fizhi_init_vars.F |
249 |
FIZHI_INIT_VARS |
& nymd,nhms, 'D', myThid ) |
|
./pkg/fizhi/fizhi_init_vars.F |
87 |
FIZHI_INIT_VARS |
write(15,*) ' Cant Start Fizhi experiment at ',nymd,' ',nhms |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
10 |
FIZHI_INIT_VEGSURFTILES |
& nymd,nhms,prec,myThid) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
36 |
FIZHI_INIT_VEGSURFTILES |
INTEGER nhms,nymd |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
57 |
FIZHI_INIT_VEGSURFTILES |
. 'vegtiles_cs32.d',nymd,'z',ihour,'.bin' |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
60 |
FIZHI_INIT_VEGSURFTILES |
. 'vegtiles_cs102.d',nymd,'z',ihour,'.bin' |
|
./pkg/fizhi/fizhi_lwrad.F |
19 |
LWRIO |
integer nymd,nhms,istrip,npcs,bi,bj,myid |
|
./pkg/fizhi/fizhi_lwrad.F |
5 |
LWRIO |
subroutine LWRIO (nymd,nhms,bi,bj,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_readparms.F |
111 |
FIZHI_READPARMS |
nymd = nymdcurrent |
|
./pkg/fizhi/fizhi_readparms.F |
121 |
FIZHI_READPARMS |
print *, 'Current Date ',nymd,' Current Time ',nhms |
|
./pkg/fizhi/fizhi_swrad.F |
18 |
SWRIO |
integer nymd,nhms,bi,bj,ndswr,myid,istrip,npcs |
|
./pkg/fizhi/fizhi_swrad.F |
5 |
SWRIO |
subroutine SWRIO (nymd,nhms,bi,bj,ndswr,myid,istrip,npcs, |
|
./pkg/fizhi/fizhi_turb.F |
115 |
TURBIO |
integer im,jm,nlay,istrip,nymd,nhms,bi,bj,ndturb,nltop |
|
./pkg/fizhi/fizhi_turb.F |
1314 |
TRBFLX |
integer nn,irun,nlev,nltop,ntrace,ntracedim,itrtrb,nhms,nymd |
|
./pkg/fizhi/fizhi_turb.F |
26 |
TURBIO |
SUBROUTINE TURBIO (im,jm,nlay,istrip,nymd,nhms,bi,bj, qbeg |
|
./pkg/fizhi/fizhi_turb.F |
360 |
TURBIO |
call CHPPRM(nymd,nhms,nchp,nchplnd,chlt,ityp,alai, |
|
./pkg/fizhi/fizhi_turb.F |
507 |
TURBIO |
call ASTRO ( nymd,nhms,lats,lons,istrip,cosz,ra ) |
|
./pkg/fizhi/fizhi_turb.F |
598 |
TURBIO |
4 stq10m,istrip,nlay,nltop,nymd,nhms,grav,cp,rgas,faceps,virtcon, |
|
./pkg/fizhi/fizhi_update_time.F |
29 |
FIZHI_UPDATE_TIME |
call TICK(nymd,nhms,ndt) |
|
./pkg/fizhi/fizhi_update_time.F |
32 |
FIZHI_UPDATE_TIME |
print *, 'Current Date ',nymd,' Current Time ',nhms |
|
./pkg/fizhi/fizhi_utils.F |
711 |
CHPPRM |
subroutine CHPPRM(nymd,nhms,mxchps,nchp,chlt,ityp,alai, |
|
./pkg/fizhi/fizhi_utils.F |
716 |
CHPPRM |
integer nymd,nhms,nchp,mxchps,ityp(mxchps) |
|
./pkg/fizhi/fizhi_utils.F |
865 |
CHPPRM |
call TIME_BOUND ( nymd,nhms, nymd1,nhms1, nymd2,nhms2, k1,k2 ) |
|
./pkg/fizhi/fizhi_utils.F |
866 |
CHPPRM |
call INTERP_TIME ( nymd,nhms, nymd1,nhms1, nymd2,nhms2, facm,facp) |
|
./pkg/fizhi/fizhi_write_datetime.F |
29 |
FIZHI_WRITE_DATETIME |
write(ku,1000)nymd,nhms |
|
./pkg/fizhi/fizhi_write_datetime.F |
30 |
FIZHI_WRITE_DATETIME |
print *,' Writing datetime file: NYMD = ',nymd,' NHMS = ',nhms |
|
./pkg/fizhi/update_chemistry_exports.F |
81 |
UPDATE_CHEMISTRY_EXPORTS |
call TIME_BOUND(nymd,nhms,nymd1,nhms1,nymd2,nhms2,imns,ipls) |
|
./pkg/fizhi/update_chemistry_exports.F |
82 |
UPDATE_CHEMISTRY_EXPORTS |
call INTERP_TIME(nymd,nhms,nymd1,nhms1,nymd2,nhms2,facm,facp) |
|
./pkg/fizhi/update_earth_exports.F |
112 |
UPDATE_EARTH_EXPORTS |
call ASTRO(nymd,nhms,lats,lons,im2*jm2,cosz,radius) |
|
./pkg/fizhi/update_earth_exports.F |
69 |
UPDATE_EARTH_EXPORTS |
month = nmonf(nymd) |
|
./pkg/fizhi/update_earth_exports.F |
70 |
UPDATE_EARTH_EXPORTS |
day = ndayf(nymd) |
|
./pkg/fizhi/update_ocean_exports.F |
118 |
GETSICE |
. jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
165 |
GETSICE |
integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid |
|
./pkg/fizhi/update_ocean_exports.F |
197 |
GETSICE |
if (nymd .lt. 500101) then |
|
./pkg/fizhi/update_ocean_exports.F |
198 |
GETSICE |
nymdmod = 20000000 + nymd |
|
./pkg/fizhi/update_ocean_exports.F |
199 |
GETSICE |
else if (nymd .le. 991231) then |
|
./pkg/fizhi/update_ocean_exports.F |
200 |
GETSICE |
nymdmod = 19000000 + nymd |
|
./pkg/fizhi/update_ocean_exports.F |
202 |
GETSICE |
nymdmod = nymd |
|
./pkg/fizhi/update_ocean_exports.F |
379 |
GETSST |
. jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
426 |
GETSST |
integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid |
|
./pkg/fizhi/update_ocean_exports.F |
458 |
GETSST |
if (nymd .lt. 500101) then |
|
./pkg/fizhi/update_ocean_exports.F |
459 |
GETSST |
nymdmod = 20000000 + nymd |
|
./pkg/fizhi/update_ocean_exports.F |
460 |
GETSST |
else if (nymd .le. 991231) then |
|
./pkg/fizhi/update_ocean_exports.F |
461 |
GETSST |
nymdmod = 19000000 + nymd |
|
./pkg/fizhi/update_ocean_exports.F |
463 |
GETSST |
nymdmod = nymd |
|
./pkg/fizhi/update_ocean_exports.F |
90 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./pkg/fizhi/update_ocean_exports.F |
95 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
10 |
FIZHI_INIT_VEGSURFTILES |
& nymd,nhms,prec,myThid) |
|
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F |
33 |
FIZHI_INIT_VEGSURFTILES |
INTEGER nhms,nymd |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
118 |
GETSICE |
. jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
166 |
GETSICE |
integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
191 |
GETSST |
. jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
239 |
GETSST |
integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
90 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F |
95 |
UPDATE_OCEAN_EXPORTS |
. jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms, |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
207 |
FIZHI_INIT_VARS |
if( (nhms.eq.nhms0) .and. (nymd.eq.nymd0) ) then |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
67 |
FIZHI_INIT_VARS |
print *,' Cant Start Fizhi experiment at ',nymd,' ',nhms |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
115 |
GETSICE |
integer nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
130 |
GETSST |
. nSumx,nSumy,nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms,sst) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
175 |
GETSST |
integer nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
50 |
UPDATE_OCEAN_EXPORTS |
. nSy,nSxglobal,nSyglobal,bi,bj,biglobal,bjglobal,nymd,nhms,sst) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
52 |
UPDATE_OCEAN_EXPORTS |
. nSy,nSxglobal,nSyglobal,bi,bj,biglobal,bjglobal,nymd,nhms,sice) |
|
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F |
70 |
GETSICE |
. nSumx,nSumy,nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms,sice) |
|
./pkg/chronos/chronos.F |
158 |
GET_ALARM |
call GET_TIME (nymd,nhms) |
|
./pkg/chronos/chronos.F |
159 |
GET_ALARM |
tleft = nsecf(freq) - nalarm(freq,nymd,nhms,date,time ) |
|
./pkg/chronos/chronos.F |
236 |
SET_TIME |
nymd = date |
|
./pkg/chronos/chronos.F |
247 |
GET_TIME |
date = nymd |
|
./pkg/chronos/chronos.F |
276 |
GET_TIME |
function nsecf2 (nhhmmss,nmmdd,nymd) |
|
./pkg/chronos/chronos.F |
292 |
GET_TIME |
integer nsecf2,nhhmmss,nmmdd,nymd |
|
./pkg/chronos/chronos.F |
350 |
FIXDATE |
subroutine FIXDATE (nymd) |
|
./pkg/chronos/chronos.F |
352 |
FIXDATE |
integer nymd |
|
./pkg/chronos/chronos.F |
356 |
FIXDATE |
if (nymd .lt. 500101) then |
|
./pkg/chronos/chronos.F |
357 |
FIXDATE |
nymd = 20000000 + nymd |
|
./pkg/chronos/chronos.F |
358 |
FIXDATE |
else if (nymd .le. 991231) then |
|
./pkg/chronos/chronos.F |
359 |
FIXDATE |
nymd = 19000000 + nymd |
|
./pkg/chronos/chronos.F |
365 |
INTERP_TIME |
subroutine INTERP_TIME ( nymd ,nhms , |
|
./pkg/chronos/chronos.F |
398 |
INTERP_TIME |
integer nhms,nymd,nhms1,nymd1,nhms2,nymd2 |
|
./pkg/chronos/chronos.F |
467 |
TICK |
subroutine TICK (nymd,nhms,ndt) |
|
./pkg/chronos/chronos.F |
475 |
TICK |
integer nymd,nhms,ndt |
|
./pkg/chronos/chronos.F |
547 |
TIC_TIME |
mymd = nymd |
|
./pkg/chronos/chronos.F |
633 |
TIC_TIME |
integer incymd,nymd,m |
|
./pkg/chronos/chronos.F |
730 |
ASTRO |
integer nymd, nhms, irun |
|
./pkg/chronos/chronos.F |
845 |
TIME_BOUND |
subroutine TIME_BOUND(nymd,nhms,nymd1,nhms1,nymd2,nhms2,imnm,imnp) |
|
./pkg/chronos/chronos.F |
864 |
TIME_BOUND |
integer nymd,nhms, nymd1,nhms1, nymd2,nhms2 |
|
./pkg/chronos/chronos.F |
890 |
TIME_BOUND |
nyear = nymd/10000 |
|
./pkg/chronos/chronos.F |
905 |
TIME_BOUND |
nymd2 = (nymd/10000)*10000 + month*100 + midmon |
|
./pkg/chronos/chronos.F |
914 |
TIME_BOUND |
nymd1 = (nymd/10000)*10000 + month*100 + midmon |
|
./pkg/chronos/chronos.h |
10 |
NO PROCEDURE |
integer nymd,nhms |
|
./pkg/chronos/chronos.h |
17 |
NO PROCEDURE |
common /chronos/ nymd,nhms |