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

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

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

revision 1.10 by heimbach, Wed Apr 18 19:55:34 2007 UTC revision 1.11 by heimbach, Sat Jun 23 14:48:08 2007 UTC
# Line 38  c     == global variables == Line 38  c     == global variables ==
38  #include "EEPARAMS.h"  #include "EEPARAMS.h"
39  #include "SIZE.h"  #include "SIZE.h"
40  #include "GRID.h"  #include "GRID.h"
41    #ifdef ALLOW_BULK_OFFLINE
42    # include "PARAMS.h"
43    # include "DYNVARS.h"
44    #endif
45  #include "EXF_PARAM.h"  #include "EXF_PARAM.h"
46  #include "EXF_CONSTANTS.h"  #include "EXF_CONSTANTS.h"
47  #include "EXF_FIELDS.h"  #include "EXF_FIELDS.h"
48    #ifdef ALLOW_AUTODIFF
49    # include "ctrl.h"
50    # include "ctrl_dummy.h"
51    #endif
52    
53  c     == routine arguments ==  c     == routine arguments ==
54    
# Line 107  c Line 115  c
115  c--   Update the tile edges.  c--   Update the tile edges.
116        _EXCH_XY_R8(climsss, mythid)        _EXCH_XY_R8(climsss, mythid)
117  #endif  #endif
118    #ifdef ALLOW_SST_CONTROL
119          call ctrl_get_gen (
120         &     xx_sst_file, xx_sststartdate, xx_sstperiod,
121         &     maskc, climsst, xx_sst0, xx_sst1, xx_sst_dummy,
122         &     mytime, myiter, mythid )
123    #endif
124    
125    #ifdef ALLOW_BULK_OFFLINE
126          DO bj=myByLo(myThid),myByHi(myThid)
127           DO bi=myBxLo(myThid),myBxHi(myThid)
128             DO j=1-oLy,sNy+oLy
129              DO i=1-oLx,sNx+oLx
130               theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)
131               if ( myiter .EQ. niter0 ) then
132                  if ( maskC(i,j,1,bi,bj) .NE. 0. .AND.
133         &             theta(i,j,1,bi,bj) .EQ. 0. ) then
134                    print *, 'ph-warn-exf-clim ', i, j, theta(i,j,1,bi,bj)
135    cph                STOP 'in exf_getclim'
136                  endif
137               endif
138              ENDDO
139             ENDDO
140           ENDDO
141          ENDDO
142    #endif /* ALLOW_BULK_OFFLINE */
143    
144        end        end
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22