/[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.137 by heimbach, Thu Nov 18 15:17:06 2004 UTC revision 1.138 by heimbach, Mon Nov 22 20:47:34 2004 UTC
# Line 1120  c      rkFac = -1.D0 Line 1120  c      rkFac = -1.D0
1120        recip_horiVertRatio = 1./horiVertRatio        recip_horiVertRatio = 1./horiVertRatio
1121    
1122  c-- gradually replacing debugMode by debugLevel  c-- gradually replacing debugMode by debugLevel
1123        IF ( debugMode ) debugLevel = debLevB        IF ( debugMode ) THEN
1124           debugLevel = debLevB
1125          ELSE
1126           debugLevel = debLevA
1127          ENDIF
1128  C  C
1129        CLOSE(iUnit)        CLOSE(iUnit)
1130    
Legend:
Removed from v.1.137  
changed lines
  Added in v.1.138
  ViewVC Help
Powered by ViewVC 1.1.22