/[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.140 by mlosch, Thu Dec 9 09:01:07 2004 UTC revision 1.141 by dimitri, Mon Dec 13 17:24:55 2004 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 ( debugMode ) THEN        IF ( debugLevel .EQ. 999 ) THEN
1142         debugLevel = debLevB           IF ( debugMode ) THEN
1143        ELSE              debugLevel = debLevB
1144         debugLevel = debLevA           ELSE
1145                debugLevel = debLevA
1146             ENDIF
1147        ENDIF        ENDIF
1148  C  C
1149        CLOSE(iUnit)        CLOSE(iUnit)
Legend:
Removed from v.1.140  
changed lines
  Added in v.1.141
  ViewVC Help
Powered by ViewVC 1.1.22