248 |
q( i,1,llm+1-l,0)=qpn |
q( i,1,llm+1-l,0)=qpn |
249 |
q( i,jjp1,llm+1-l,0)=qps |
q( i,jjp1,llm+1-l,0)=qps |
250 |
enddo |
enddo |
|
c enddo |
|
|
c print*,'qpn',qpn,'qps',qps |
|
|
c print*,'dqzpn',dqzpn,'dqzps',dqzps |
|
|
c enddo |
|
251 |
dyn1=0. |
dyn1=0. |
252 |
dys1=0. |
dys1=0. |
253 |
dyn2=0. |
dyn2=0. |
332 |
PRINT*,'SY(',i,j,l,')=',q(i,j,l,2), |
PRINT*,'SY(',i,j,l,')=',q(i,j,l,2), |
333 |
$ q(i,j-1,l,2) |
$ q(i,j-1,l,2) |
334 |
PRINT*,'SZ(',i,j,l,')=',q(i,j,l,3) |
PRINT*,'SZ(',i,j,l,')=',q(i,j,l,3) |
|
c PRINT*,' PBL EN SORTIE D'' ADVZP' |
|
335 |
q(i,j,l,0)=0. |
q(i,j,l,0)=0. |
|
c STOP |
|
336 |
ENDIF |
ENDIF |
337 |
ENDDO |
ENDDO |
338 |
ENDDO |
ENDDO |