/[MITgcm]/MITgcm/pkg/ecco/cost_readtopexmean.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_readtopexmean.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by heimbach, Mon Oct 11 16:38:53 2004 UTC revision 1.3 by jmc, Tue Oct 9 00:02:50 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "COST_CPPOPTIONS.h"  #include "COST_CPPOPTIONS.h"
5    
# Line 66  c--   Convert mean ssh from cm to m Line 67  c--   Convert mean ssh from cm to m
67        factor =  0.01        factor =  0.01
68        spval  = -9990.        spval  = -9990.
69    
70        call mdsreadfield( topexmeanfile, cost_iprec, cost_yftype, 1,        call mdsreadfield( topexmeanfile, cost_iprec, cost_yftype, 1,
71       &                   tpmean, 1, mythid )       &                   tpmean, 1, mythid )
72    
73        do bj = jtlo,jthi        do bj = jtlo,jthi
# Line 93  cph               to make it independnet Line 94  cph               to make it independnet
94  cph  cph
95  cph               if ( rC(K) .GT. -1000. ) then  cph               if ( rC(K) .GT. -1000. ) then
96  cph)  cph)
97  c             set tpmask=0 in areas shallower than 1000m  c             set tpmask=0 in areas shallower than 1000m
98                if (_hFacC(i,j,13,bi,bj) .eq. 0.) then                if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
99                  tpmeanmask(i,j,bi,bj) = 0. _d 0                  tpmeanmask(i,j,bi,bj) = 0. _d 0
100                endif                endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22