/[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.7 by jmc, Thu Jun 8 14:15:26 2006 UTC revision 1.8 by jmc, Thu Jun 8 14:21:45 2006 UTC
# Line 185  C--   print TKE vertical mixing paramete Line 185  C--   print TKE vertical mixing paramete
185       &     'GGL90mixingLengthMin =',       &     'GGL90mixingLengthMin =',
186       &     '   /* GGL90 minimum mixing length ( m ). */')       &     '   /* GGL90 minimum mixing length ( m ). */')
187        iL = MAX_LEN_MBUF - 22        iL = MAX_LEN_MBUF - 22
188        iL = MIN(iL,ILNBLNK(GGL90TKEFile))        iL = MIN( iL, MAX(ILNBLNK(GGL90TKEFile),1) )
189        WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL)        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)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22