GridZI

From GHER

Jump to: navigation, search

gridZI(k) est la profondeur de l'interface (négatif)

ici k va de 1 à MAXT+1


n'est calculée que lorsque on utilise le flag GRIDZ



dans INITIAL.H

 #ifdef GridZ
     do k=2,ksupII
     do j=1,jmax
     do i=1,imax
       gridZI(i,j,k-1) = (SIGIII(K)-1.)*HII(I,J)-HLIM
      end do
     end do
     end do

     do k=2,ksupI+1
     do j=1,jmax
     do i=1,imax
       gridZI(i,j,k+ksupII-2) = (SIGII (K)-1.)*HI(I,J)
     end do
     end do
     end do
     do k=2,ksupII
     do j=1,jmax
     do i=1,imax
       gridZM(i,j,k-1) = (SIGMII(K)-1.)*HII(I,J)-HLIM
      end do
     end do
     end do

     do k=2,ksupI
     do j=1,jmax
     do i=1,imax
       gridZM(i,j,k+ksupII-2) = (SIGMI (K)-1.)*HI(I,J)
     end do
     end do
     end do
     #endif
Personal tools