| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_whalos.F |
131 |
MDS_READ_WHALOS |
do i2d=1,n2d |
|
./pkg/mdsio/mdsio_read_whalos.F |
135 |
MDS_READ_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_read_whalos.F |
14 |
MDS_READ_WHALOS |
I n2d, |
|
./pkg/mdsio/mdsio_read_whalos.F |
159 |
MDS_READ_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
167 |
MDS_READ_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
58 |
MDS_READ_WHALOS |
integer n2d |
|
./pkg/mdsio/mdsio_read_whalos.F |
60 |
MDS_READ_WHALOS |
_RL fldRL(1-Olx:sNx+Olx,1-Oly:sNy+Oly,n2d,nSx,nSy) |
|
./pkg/mdsio/mdsio_write_whalos.F |
133 |
MDS_WRITE_WHALOS |
do i2d=1,n2d |
|
./pkg/mdsio/mdsio_write_whalos.F |
137 |
MDS_WRITE_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
145 |
MDS_WRITE_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
14 |
MDS_WRITE_WHALOS |
I n2d, |
|
./pkg/mdsio/mdsio_write_whalos.F |
155 |
MDS_WRITE_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_write_whalos.F |
58 |
MDS_WRITE_WHALOS |
integer n2d |
|
./pkg/mdsio/mdsio_write_whalos.F |
60 |
MDS_WRITE_WHALOS |
_RL fldRL(1-Olx:sNx+Olx,1-Oly:sNy+Oly,n2d,nSx,nSy) |
|
./pkg/autodiff/adread_adwrite.F |
133 |
ADREAD |
integer n2d,length2d |
|
./pkg/autodiff/adread_adwrite.F |
171 |
ADREAD |
n2d=int(length/length2d) |
|
./pkg/autodiff/adread_adwrite.F |
173 |
ADREAD |
if (n2d*length2d.EQ.length) then |
|
./pkg/autodiff/adread_adwrite.F |
175 |
ADREAD |
& 0,n2d,var,irec,mythid) |
|
./pkg/autodiff/adread_adwrite.F |
301 |
ADWRITE |
integer n2d,length2d |
|
./pkg/autodiff/adread_adwrite.F |
347 |
ADWRITE |
n2d=int(length/length2d) |
|
./pkg/autodiff/adread_adwrite.F |
349 |
ADWRITE |
if (n2d*length2d.EQ.length) then |
|
./pkg/autodiff/adread_adwrite.F |
351 |
ADWRITE |
& 0,n2d,var,irec,mythid) |