Symbol Description Uses
msgBuf Temp. for textual I/O 2610


File Line number Procedure Code
./pkg/gmredi/gmredi_check.F 103 GMREDI_CHECK 
       WRITE(msgBuf,'(A)')
./pkg/gmredi/gmredi_check.F 105 GMREDI_CHECK 
       CALL PRINT_ERROR( msgBuf, 1 )
./pkg/gmredi/gmredi_check.F 106 GMREDI_CHECK 
       WRITE(msgBuf,'(A)')
./pkg/gmredi/gmredi_check.F 108 GMREDI_CHECK 
       CALL PRINT_ERROR( msgBuf, 1 )
./pkg/gmredi/gmredi_check.F 139 GMREDI_CHECK 
          WRITE(msgBuf,'(A,A)')
./pkg/gmredi/gmredi_check.F 141 GMREDI_CHECK 
          CALL PRINT_ERROR( msgBuf , myThid)
./pkg/gmredi/gmredi_check.F 142 GMREDI_CHECK 
          WRITE(msgBuf,'(A)') 'GMREDI_CHECK: need at least Olx,Oly = 3'
./pkg/gmredi/gmredi_check.F 143 GMREDI_CHECK 
          CALL PRINT_ERROR( msgBuf , myThid)
./pkg/gmredi/gmredi_check.F 29 GMREDI_CHECK 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/gmredi/gmredi_check.F 34 GMREDI_CHECK 
       WRITE(msgBuf,'(A)') 'GMREDI_CHECK: #define GMREDI'
./pkg/gmredi/gmredi_check.F 35 GMREDI_CHECK 
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
./pkg/gmredi/gmredi_check.F 55 GMREDI_CHECK 
       WRITE(msgBuf,'(A,A40)')' Tapering/Cliping : ',GM_taper_scheme
./pkg/gmredi/gmredi_check.F 56 GMREDI_CHECK 
       CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
./pkg/gmredi/gmredi_check.F 69 GMREDI_CHECK 
        WRITE(msgBuf,'(A)') 'GM/Redi needs implicitDiffusion=.true.'
./pkg/gmredi/gmredi_check.F 70 GMREDI_CHECK 
        CALL PRINT_ERROR( msgBuf , 1)
./pkg/gmredi/gmredi_check.F 77 GMREDI_CHECK 
       WRITE(msgBuf,'(A)')
./pkg/gmredi/gmredi_check.F 79 GMREDI_CHECK 
       CALL PRINT_ERROR( msgBuf, 1 )
./pkg/gmredi/gmredi_check.F 80 GMREDI_CHECK 
       WRITE(msgBuf,'(A)')
./pkg/gmredi/gmredi_check.F 82 GMREDI_CHECK 
       CALL PRINT_ERROR( msgBuf, 1 )
./pkg/gmredi/gmredi_check.F 90 GMREDI_CHECK 
       WRITE(msgBuf,'(A)')
./pkg/gmredi/gmredi_check.F 92 GMREDI_CHECK 
       CALL PRINT_ERROR( msgBuf, 1 )
./pkg/gmredi/gmredi_check.F 93 GMREDI_CHECK 
       WRITE(msgBuf,'(A)')
./pkg/gmredi/gmredi_check.F 95 GMREDI_CHECK 
       CALL PRINT_ERROR( msgBuf, 1 )
./pkg/gmredi/gmredi_readparms.F 50 GMREDI_READPARMS 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/gmredi/gmredi_readparms.F 60 GMREDI_READPARMS 
      WRITE(msgBuf,'(A)') ' GM_READPARMS: opening data.gmredi'
./pkg/gmredi/gmredi_readparms.F 61 GMREDI_READPARMS 
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
./pkg/gmredi/gmredi_readparms.F 96 GMREDI_READPARMS 
      WRITE(msgBuf,'(A)') ' GM_READPARMS: finished reading data.gmredi'
