File |
Line number |
Procedure |
Code |
./pkg/ctrl/ctrl_get_gen.F |
140 |
CTRL_GET_GEN |
call ACTIVE_READ_XY( fnamegen, xx_gen1, gencount0, |
./pkg/ctrl/ctrl_get_gen.F |
149 |
CTRL_GET_GEN |
CALL READ_REC_XY_RL( fnamegen, xx_gen1, gencount0, 1, myThid ) |
./pkg/ctrl/ctrl_get_gen.F |
157 |
CTRL_GET_GEN |
& call CTRL_SMOOTH(xx_gen1,genmask,myThid) |
./pkg/ctrl/ctrl_get_gen.F |
163 |
CTRL_GET_GEN |
if (useSMOOTH) call SMOOTH2D(xx_gen1,genmask,1,mythid) |
./pkg/ctrl/ctrl_get_gen.F |
167 |
CTRL_GET_GEN |
& 'RL',1,1,1,xx_gen1,dummyRS,gencount1,optimcycle,mythid) |
./pkg/ctrl/ctrl_get_gen.F |
174 |
CTRL_GET_GEN |
call CTRL_SWAPFFIELDS( xx_gen0, xx_gen1, mythid ) |
./pkg/ctrl/ctrl_get_gen.F |
182 |
CTRL_GET_GEN |
call ACTIVE_READ_XY( fnamegen, xx_gen1 , gencount1, |
./pkg/ctrl/ctrl_get_gen.F |
186 |
CTRL_GET_GEN |
CALL READ_REC_XY_RL( fnamegen, xx_gen1, gencount1, 1, myThid ) |
./pkg/ctrl/ctrl_get_gen.F |
193 |
CTRL_GET_GEN |
& call CTRL_SMOOTH(xx_gen1,genmask,myThid) |
./pkg/ctrl/ctrl_get_gen.F |
199 |
CTRL_GET_GEN |
if (useSMOOTH) call SMOOTH2D(xx_gen1,genmask,1,mythid) |
./pkg/ctrl/ctrl_get_gen.F |
203 |
CTRL_GET_GEN |
& 'RL',1,1,1,xx_gen1,dummyRS,gencount0,optimcycle,mythid) |
./pkg/ctrl/ctrl_get_gen.F |
273 |
CTRL_GET_GEN |
& + gensign*(1. _d 0 - genfac)*xx_gen1(i,j,bi,bj) |
./pkg/ctrl/ctrl_get_gen.F |
55 |
CTRL_GET_GEN |
_RL xx_gen1(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/ctrl/ctrl_get_gen.F |
9 |
CTRL_GET_GEN |
I genmask, genfld, xx_gen0, xx_gen1, xx_gen_dummy, |