1 |
#include "EXF_CPPOPTIONS.h" |
#include "EXF_OPTIONS.h" |
2 |
|
|
3 |
subroutine exf_set_gen( |
subroutine exf_set_gen( |
4 |
& genfile, genstartdate, genperiod, exf_inscal_gen, |
& genfile, genstartdate, genperiod, exf_inscal_gen, |
40 |
|
|
41 |
c == routine arguments == |
c == routine arguments == |
42 |
|
|
43 |
integer genstartdate(4) |
_RL genstartdate, genperiod |
|
_RL genperiod |
|
44 |
_RL exf_inscal_gen |
_RL exf_inscal_gen |
45 |
_RL genfld(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL genfld(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
46 |
_RL gen0 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
_RL gen0 (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
111 |
call exf_SwapFFields( gen0, gen1, mythid ) |
call exf_SwapFFields( gen0, gen1, mythid ) |
112 |
|
|
113 |
#ifdef USE_EXF_INTERPOLATION |
#ifdef USE_EXF_INTERPOLATION |
114 |
|
interp_method = 2 |
115 |
call exf_interp( genfile, exf_iprec |
call exf_interp( genfile, exf_iprec |
116 |
& , gen1, count1, gen_xout, gen_yout |
& , gen1, count1, gen_xout, gen_yout |
117 |
& , gen_lon0,gen_lon_inc |
& , gen_lon0,gen_lon_inc |