GANAL ǡεͤˤĤơ (by Shen)

****** 2 Υǡˤ 150/141=1.06383 ܤ٤ !? (by Numaguti) ; 


     ʿѡʣ

     ξϣޤǤΥǡ
       ¾η      ϣޤǤΥǡ

     ե̾CLIMGANAL.01---12Ǥ롣

     /home/shen/workH/GANAL/ˤ롣

     ɤϼδñˡǤǤ롣

#include "zgadim.F"
      real*4  gu(imaxg,jmaxg,kmaxg)
      real*4  gv(imaxg,jmaxg,kmaxg)
      real*4  gt(imaxg,jmaxg,kmaxg)
      real*4  gttd(imaxg,jmaxg,kmaxg)
      real*4  gz(imaxg,jmaxg,kmaxg)
       open(20,file='CLIMGANAL.12',form='unformatted')
       read(20) gu,gv,gt,gz,gttd
       close(20)
      stop
      end

* zgadim.F
* parameter for ganal grid
*
      parameter ( imaxg=192, jmaxg=97, kmaxg=16 )
      parameter ( kindmx = 5 )
      parameter ( kmaxtd = 7 )  ! included k=1(surface data)
