INTEGER stdUnit, iLen

        iLen = ILNBLNK(fName)

        OPEN( W2_oUnit, file=fName(1:iLen),

        WRITE(msgBuf,'(2A)') ' write to log-file: ', fName(1:iLen)

         iLen = ILNBLNK(msgBuf)

         WRITE(W2_oUnit,'(A)') msgBuf(1:iLen)

         iLen = ILNBLNK(msgBuf)

         WRITE(W2_oUnit,'(A)') msgBuf(1:iLen)

         iLen = ILNBLNK(msgBuf)

         WRITE(W2_oUnit,'(A)') msgBuf(1:iLen)

      INTEGER iLen

      INTEGER bi, bj, imax, iLen

      iLen = ILNBLNK(suff)

      WRITE(fn,'(A,A)') 'pickup_flt.', suff(1:iLen)

      OPEN( dUnit, file=fName(1:iLen), status='old',

      INTEGER i,j, dUnit, iLen

      iLen = ILNBLNK(fName)

      OPEN( dUnit, file=fName(1:iLen), status='old',

         iLen = ILNBLNK(relaxMaskTrFile(irbc))

     &     ') = "', relaxMaskTrFile(irbc)(1:iLen), '"'

         iLen = ILNBLNK(relaxMaskUFile)

     &     ' = "', relaxMaskUFile(1:iLen), '"'

         iLen = ILNBLNK(relaxMaskVFile)

     &     ' = "', relaxMaskVFile(1:iLen), '"'

          iLen = ILNBLNK(relaxMaskTrFile(irbc))

     &     ') = "', relaxMaskTrFile(irbc)(1:iLen), '"'

      INTEGER irbc, iLen

         iLen = ILNBLNK(relaxMaskTrFile(irbc))

     &     ') = "', relaxMaskTrFile(irbc)(1:iLen), '"'

           iLen = ILNBLNK(fName)

     &       ' Reading tile:', myTile, ' from file ', fName(1:iLen)

      INTEGER myTile, iG, iLen

        iLen = ILNBLNK(horizGridFile)

        IF ( iLen .EQ. 0 ) THEN

          WRITE(fName,'(2A,I3.3,A)') horizGridFile(1:iLen),

        iLen = ILNBLNK(fName)

     &                   ' ; Read from file ',fName(1:iLen)

        iLen = ILNBLNK(horizGridFile)

        IF ( iLen.GT.0 ) THEN

      INTEGER iG, jG, iL, iLen

        iLen = ILNBLNK(hybSigmFile)

     &    ' a&b_HybSigmF loaded from file: ', hybSigmFile(1:iLen)

      INTEGER iLen

        iLen = ILNBLNK(delXFile)

     &    ' delX loaded from file: ', delXFile(1:iLen)

        iLen = ILNBLNK(delYFile)

     &    ' delY loaded from file: ', delYFile(1:iLen)

        iLen = ILNBLNK(delRFile)

     &    ' delR loaded from file: ', delRFile(1:iLen)

        iLen = ILNBLNK(delRcFile)

     &    ' delRc loaded from file: ', delRcFile(1:iLen)

      INTEGER iLen

      iLen = LEN(msg1)

      msgLwc(1:iLen) = msg1

      msgUpc(1:iLen) = msg1

      CALL LCASE(msgLwc(1:iLen))

      CALL UCASE(msgUpc(1:iLen))

      WRITE(msgBuf,'(5A)') 'but pkg/',msgLwc(1:iLen),

     &  ' was not compiled (ALLOW_',msgUpc(1:iLen),' undef).'

     &  '==> Re-compile with pkg "',msgLwc(1:iLen),

      INTEGER iLen, pLen

      iLen = LEN(pkgName)

      pkgLwc(1:iLen+4) = 'pkg/'//pkgName

      CALL LCASE(pkgLwc(1:iLen+4))

        pkgUse(1:iLen+3) = 'use'//pkgName

        iLen = LEN(pkgMsg)

        pkgUse(1:iLen) = pkgMsg

      INTEGER iLen, iLen1, iLen2, iLen3

        iLen = iLen1 - 3

        CALL LCASE(pkgLwc(1:iLen))

        CALL UCASE(pkgUpc(1:iLen))

        iLen = 7

        WRITE(caller_sub,'(2A)') pkgUpc(1:iLen), '_READPARMS'

        iLen2 = iLen + 10

        WRITE(data_file,'(2A)') 'data.', pkgLwc(1:iLen)

        iLen3 = 5 + iLen

      INTEGER iLen

        iLen = ILNBLNK(fnames(listId))

        WRITE( diag_mnc_bn, '(A)' ) fnames(listId)(1:iLen)

      iLen = ILNBLNK(fnames(listId))

      WRITE( fn, '(A,A,A)' ) fnames(listId)(1:iLen),'.',suff

     &                       fnames(listId)(1:iLen),'.',suff

      INTEGER iLen,jLen

      iLen = ILNBLNK( diagMdsDir )

      IF ( iLen.GE.2 ) THEN

       IF ( diagMdsDir(iLen:iLen).EQ.'/' ) THEN

         WRITE(diagMdsDir,'(A)') namBuf(1:iLen-1)

       iLen = ILNBLNK(fileName(l))

       IF ( iLen.GE.1 .AND. nlists.LT.numLists ) THEN

       ELSEIF ( iLen.GE.1 ) THEN

       iLen = ILNBLNK(stat_fname(l))

       IF ( iLen.GE.1 .AND. diagSt_nbLists.LT.numLists)THEN

       ELSEIF ( iLen.GE.1 ) THEN

      INTEGER iLen, regionCount

                 iLen = ILNBLNK(msgBuf)

                 tmpBuf(1:iLen) = msgBuf(1:iLen)

                   WRITE(msgBuf,'(A,I7,A)') tmpBuf(1:iLen),xOld,cSep

                   WRITE(msgBuf,'(A,I7,A,I3,2A)') tmpBuf(1:iLen),xOld,

            iLen = ILNBLNK(msgBuf)

            tmpBuf(1:iLen) = msgBuf(1:iLen)

            WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |'

             iLen = ILNBLNK(msgBuf)

             tmpBuf(1:iLen) = msgBuf(1:iLen)

             WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |'

           iLen = ILNBLNK(msgBuf)

           WRITE(dUnit,'(A)') msgBuf(1:iLen)

         iLen = ILNBLNK(diagSt_Fname(ld))

     &                     ' ; file name: ',diagSt_Fname(ld)(1:iLen)

         iLen = 10

     &          .AND. iLen+3.LE.MAX_LEN_MBUF) THEN

             tmpBuf(1:iLen) = msgBuf(1:iLen)

             WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j

             iLen = iLen+3

         WRITE(dUnit,'(A)') msgBuf(1:iLen)

            iLen = ILNBLNK(msgBuf)

            tmpBuf(1:iLen) = msgBuf(1:iLen)

            WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen),

            iLen = ILNBLNK(msgBuf)

            tmpBuf(1:iLen) = msgBuf(1:iLen)

            WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen),

           iLen = ILNBLNK(msgBuf)

           WRITE(dUnit,'(A)') msgBuf(1:iLen)

      INTEGER  dUnit, stdUnit, iLen

         iLen = ILNBLNK(fn)

         OPEN(dUnit,file=fn(1:iLen),status='unknown',form='formatted')

     &   ' write diagnostics summary to file: ',fn(1:iLen)

         iLen = ILNBLNK(fnames(ld))

     &                            ' ; file name: ',fnames(ld)(1:iLen)

      iLen = ILNBLNK(msgBuf)

          iLen = MIN( iLen, MAX_LEN_MBUF -3 )

          tmpBuf(1:iLen) = msgBuf(1:iLen)

          WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j

          iLen = iLen+3

      iLen = ILNBLNK(diagSt_regMaskFile)

      IF ( flag .OR. iLen.GE.1 .OR. nSetRegMskFile.NE.0 ) THEN

      INTEGER iLen

       iLen = ILNBLNK(diagSt_regMaskFile)

     &   diagSt_regMaskFile(1:iLen)