./pkg/gmredi/gmredi_readparms.F 97 GMREDI_READPARMS 
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
./pkg/gchem/gchem_check.F 26 GCHEM_CHECK 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/gchem/gchem_check.F 28 GCHEM_CHECK 
      WRITE(msgBuf,'(A)') 'GCHEM_CHECK: #define ALLOW_GCHEM'
./pkg/gchem/gchem_check.F 29 GCHEM_CHECK 
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
./pkg/gchem/gchem_check.F 34 GCHEM_CHECK 
         WRITE(msgBuf,'(A)') 'usePTRACERS has to be .TRUE. for GCHEM'
./pkg/gchem/gchem_check.F 35 GCHEM_CHECK 
         CALL PRINT_ERROR( msgBuf , 1)
./pkg/gchem/gchem_readparms.F 38 GCHEM_READPARMS 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/gchem/gchem_readparms.F 63 GCHEM_READPARMS 
      WRITE(msgBuf,'(A)') ' GCHEM_READPARMS: opening data.gchem'
./pkg/gchem/gchem_readparms.F 64 GCHEM_READPARMS 
      CALL PRINT_MESSAGE(msgBuf, standardMessageUnit,
./pkg/gchem/gchem_readparms.F 71 GCHEM_READPARMS 
      WRITE(msgBuf,'(A)')
./pkg/gchem/gchem_readparms.F 73 GCHEM_READPARMS 
      CALL PRINT_MESSAGE(msgBuf, standardMessageUnit,
./pkg/gchem/gchem_readparms.F 82 GCHEM_READPARMS 
       WRITE(msgBuf,'(A,A)')
./pkg/gchem/gchem_readparms.F 85 GCHEM_READPARMS 
       CALL PRINT_ERROR( msgBuf , myThid)
./pkg/gchem/gchem_readparms.F 86 GCHEM_READPARMS 
       WRITE(msgBuf,'(A,A)')
./pkg/gchem/gchem_readparms.F 89 GCHEM_READPARMS 
       CALL PRINT_ERROR( msgBuf , myThid)
./pkg/pp81/pp81_readparms.F 101 PP81_READPARMS 
       WRITE(msgBuf,'(A)') 'PPnRi must not be zero'
./pkg/pp81/pp81_readparms.F 102 PP81_READPARMS 
       CALL PRINT_ERROR( msgBuf , 1)
./pkg/pp81/pp81_readparms.F 35 PP81_READPARMS 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/pp81/pp81_readparms.F 69 PP81_READPARMS 
      WRITE(msgBuf,'(A)') ' PP81_READPARMS: opening data.pp81'
./pkg/pp81/pp81_readparms.F 70 PP81_READPARMS 
      CALL PRINT_MESSAGE(msgBuf, standardMessageUnit,
./pkg/pp81/pp81_readparms.F 77 PP81_READPARMS 
      WRITE(msgBuf,'(A)')
./pkg/pp81/pp81_readparms.F 79 PP81_READPARMS 
      CALL PRINT_MESSAGE(msgBuf, standardMessageUnit,
./pkg/pp81/pp81_readparms.F 91 PP81_READPARMS 
       WRITE(msgBuf,'(A)') 'PPviscMax must be greater than zero'
./pkg/pp81/pp81_readparms.F 92 PP81_READPARMS 
       CALL PRINT_ERROR( msgBuf , 1)
./pkg/pp81/pp81_readparms.F 96 PP81_READPARMS 
       WRITE(msgBuf,'(A)') 'PPalpha must not be zero'
./pkg/pp81/pp81_readparms.F 97 PP81_READPARMS 
       CALL PRINT_ERROR( msgBuf , 1)
./pkg/pp81/pp81_check.F 26 PP81_CHECK 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/pp81/pp81_check.F 28 PP81_CHECK 
      WRITE(msgBuf,'(A)') 'PP81_CHECK: #define ALLOW_PP81'
./pkg/pp81/pp81_check.F 29 PP81_CHECK 
      CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
./pkg/pp81/pp81_check.F 34 PP81_CHECK 
         WRITE(msgBuf,'(A)')
./pkg/pp81/pp81_check.F 36 PP81_CHECK 
         CALL PRINT_ERROR( msgBuf , 1)
./pkg/pp81/pp81_check.F 43 PP81_CHECK 
         WRITE(msgBuf,'(A)') 'Some form of convection has been enabled'
./pkg/pp81/pp81_check.F 44 PP81_CHECK 
         CALL PRINT_ERROR( msgBuf , 1)
./pkg/pp81/pp81_check.F 49 PP81_CHECK 
         WRITE(msgBuf,'(A)')
./pkg/pp81/pp81_check.F 51 PP81_CHECK 
         CALL PRINT_ERROR( msgBuf , 1)
./pkg/pp81/pp81_check.F 57 PP81_CHECK 
         WRITE(msgBuf,'(A)')
./pkg/pp81/pp81_check.F 59 PP81_CHECK 
         CALL PRINT_ERROR( msgBuf , 1)
./pkg/pp81/pp81_check.F 63 PP81_CHECK 
         WRITE(msgBuf,'(A)')
./pkg/pp81/pp81_check.F 65 PP81_CHECK 
         CALL PRINT_ERROR( msgBuf , 1)
./pkg/aim_compon_interf/cpl_exch_configs.F 48 CPL_EXCH_CONFIGS 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/aim_compon_interf/cpl_exch_configs.F 88 CPL_EXCH_CONFIGS 
           WRITE(msgBuf,'(A,I4,A,I4,A,I4,A,I4,A)')
./pkg/aim_compon_interf/cpl_exch_configs.F 91 CPL_EXCH_CONFIGS 
           CALL PRINT_ERROR( msgBuf, 1 )
./pkg/aim_compon_interf/cpl_exch_configs.F 92 CPL_EXCH_CONFIGS 
           WRITE(msgBuf,'(A,E30.15)')
./pkg/aim_compon_interf/cpl_exch_configs.F 94 CPL_EXCH_CONFIGS 
           CALL PRINT_ERROR( msgBuf, 1 )
./pkg/aim_compon_interf/cpl_exch_configs.F 95 CPL_EXCH_CONFIGS 
           WRITE(msgBuf,'(A,E30.15)')
./pkg/aim_compon_interf/cpl_exch_configs.F 97 CPL_EXCH_CONFIGS 
           CALL PRINT_ERROR( msgBuf, 1 )
./pkg/aim_compon_interf/cpl_readparms.F 110 CPL_READPARMS 
      WRITE(msgBuf,'(A)') ' '
./pkg/aim_compon_interf/cpl_readparms.F 111 CPL_READPARMS 
      CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1)
./pkg/aim_compon_interf/cpl_readparms.F 112 CPL_READPARMS 
      WRITE(msgBuf,'(A)') '// ==================================='
./pkg/aim_compon_interf/cpl_readparms.F 113 CPL_READPARMS 
      CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1)
./pkg/aim_compon_interf/cpl_readparms.F 114 CPL_READPARMS 
      WRITE(msgBuf,'(A)') '// Coupling package parameters :'
./pkg/aim_compon_interf/cpl_readparms.F 115 CPL_READPARMS 
      CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1)
./pkg/aim_compon_interf/cpl_readparms.F 116 CPL_READPARMS 
      WRITE(msgBuf,'(A)') '// ==================================='
./pkg/aim_compon_interf/cpl_readparms.F 117 CPL_READPARMS 
      CALL PRINT_MESSAGE(msgBuf,iUnit,SQUEEZE_RIGHT,1)
./pkg/aim_compon_interf/cpl_readparms.F 48 CPL_READPARMS 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/aim_compon_interf/cpl_readparms.F 81 CPL_READPARMS 
      WRITE(msgBuf,'(A)') ' CPL_READPARMS: opening data.cpl'
./pkg/aim_compon_interf/cpl_readparms.F 82 CPL_READPARMS 
      CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
./pkg/aim_compon_interf/cpl_readparms.F 92 CPL_READPARMS 
      WRITE(msgBuf,'(A)')
./pkg/aim_compon_interf/cpl_readparms.F 94 CPL_READPARMS 
      CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
./pkg/monitor/monitor.F 150 MONITOR 
            WRITE(msgBuf,'(2A)') '// ==========================',
./pkg/monitor/monitor.F 152 MONITOR 
            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
./pkg/monitor/monitor.F 153 MONITOR 
            WRITE(msgBuf,'(A)')
./pkg/monitor/monitor.F 155 MONITOR 
            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit,
./pkg/monitor/monitor.F 157 MONITOR 
            WRITE(msgBuf,'(2A)') '// ==========================',
./pkg/monitor/monitor.F 159 MONITOR 
            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
./pkg/monitor/monitor.F 39 MONITOR 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/monitor/monitor.F 55 MONITOR 
            WRITE(msgBuf,'(2A)') '// ==========================',
./pkg/monitor/monitor.F 57 MONITOR 
            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
./pkg/monitor/monitor.F 58 MONITOR 
            WRITE(msgBuf,'(A)')
./pkg/monitor/monitor.F 60 MONITOR 
            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit,
./pkg/monitor/monitor.F 62 MONITOR 
            WRITE(msgBuf,'(2A)') '// ==========================',
./pkg/monitor/monitor.F 64 MONITOR 
            CALL PRINT_MESSAGE( msgBuf, mon_ioUnit, SQUEEZE_RIGHT , 1)
./pkg/monitor/mon_out.F 119 MON_OUT_ALL 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/monitor/mon_out.F 130 MON_OUT_ALL 
      msgBuf = ' '
./pkg/monitor/mon_out.F 141 MON_OUT_ALL 
        msgBuf(1:IL) = mon_head
./pkg/monitor/mon_out.F 143 MON_OUT_ALL 
        msgBuf(lBuf:lBuf) = ' '
./pkg/monitor/mon_out.F 149 MON_OUT_ALL 
        msgBuf(lBuf:lBuf+mon_prefL-1) = mon_pref(1:mon_prefL)
./pkg/monitor/mon_out.F 164 MON_OUT_ALL 
          msgBuf(lBuf:lBuf+IL-1) = pref(I0:I1)
./pkg/monitor/mon_out.F 178 MON_OUT_ALL 
          msgBuf(lBuf:lBuf+IL-1) = foot(I0:I1)
./pkg/monitor/mon_out.F 189 MON_OUT_ALL 
      msgBuf(35:35) = '='
./pkg/monitor/mon_out.F 198 MON_OUT_ALL 
     &           WRITE(msgBuf(36:57),'(1X,I21)')       ival
./pkg/monitor/mon_out.F 200 MON_OUT_ALL 
     &           WRITE(msgBuf(36:57),'(1X,1P1E21.13)') dval
./pkg/monitor/mon_out.F 201 MON_OUT_ALL 
            CALL PRINT_MESSAGE(msgBuf, mon_ioUnit, SQUEEZE_RIGHT, 1)
./pkg/monitor/mon_solution.F 35 MON_SOLUTION 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./pkg/monitor/mon_solution.F 52 MON_SOLUTION 
         WRITE(msgBuf,'(A,1P2E12.3)')
./pkg/monitor/mon_solution.F 54 MON_SOLUTION 
         CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT, 1)
./pkg/monitor/mon_solution.F 55 MON_SOLUTION 
         WRITE(msgBuf,'(A)') 'MON_SOLUTION: STOPPING CALCULATION'
./pkg/monitor/mon_solution.F 56 MON_SOLUTION 
         CALL PRINT_MESSAGE(msgBuf,errorMessageUnit,SQUEEZE_RIGHT, 1)
./model/src/ini_salt.F 47 INI_SALT 
      CHARACTER*(MAX_LEN_MBUF) msgBuf
./model/src/ini_salt.F 94 INI_SALT 
       WRITE(msgBuf,'(A,A)')
./model/src/ini_salt.F 97 INI_SALT 
       CALL PRINT_ERROR( msgBuf , myThid)