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

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

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

revision 1.152 by jmc, Mon Apr 4 21:29:00 2016 UTC revision 1.153 by jmc, Mon Nov 28 22:57:01 2016 UTC
# Line 342  C------------ Line 342  C------------
342        CALL WRITE_0D_RL( implicSurfPress, INDEX_NONE,        CALL WRITE_0D_RL( implicSurfPress, INDEX_NONE,
343       & 'implicSurfPress =',       & 'implicSurfPress =',
344       & '  /* Surface Pressure implicit factor (0-1)*/')       & '  /* Surface Pressure implicit factor (0-1)*/')
345        CALL WRITE_0D_RL( implicDiv2Dflow, INDEX_NONE,        CALL WRITE_0D_RL( implicDiv2DFlow, INDEX_NONE,
346       & 'implicDiv2Dflow =',       & 'implicDiv2DFlow =',
347       & '  /* Barot. Flow Div. implicit factor (0-1)*/')       & '  /* Barot. Flow Div. implicit factor (0-1)*/')
348        CALL WRITE_0D_L( uniformLin_PhiSurf, INDEX_NONE,        CALL WRITE_0D_L( uniformLin_PhiSurf, INDEX_NONE,
349       & 'uniformLin_PhiSurf =',       & 'uniformLin_PhiSurf =',
# Line 432  C------------ Line 432  C------------
432       &                ' /* Momentum implicit vert. advection on/off*/')       &                ' /* Momentum implicit vert. advection on/off*/')
433        CALL WRITE_0D_L( implicitViscosity, INDEX_NONE,        CALL WRITE_0D_L( implicitViscosity, INDEX_NONE,
434       & 'implicitViscosity =', ' /* Implicit viscosity on/off flag */')       & 'implicitViscosity =', ' /* Implicit viscosity on/off flag */')
435        CALL WRITE_0D_L( implBottomFriction, INDEX_NONE,  c------------
436       & 'implBottomFriction=',  c     CALL WRITE_0D_L( selectImplicitDrag, INDEX_NONE,
437       & ' /* Implicit bottom friction on/off flag */')  c    & 'selectImplicitDrag=',
438    c    & ' /* Implicit bottom friction on/off flag */')
439          WRITE(msgBuf,'(2A)')
440         & 'selectImplicitDrag=', ' /* Implicit bot Drag options (0,1,2)*/'
441          CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
442          buffI(1) = selectImplicitDrag
443          CALL PRINT_LIST_I( buffI, 1, 1, INDEX_NONE,
444         &                   .FALSE., .TRUE., ioUnit )
445          WRITE(msgBuf,'(2A)') '    0= Expl. ; 1= Impl. on provis. Vel ;',
446         &  ' 2= Fully Impl (with surf.P)'
447          CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
448          CALL PRINT_MESSAGE(endList, ioUnit, SQUEEZE_RIGHT, myThid )
449    c------------
450        CALL WRITE_0D_L( metricTerms,  INDEX_NONE, 'metricTerms =',        CALL WRITE_0D_L( metricTerms,  INDEX_NONE, 'metricTerms =',
451       &                '  /* metric-Terms on/off flag */')       &                '  /* metric-Terms on/off flag */')
452        CALL WRITE_0D_L( useNHMTerms,  INDEX_NONE, 'useNHMTerms =',        CALL WRITE_0D_L( useNHMTerms,  INDEX_NONE, 'useNHMTerms =',
Legend:
Removed from v.1.152  
changed lines
  Added in v.1.153
  ViewVC Help
Powered by ViewVC 1.1.22