54 |
& ) |
& ) |
55 |
|
|
56 |
if ( first ) then |
if ( first ) then |
57 |
call mdsreadfield( atempfile, exf_iprec, exf_yftype, 1 |
if ( atempfile .NE. ' ' ) |
58 |
|
& call mdsreadfield( atempfile, exf_iprec, exf_yftype, 1 |
59 |
& , atemp1, count0, mythid |
& , atemp1, count0, mythid |
60 |
& ) |
& ) |
61 |
if (exf_yftype .eq. 'RL') then |
if (exf_yftype .eq. 'RL') then |
68 |
if (( first ) .or. ( changed )) then |
if (( first ) .or. ( changed )) then |
69 |
call exf_SwapFFields( atemp0, atemp1, mythid ) |
call exf_SwapFFields( atemp0, atemp1, mythid ) |
70 |
|
|
71 |
call mdsreadfield( atempfile, exf_iprec, exf_yftype, 1 |
if ( atempfile .NE. ' ' ) |
72 |
|
& call mdsreadfield( atempfile, exf_iprec, exf_yftype, 1 |
73 |
& , atemp1, count1, mythid |
& , atemp1, count1, mythid |
74 |
& ) |
& ) |
75 |
if (exf_yftype .eq. 'RL') then |
if (exf_yftype .eq. 'RL') then |
142 |
do bi = mybxlo(mythid), mybxhi(mythid) |
do bi = mybxlo(mythid), mybxhi(mythid) |
143 |
do j = 1, sny |
do j = 1, sny |
144 |
do i = 1, snx |
do i = 1, snx |
145 |
|
atemp(i,j,bi,bj) = 0. _d 0 |
146 |
atemp0(i,j,bi,bj) = 0. _d 0 |
atemp0(i,j,bi,bj) = 0. _d 0 |
147 |
atemp1(i,j,bi,bj) = 0. _d 0 |
atemp1(i,j,bi,bj) = 0. _d 0 |
148 |
enddo |
enddo |