Changeset 38d77eb for outvar.f


Ignore:
Timestamp:
11/19/09 11:29:48 (14 years ago)
Author:
baerbaer <baerbaer@…>
Branches:
master
Children:
7137e5d
Parents:
32289cd
Message:

Redirected standard out to logString.

SMMP produced a lot of log messages. This became an issue when run in massively
parallel environments. I replaced all writes to standard out to a write to logString.
The next step is to pass this string to a function that writes the messages to a log
file according to their importance and the chosen log level.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@34 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:
1 edited

Legend:

Unmodified
Added
Removed

  • outvar.f

    r32289cd r38d77eb  
    3030
    3131      if (nml.lt.0.or.nml.gt.ntlml) then
    32         write(*,*) ' outvar>  No such molecule #',nml,' !'
     32        write (logString, *) ' outvar>  No such molecule #',nml,' !'
    3333        return
    3434      endif
    … …  
    5757
    5858      if (nml.lt.0.or.nml.gt.ntlml) then
    59         write(*,*) ' outvbs>  No such molecule #',nml,' !'
     59        write (logString, *) ' outvbs>  No such molecule #',nml,' !'
    6060        return
    6161      elseif (nml.gt.0) then
Note: See TracChangeset for help on using the changeset viewer.