| 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 |
178 |
DO_FIZHI |
call ASTRO ( 20040321,nhms, xlats,xlons, im2*jm2, cosz,ra ) |
|
./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 |
1123 |
TIME2FREQ2 |
integer mmdd,nymd,nhms,timeleft,daysleft |
|
./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 |
279 |
SET_TIME |
nhms = timein |
|
./pkg/fizhi/fizhi_clockstuff.F |
290 |
GET_TIME |
timein = nhms |
|
./pkg/fizhi/fizhi_clockstuff.F |
294 |
GET_TIME |
function nsecf (nhms) |
|
./pkg/fizhi/fizhi_clockstuff.F |
301 |
GET_TIME |
integer nhms, nsecf |
|
./pkg/fizhi/fizhi_clockstuff.F |
302 |
GET_TIME |
nsecf = nhms/10000*3600 + mod(nhms,10000)/100*60 + mod(nhms,100) |
|
./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 |
598 |
TIC_TIME |
mhms = nhms |
|
./pkg/fizhi/fizhi_clockstuff.F |
775 |
TIC_TIME |
& (testnymd.eq.testnymd) .and. (testnhms.gt.nhms) ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
893 |
ASTRO |
integer nymd, nhms, irun |
|
./pkg/fizhi/fizhi_diagalarms.F |
51 |
FIZHI_DIAGALARMS |
nhmsb = nhms |
|
./pkg/fizhi/fizhi_diagalarms.F |
68 |
FIZHI_DIAGALARMS |
nhmsb = nhms |
|
./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 |
54 |
FIZHI_INIT_VEGSURFTILES |
ihour = nhms/10000 |
|
./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 |
112 |
FIZHI_READPARMS |
nhms = nhmscurrent |
|
./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 |
505 |
TURBIO |
call ASTRO ( 20040321,nhms,lats,lons,istrip,cosz,ra ) |
|
./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 |
110 |
UPDATE_EARTH_EXPORTS |
call ASTRO(20040321,nhms,lats,lons,im2*jm2,cosz,radius) |
|
./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 |
71 |
UPDATE_EARTH_EXPORTS |
sec = nsecf(nhms) |
|
./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 |
314 |
GETSICE |
timemod = dfloat(nymdmod) + dfloat(nhms) /1000000 |
|
./pkg/fizhi/update_ocean_exports.F |
349 |
GETSICE |
call INTERP_TIME(nymdmod,nhms,nymdbc1,nhmsbc1,nymdbc2,nhmsbc2, |
|
./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 |
576 |
GETSST |
timemod = dfloat(nymdmod) + dfloat(nhms) /1000000 |
|
./pkg/fizhi/update_ocean_exports.F |
611 |
GETSST |
call INTERP_TIME(nymdmod,nhms,nymdbc1,nhmsbc1,nymdbc2,nhmsbc2, |
|
./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 |
237 |
SET_TIME |
nhms = time |
|
./pkg/chronos/chronos.F |
248 |
GET_TIME |
time = nhms |
|
./pkg/chronos/chronos.F |
252 |
GET_TIME |
function nsecf (nhms) |
|
./pkg/chronos/chronos.F |
259 |
GET_TIME |
integer nhms, nsecf |
|
./pkg/chronos/chronos.F |
260 |
GET_TIME |
nsecf = nhms/10000*3600 + mod(nhms,10000)/100*60 + mod(nhms,100) |
|
./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 |
548 |
TIC_TIME |
mhms = nhms |
|
./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.h |
10 |
NO PROCEDURE |
integer nymd,nhms |
|
./pkg/chronos/chronos.h |
17 |
NO PROCEDURE |
common /chronos/ nymd,nhms |