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

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

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

revision 1.7 by jmc, Tue Oct 9 00:02:50 2007 UTC revision 1.8 by heimbach, Wed Jun 17 15:14:00 2009 UTC
# Line 141  cnew) Line 141  cnew)
141                endif                endif
142    
143  cph(  cph(
144  cph               print *, 'WARNING: SPECIFIC SETUP FOR ECCO'                if ( R_low(i,j,bi,bj) .GT. -200. ) then
 cph               below statement could be replaced by following  
 cph               to make it independnet of Nr:  
 cph  
 cph               if ( rC(K) .GT. -1000. ) then  
 cph)  
 c             set tpmask=0 in areas shallower than 1000m  
               if (_hFacC(i,j,13,bi,bj) .eq. 0.) then  
145                  ersmask(i,j,bi,bj) = 0. _d 0                  ersmask(i,j,bi,bj) = 0. _d 0
146                endif                endif
147    cph)
148    
149                ersmask(i,j,bi,bj) = ersmask(i,j,bi,bj)*frame(i,j)                ersmask(i,j,bi,bj) = ersmask(i,j,bi,bj)*frame(i,j)
150                ersobs(i,j,bi,bj)  = ersmask(i,j,bi,bj)*factor*                ersobs(i,j,bi,bj)  = ersmask(i,j,bi,bj)*factor*
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22