/[MITgcm]/MITgcm/pkg/ggl90/ggl90_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ggl90/ggl90_readparms.F

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

revision 1.6 by mlosch, Thu Jun 8 00:12:45 2006 UTC revision 1.7 by jmc, Thu Jun 8 14:15:26 2006 UTC
# Line 28  C     errIO       - IO error flag Line 28  C     errIO       - IO error flag
28  C     iUnit       - Work variable for IO unit number  C     iUnit       - Work variable for IO unit number
29    
30        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
31        INTEGER errIO, iUnit        INTEGER errIO, iUnit, iL
32    
33          INTEGER  ILNBLNK
34          EXTERNAL ILNBLNK
35    
36  C--   GGL90 vertical mixing parameters  C--   GGL90 vertical mixing parameters
37        NAMELIST /GGL90_PARM01/        NAMELIST /GGL90_PARM01/
# Line 181  C--   print TKE vertical mixing paramete Line 184  C--   print TKE vertical mixing paramete
184        CALL WRITE_0D_R8( GGL90mixingLengthMin, INDEX_NONE,        CALL WRITE_0D_R8( GGL90mixingLengthMin, INDEX_NONE,
185       &     'GGL90mixingLengthMin =',       &     'GGL90mixingLengthMin =',
186       &     '   /* GGL90 minimum mixing length ( m ). */')       &     '   /* GGL90 minimum mixing length ( m ). */')
187        WRITE(msgBuf,'(A,A)') 'GGL90: GGL90TKEFile = ', GGL90TKEFile        iL = MAX_LEN_MBUF - 22
188          iL = MIN(iL,ILNBLNK(GGL90TKEFile))
189          WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL)
190        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
191       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
192    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22