/[MITgcm]/MITgcm/pkg/exf/exf_check_range.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_check_range.F

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

revision 1.28 by heimbach, Wed Apr 18 19:55:34 2007 UTC revision 1.29 by jmc, Fri Nov 30 22:22:06 2007 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "EXF_OPTIONS.h"  #include "EXF_OPTIONS.h"
5    
6        subroutine exf_check_range( mytime, myiter, mythid )        SUBROUTINE EXF_CHECK_RANGE( mytime, myiter, mythid )
7    
8  c     ==================================================================  c     ==================================================================
9  c     SUBROUTINE exf_check_range  c     SUBROUTINE EXF_CHECK_RANGE
10  c     ==================================================================  c     ==================================================================
11  c  c
12        implicit none        implicit none
# Line 46  c     == end of interface == Line 46  c     == end of interface ==
46    
47        exferr = 0        exferr = 0
48    
49        jtlo = mybylo(mythid)  c     jtlo = mybylo(mythid)
50        jthi = mybyhi(mythid)  c     jthi = mybyhi(mythid)
51        itlo = mybxlo(mythid)  c     itlo = mybxlo(mythid)
52        ithi = mybxhi(mythid)  c     ithi = mybxhi(mythid)
53    C--   Only master thread can safely write directly to standard output:
54          _BARRIER
55          _BEGIN_MASTER( myThid )
56          jtlo = 1
57          jthi = nSy
58          itlo = 1
59          ithi = nSx
60    
61  C Change checking range because some atmospheric fields will  C Change checking range because some atmospheric fields will
62  C not always have valid values in the tile edges.  C not always have valid values in the tile edges.
# Line 221  c Line 228  c
228       &      'EXF WARNING: If you think these values are OK '       &      'EXF WARNING: If you think these values are OK '
229         write(standardmessageunit,'(A)')         write(standardmessageunit,'(A)')
230       &      'EXF WARNING: then set useExfCheckRange=.FALSE.'       &      'EXF WARNING: then set useExfCheckRange=.FALSE.'
231         STOP 'in S/R exf_check_range'         STOP 'ABNORMAL END: S/R EXF_CHECK_RANGE'
232        endif        endif
233          _END_MASTER( myThid )
234    
235        end        RETURN
236          END
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22