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

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

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

revision 1.30 by jmc, Mon Apr 2 21:24:54 2012 UTC revision 1.31 by jmc, Thu Jun 5 15:37:46 2014 UTC
# Line 29  C     === Global variables === Line 29  C     === Global variables ===
29  #include "SIZE.h"  #include "SIZE.h"
30  #include "EEPARAMS.h"  #include "EEPARAMS.h"
31  #include "PARAMS.h"  #include "PARAMS.h"
32    #ifdef ALLOW_DEBUG
33    # include "EXF_PARAM.h"
34    #endif
35    
36  C !INPUT/OUTPUT PARAMETERS:  C !INPUT/OUTPUT PARAMETERS:
37  C  inFile      (string)  :: name of the binary input file (direct access)  C  inFile      (string)  :: name of the binary input file (direct access)
# Line 256  C     averaging properly done if uvInter Line 259  C     averaging properly done if uvInter
259        ENDIF        ENDIF
260    
261  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
262        debugFlag = ( debugLevel.GE.debLevC )        debugFlag = ( exf_debugLev.GE.debLevC )
263       &       .OR. ( debugLevel.GE.debLevB .AND. myIter.LE.nIter0 )       &       .OR. ( exf_debugLev.GE.debLevB .AND. myIter.LE.nIter0 )
264  C     prtPole(l)=0 : extended, =1 : changed to pole, =2 : changed to symetric  C     prtPole(l)=0 : extended, =1 : changed to pole, =2 : changed to symetric
265        IF ( debugFlag ) THEN        IF ( debugFlag ) THEN
266          l = ILNBLNK(inFile)          l = ILNBLNK(inFile)
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22