| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
107 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,2) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
109 |
FIZHI_INIT_VEGSURFTILES |
. tempgrid(i,j) = globalarr(i+bislot,j+bjslot,1) - 0.5 |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
120 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,3) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
133 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,4) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
146 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,5) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
159 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,6) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
172 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,7) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
185 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,8) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
55 |
FIZHI_INIT_VEGSURFTILES |
Real*8 globalarr(xsize,ysize,8) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
71 |
FIZHI_INIT_VEGSURFTILES |
read(iunit,rec=1) globalarr |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
77 |
FIZHI_INIT_VEGSURFTILES |
call MDS_BYTESWAPR8( Nx*Ny*8, globalarr ) |
|
./pkg/fizhi/fizhi_init_vegsurftiles.F |
96 |
FIZHI_INIT_VEGSURFTILES |
tempgrid(i,j) = globalarr(i+bislot,j+bjslot,1) |