/[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.22 by heimbach, Fri Jun 9 02:45:04 2000 UTC revision 1.23 by adcroft, Wed Jun 21 19:14:10 2000 UTC
# Line 154  C     == Local variables == Line 154  C     == Local variables ==
154       & 'openBoundaries =', '  /* OpenBoundaries on/off flag */')       & 'openBoundaries =', '  /* OpenBoundaries on/off flag */')
155        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,
156       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')
       CALL WRITE_0D_R8( GMmaxslope,   INDEX_NONE,'GMMaxslope =',  
      &'   /* Max. slope allowed in GM/Redi tensor */')  
       CALL WRITE_0D_R8( GMlength,     INDEX_NONE,'GMlength =',  
      &'   /* Length to use in Visbeck et al. formula for K (m) */')  
       CALL WRITE_0D_R8( GMalpha,      INDEX_NONE,'GMalpha =',  
      &'   /* alpha to use in Visbeck et al. formula for K */')  
       CALL WRITE_0D_R8( GMdepth,      INDEX_NONE,'GMdepth =',  
      &'   /* Depth to integrate for Visbeck et. al Richardson # (m) */')  
       CALL WRITE_0D_R8( GMkbackground,INDEX_NONE,'GMkbackground =',  
      &'   /* background value of GM/Redi coefficient m^2/s */')  
157        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
158        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
159       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22