interp_horiz Subroutine

subroutine interp_horiz(varo, varn, imo, jmo, imn, jmn, lm, rlonuo, rlatvo, rlonun, rlatvn)

  if (.not.(firsttest)) goto 99
  firsttest = .false.

! write (,) 'INTERP. HORIZ. : TEST SUR LES AIRES:' do jj =1 , jmn+1 do ii=1, imn+1 airetest(ii,jj) =0. end do end do PRINT , 'ktotal = ', ktotal PRINT , 'jmn+1 =', jmn+1, 'imn+1', imn+1

  do k=1,ktotal
     airetest(iik(k),jjk(k))= airetest(iik(k),jjk(k)) +intersec(k)
  end DO


  PRINT *, 'fin boucle'
  do jj =1 , jmn+1
   do ii=1, imn+1
     r = airen(ii,jj)/airetest(ii,jj)
     if ((r.gt.1.001).or.(r.lt.0.999)) then

! write (,) '* PROBLEME D'' AIRES !!!', ! & ' DANS L''INTERPOLATION HORIZONTALE' ! write(,)'ii,jj,airen,airetest', ! & ii,jj,airen(ii,jj),airetest(ii,jj) aire_ok = .false. end if end do end do ! if (aire_ok) write(,*) 'INTERP. HORIZ. : AIRES OK' 99 continue

Arguments