| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_whalos.F |
14 |
MDS_READ_WHALOS |
I n2d, |
|
./pkg/mdsio/mdsio_read_whalos.F |
159 |
MDS_READ_WHALOS |
do i2d=1,n2d |
|
./pkg/mdsio/mdsio_read_whalos.F |
169 |
MDS_READ_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_read_whalos.F |
213 |
MDS_READ_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_read_whalos.F |
241 |
MDS_READ_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
251 |
MDS_READ_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .TRUE., myThid ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
60 |
MDS_READ_WHALOS |
integer n2d |
|
./pkg/mdsio/mdsio_read_whalos.F |
62 |
MDS_READ_WHALOS |
_RL fldRL(1-Olx:sNx+Olx,1-Oly:sNy+Oly,n2d,nSx,nSy) |
|
./pkg/mdsio/mdsio_write_whalos.F |
144 |
MDS_WRITE_WHALOS |
do i2d=1,n2d |
|
./pkg/mdsio/mdsio_write_whalos.F |
148 |
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 |
158 |
MDS_WRITE_WHALOS |
& OLx, OLy, 1, i2d, n2d, 0, 0, .FALSE., myThid ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
176 |
MDS_WRITE_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_write_whalos.F |
220 |
MDS_WRITE_WHALOS |
irec2d=i2d+n2d*(irec-1) |
|
./pkg/mdsio/mdsio_write_whalos.F |
60 |
MDS_WRITE_WHALOS |
integer n2d |
|
./pkg/mdsio/mdsio_write_whalos.F |
62 |
MDS_WRITE_WHALOS |
_RL fldRL(1-Olx:sNx+Olx,1-Oly:sNy+Oly,n2d,nSx,nSy) |
|
./pkg/autodiff/adread_adwrite.F |
137 |
ADREAD |
INTEGER n2d,length2d, jrec, i2d, j2d |
|
./pkg/autodiff/adread_adwrite.F |
156 |
ADREAD |
n2d = INT(length/length2d) |
|
./pkg/autodiff/adread_adwrite.F |
157 |
ADREAD |
IF ( size.EQ.8 .AND. n2d*length2d.EQ.length ) THEN |
|
./pkg/autodiff/adread_adwrite.F |
187 |
ADREAD |
DO i2d=1,n2d |
|
./pkg/autodiff/adread_adwrite.F |
336 |
ADWRITE |
INTEGER n2d,length2d, jrec, i2d, j2d |
|
./pkg/autodiff/adread_adwrite.F |
355 |
ADWRITE |
n2d = INT(length/length2d) |
|
./pkg/autodiff/adread_adwrite.F |
356 |
ADWRITE |
IF ( size.EQ.8 .AND. n2d*length2d.EQ.length ) THEN |
|
./pkg/autodiff/adread_adwrite.F |
386 |
ADWRITE |
DO i2d=1,n2d |