[cdftools] 13/228: JMM add masking of the spiciness in cdfspice

[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 e148b31b535be889ffde59e3cf38d8e566f54b1f
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Fri Mar 5 09:54:22 2010 +0000

    JMM add masking of the spiciness in cdfspice
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@289 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfspice.f90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/cdfspice.f90 b/cdfspice.f90
index a179bff..17ae9bd 100644
--- a/cdfspice.f90
+++ b/cdfspice.f90
@@ -15,7 +15,9 @@ PROGRAM cdfspice
   !!                          theta -> potential temperature
   !!                          s     -> salinity 
   !!
-  !!  **  Example: spice(15,33) = 0.54458641375             
+  !!  **  Example: 
+  !!       spice(15,33)=   0.5445863      0.544586321373410  calcul en double
+  !!       spice(15,33)=   0.5445864      (calcul en simple precision)
   !!
   !! history: 
   !!     Original :   C.O. Dufour (Mar 2010) 
@@ -123,7 +125,7 @@ PROGRAM cdfspice
        ztempt(:,:) = ztempt(:,:)*ztemp(:,:)     
      END DO
 
-     ierr = putvar(ncout, id_varout(1) ,REAL(zspi), jk,npiglo, npjglo,ktime=jt)
+     ierr = putvar(ncout, id_varout(1) ,REAL(zspi)*zmask, jk,npiglo, npjglo,ktime=jt)
 
   END DO  ! loop to next level
   END DO  ! next time frame

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