| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_clockstuff.F |
412 |
INTERP_TIME |
& nymd1,nhms1, nymd2,nhms2, fac1,fac2 ) |
|
./pkg/fizhi/fizhi_clockstuff.F |
445 |
INTERP_TIME |
_RL fac1,fac2 |
|
./pkg/fizhi/fizhi_clockstuff.F |
507 |
INTERP_TIME |
fac1 = (time2-time00)/(time2-time1) |
|
./pkg/fizhi/fizhi_turb.F |
1439 |
TRBFLX |
_RL vrt1con,pi,rsq2pi,p5sr,clh,vk,rvk,aitr,gbycp,fac1,fac2 |
|
./pkg/fizhi/update_ocean_exports.F |
182 |
GETSICE |
_RL fac1, fac2, lat0, lon0, timebc1, timebc2, timemod, undef |
|
./pkg/fizhi/update_ocean_exports.F |
350 |
GETSICE |
. fac1,fac2) |
|
./pkg/fizhi/update_ocean_exports.F |
354 |
GETSICE |
sice(i,j,bi,bj) = sicebc1(i+bislot,j+bjslot)*fac1 |
|
./pkg/fizhi/update_ocean_exports.F |
443 |
GETSST |
_RL fac1, fac2, lat0, lon0, timebc1, timebc2, timemod, undef |
|
./pkg/fizhi/update_ocean_exports.F |
612 |
GETSST |
. fac1,fac2) |
|
./pkg/fizhi/update_ocean_exports.F |
616 |
GETSST |
sst(i,j,bi,bj) = sstbc1(i+bislot,j+bjslot)*fac1 |
|
./pkg/chronos/chronos.F |
366 |
INTERP_TIME |
. nymd1,nhms1, nymd2,nhms2, fac1,fac2 ) |
|
./pkg/chronos/chronos.F |
399 |
INTERP_TIME |
_RL fac1,fac2 |
|
./pkg/chronos/chronos.F |
461 |
INTERP_TIME |
fac1 = (time2-time)/(time2-time1) |