[cdftools] 155/228: time counter bug corrected

[Alastair McKinstry]

This is an automated email from the git hooks/post-receive script.

mckinstry pushed a commit to branch master
in repository cdftools.

commit 0e5d83e472d0641ffdf39a0f5aa1b73452bd3dce
Author: dussin <dussin at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Mon May 14 09:23:01 2012 +0000

    time counter bug corrected
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@603 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfgeostrophy.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cdfgeostrophy.f90 b/cdfgeostrophy.f90
index 2bc4c8d..9e73825 100644
--- a/cdfgeostrophy.f90
+++ b/cdfgeostrophy.f90
@@ -209,6 +209,7 @@ PROGRAM cdfgeostrophy
   ALLOCATE ( deptht(npk), depthw(npk) )
   ALLOCATE ( zsigsurf(npiglo,npjglo) , zsiglevel(npiglo,npjglo) )
   ALLOCATE ( e3(npiglo,npjglo) )
+  ALLOCATE ( tim(npt) )
 
   ! Read the metrics from the mesh_hgr file
   e2u   = getvar(cn_fhgr, cn_ve2u,  1, npiglo, npjglo)
@@ -220,14 +221,13 @@ PROGRAM cdfgeostrophy
   glamv = getvar(cn_fhgr, cn_glamv, 1, npiglo, npjglo)
   gphiv = getvar(cn_fhgr, cn_gphiv, 1, npiglo, npjglo)
 
-  deptht(:) = getvare3(cn_fhgr, 'gdept',npk)
+  deptht(:) = getvar1d(cf_tfil, cn_vdeptht, npk    )
 
   ! create output filesets
   ! U geo  
   ncoutu = create      (cf_uout, cf_tfil,  npiglo, npjglo, npk                            )
   ierr   = createvar   (ncoutu,  stypvaru, 1,      ipk,    id_varoutu                     )
   ierr   = putheadervar(ncoutu,  cf_tfil,  npiglo, npjglo, npk, pnavlon=glamu, pnavlat=gphiu)
-
   tim  = getvar1d(cf_tfil, cn_vtimec, npt     )
   ierr = putvar1d(ncoutu,  tim,       npt, 'T')
 

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/cdftools.git