/[MITgcm]/MITgcm/model/src/ini_parms.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_parms.F

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

revision 1.141 by dimitri, Mon Dec 13 17:24:55 2004 UTC revision 1.142 by jmc, Mon Jan 3 23:16:32 2005 UTC
# Line 1138  c      rkFac = -1.D0 Line 1138  c      rkFac = -1.D0
1138        recip_horiVertRatio = 1./horiVertRatio        recip_horiVertRatio = 1./horiVertRatio
1139    
1140  c-- gradually replacing debugMode by debugLevel  c-- gradually replacing debugMode by debugLevel
1141        IF ( debugLevel .EQ. 999 ) THEN        IF ( debugMode ) debugLevel = debLevB
1142           IF ( debugMode ) THEN  
             debugLevel = debLevB  
          ELSE  
             debugLevel = debLevA  
          ENDIF  
       ENDIF  
 C  
1143        CLOSE(iUnit)        CLOSE(iUnit)
1144    
1145  C--   Check whether any retired parameters were found.  C--   Check whether any retired parameters were found.
Legend:
Removed from v.1.141  
changed lines
  Added in v.1.142
  ViewVC Help
Powered by ViewVC 1.1.22