MOM6
mom_file_parser::log_version Interface Reference

Detailed Description

An overloaded interface to log version information about modules.

Definition at line 109 of file MOM_file_parser.F90.

Private functions

subroutine log_version_cs (CS, modulename, version, desc, log_to_all, all_default, layout, debugging)
 Log the version of a module to a log file and/or stdout, and/or to the parameter documentation file. More...
 
subroutine log_version_plain (modulename, version)
 Log the version of a module to a log file and/or stdout. More...
 

Detailed Description

An overloaded interface to log version information about modules.

Definition at line 109 of file MOM_file_parser.F90.

Functions and subroutines

◆ log_version_cs()

subroutine mom_file_parser::log_version::log_version_cs ( type(param_file_type), intent(in)  CS,
character(len=*), intent(in)  modulename,
character(len=*), intent(in)  version,
character(len=*), intent(in), optional  desc,
logical, intent(in), optional  log_to_all,
logical, intent(in), optional  all_default,
logical, intent(in), optional  layout,
logical, intent(in), optional  debugging 
)
private

Log the version of a module to a log file and/or stdout, and/or to the parameter documentation file.

Parameters
[in]csFile parser type
[in]modulenameName of calling module
[in]versionVersion string of module
[in]descModule description
[in]log_to_allIf present and true, log this parameter to the ..._doc.all files, even if this module also has layout or debugging parameters.
[in]all_defaultIf true, all parameters take their default values.
[in]layoutIf present and true, this module has layout parameters.
[in]debuggingIf present and true, this module has debugging parameters.

Definition at line 1253 of file MOM_file_parser.F90.

1253  type(param_file_type), intent(in) :: CS !< File parser type
1254  character(len=*), intent(in) :: modulename !< Name of calling module
1255  character(len=*), intent(in) :: version !< Version string of module
1256  character(len=*), optional, intent(in) :: desc !< Module description
1257  logical, optional, intent(in) :: log_to_all !< If present and true, log this parameter to the
1258  !! ..._doc.all files, even if this module also has layout
1259  !! or debugging parameters.
1260  logical, optional, intent(in) :: all_default !< If true, all parameters take their default values.
1261  logical, optional, intent(in) :: layout !< If present and true, this module has layout parameters.
1262  logical, optional, intent(in) :: debugging !< If present and true, this module has debugging parameters.
1263  ! Local variables
1264  character(len=240) :: mesg
1265 
1266  mesg = trim(modulename)//": "//trim(version)
1267  if (is_root_pe()) then
1268  if (cs%log_open) write(cs%stdlog,'(a)') trim(mesg)
1269  if (cs%log_to_stdout) write(cs%stdout,'(a)') trim(mesg)
1270  endif
1271 
1272  if (present(desc)) call doc_module(cs%doc, modulename, desc, log_to_all, all_default, layout, debugging)
1273 

◆ log_version_plain()

subroutine mom_file_parser::log_version::log_version_plain ( character(len=*), intent(in)  modulename,
character(len=*), intent(in)  version 
)
private

Log the version of a module to a log file and/or stdout.

Parameters
[in]modulenameName of calling module
[in]versionVersion string of module

Definition at line 1278 of file MOM_file_parser.F90.

1278  character(len=*), intent(in) :: modulename !< Name of calling module
1279  character(len=*), intent(in) :: version !< Version string of module
1280  ! Local variables
1281  character(len=240) :: mesg
1282 
1283  mesg = trim(modulename)//": "//trim(version)
1284  if (is_root_pe()) then
1285  write(stdlog(),'(a)') trim(mesg)
1286  endif
1287 

The documentation for this interface was generated from the following file: