[cdftools] 78/228: JMM some reformating in cdfsiginsitu.f90 and cdfhdy.f90

[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 b6e41f852be6a9a7117be50c086188f86cc59c90
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Mon Dec 13 21:46:37 2010 +0000

    JMM some reformating in cdfsiginsitu.f90 and cdfhdy.f90
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@354 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfhdy.f90       |  9 ++++-----
 cdfsiginsitu.f90 | 16 ++++++++--------
 2 files changed, 12 insertions(+), 13 deletions(-)

diff --git a/cdfhdy.f90 b/cdfhdy.f90
index ec7b2e3..2180ae1 100644
--- a/cdfhdy.f90
+++ b/cdfhdy.f90
@@ -7,12 +7,11 @@ PROGRAM cdfhdy
   !!  
   !!
   !! history: 
-  !!     Original :   J.M. Molines (Nov 2004 ) for ORCA025
-  !!                  J.M. Molines Apr 2005 : use modules
+  !!     Original :   R. Dussin, May 2010
   !!-------------------------------------------------------------------
-  !!  $Rev: 256 $
-  !!  $Date: 2009-07-21 17:49:27 +0200 (mar. 21 juil. 2009) $
-  !!  $Id: cdfsig0.f90 256 2009-07-21 15:49:27Z molines $
+  !!  $Rev$
+  !!  $Date$
+  !!  $Id$
   !!--------------------------------------------------------------
   !! * Modules used
   USE cdfio
diff --git a/cdfsiginsitu.f90 b/cdfsiginsitu.f90
index 5c1621f..1efc63f 100644
--- a/cdfsiginsitu.f90
+++ b/cdfsiginsitu.f90
@@ -92,18 +92,18 @@ PROGRAM cdfsiginsitu
   spval=getatt(cfilet,'vosaline','missing_value')
   DO jt=1,npt
      PRINT *,'time ',jt, tim(jt)/86400.,' days'
-  DO jk = 1, npk
-     zmask(:,:)=1.
+     DO jk = 1, npk
+        zmask(:,:)=1.
 
-     ztemp(:,:)= getvar(cfilet, 'votemper',  jk ,npiglo, npjglo, ktime=jt)
-     zsal(:,:) = getvar(cfilet, 'vosaline',  jk ,npiglo, npjglo, ktime=jt)
+        ztemp(:,:)= getvar(cfilet, 'votemper',  jk ,npiglo, npjglo, ktime=jt)
+        zsal(:,:) = getvar(cfilet, 'vosaline',  jk ,npiglo, npjglo, ktime=jt)
 
-     WHERE(zsal == spval ) zmask = 0
+        WHERE(zsal == spval ) zmask = 0
 
-     zsigi(:,:) = sigmai ( ztemp,zsal,prof(jk),npiglo,npjglo )* zmask(:,:)
-     ierr = putvar(ncout, id_varout(1) ,zsigi, jk,npiglo, npjglo,ktime=jt)
+        zsigi(:,:) = sigmai ( ztemp,zsal,prof(jk),npiglo,npjglo )* zmask(:,:)
+        ierr = putvar(ncout, id_varout(1) ,zsigi, jk,npiglo, npjglo,ktime=jt)
 
-  END DO  ! loop to next level
+     END DO  ! loop to next level
   END DO  ! loop to next time
 
   istatus = closeout(ncout)

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