[cdftools] 68/228: JMM some cosmetics in cdficediags : rename cfilev to cfilei (file ice) for logical reasons

[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 d05ac498bd6e459a42ec1aef2f1c597baba7ece3
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Tue Sep 21 09:44:34 2010 +0000

    JMM some cosmetics in cdficediags : rename cfilev to cfilei (file ice) for logical reasons
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@344 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdficediags.f90 | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/cdficediags.f90 b/cdficediags.f90
index 9eac68c..6497624 100644
--- a/cdficediags.f90
+++ b/cdficediags.f90
@@ -44,7 +44,7 @@ PROGRAM cdficediag
   TYPE(variable), DIMENSION(:), ALLOCATABLE :: typvar  ! structure of output
   !  REAL(KIND=4), DIMENSION(:), ALLOCATABLE   ::   gdepw    ! depth read 
   !
-  CHARACTER(LEN=256) :: cfilev , cdum
+  CHARACTER(LEN=256) :: cfilei , cdum
   CHARACTER(LEN=256) :: coordhgr='mesh_hgr.nc',  cmask='mask.nc'
   ! added to write in netcdf
   CHARACTER(LEN=256) :: cfileoutnc='icediags.nc' 
@@ -58,9 +58,9 @@ PROGRAM cdficediag
   !!  Read command line and output usage message if not compliant.
   narg= iargc()
   IF ( narg == 1) THEN
-     CALL getarg (1, cfilev)
-     npiglo= getdim (cfilev,'x')
-     npjglo= getdim (cfilev,'y')
+     CALL getarg (1, cfilei)
+     npiglo= getdim (cfilei,'x')
+     npjglo= getdim (cfilei,'y')
   ELSE
      PRINT *,' Usage : cdficediag ncfile '
      PRINT *,' Files mesh_hgr.nc, mask.nc '
@@ -141,8 +141,8 @@ PROGRAM cdficediag
   ff(:,:) = getvar(coordhgr, 'gphit' , 1,npiglo,npjglo)
 
 
-  ricethick(:,:)= getvar(cfilev, 'iicethic',  1 ,npiglo,npjglo)
-  riceldfra(:,:)= getvar(cfilev, 'ileadfra',  1 ,npiglo,npjglo)
+  ricethick(:,:)= getvar(cfilei, 'iicethic',  1 ,npiglo,npjglo)
+  riceldfra(:,:)= getvar(cfilei, 'ileadfra',  1 ,npiglo,npjglo)
 
   ! modify the mask for periodic and north fold condition (T pivot, F Pivot ...)
   ! in fact should be nice to use jperio as in the code ...
@@ -193,9 +193,9 @@ PROGRAM cdficediag
      ! create output fileset
      ncout =create(cfileoutnc,'none',kx,ky,kz,cdep='depthw')
      ierr= createvar(ncout,typvar,nboutput,ipk,id_varout )
-     ierr= putheadervar(ncout, cfilev,kx, &
+     ierr= putheadervar(ncout, cfilei,kx, &
           ky,kz,pnavlon=dumlon,pnavlat=dumlat)
-     tim=getvar1d(cfilev,'time_counter',1)
+     tim=getvar1d(cfilei,'time_counter',1)
      ierr=putvar1d(ncout,tim,1,'T')
 
      ! netcdf output 

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