This routine redirects output to a log file defined by an environment variable. System functions ("getenv" for IBM and "pxfgetenv" for SGI and T3E) are used to retrieve the environmet variable.
REMARKS:
In order to redirect component output to a separate file, a user will setup something like the following in the run script: setenv ice_out_env ice.log setenv land_out_env land.log setenv cpl_out_env cpl.logREVISION HISTORY:
2001-Nov-15 -- add PROTEX convention 2001-May-20 -- first prototypeINTERFACE:
subroutine MPH_redirect_output (name)USES:
implicit noneINPUT PARAMETERS:
character(len=*), intent(in) :: name ! part of the log file nameLOCAL VARIABLES:
integer :: lenname, lenval, rcode character(len=32) :: output_name_env character(len=64) :: output_name, temp_value
\