Data Types
type	write_cputime_cs

Functions/Subroutines
subroutine, public	write_cputime_start_clock (CS)

subroutine, public	mom_write_cputime_init (param_file, directory, Input_start_time, CS)

subroutine, public	write_cputime (day, n, nmax, CS)

Variables
integer	clocks_per_sec = 1000

integer	max_ticks = 1000

Function/Subroutine Documentation

◆ mom_write_cputime_init()

subroutine, public mom_write_cputime::mom_write_cputime_init	(	type(param_file_type), intent(in)	param_file,
		character(len=*), intent(in)	directory,
		type(time_type), intent(in)	Input_start_time,
		type(write_cputime_cs), pointer	CS
	)

Parameters

[in] param_file A structure to parse for run-time parameters

Definition at line 81 of file MOM_write_cputime.F90.

References clocks_per_sec, and max_ticks.

Referenced by mom_main().

   type(param_file_type),  intent(in) :: param_file !< A structure to parse for run-time parameters
   character(len=*),       intent(in) :: directory
   type(time_type),        intent(in) :: input_start_time
   type(write_cputime_cs), pointer    :: cs
 ! Arguments: param_file - A structure indicating the open file to parse for
 !                         model parameter values.
 !  (in)      directory - The directory where the energy file goes.
 !  (in)      Input_start_time - The start time of the simulation.
 !  (in/out)  CS - A pointer that may be set to point to the control structure
 !                 for this module.
   integer :: new_cputime   ! The CPU time returned by SYSTEM_CLOCK
 ! This include declares and sets the variable "version".
 #include "version_variable.h"
   character(len=40)  :: mdl = 'MOM_write_cputime'  ! This module's name.
 
   if (.not.associated(cs)) then
     allocate(cs)
     call system_clock(new_cputime, clocks_per_sec, max_ticks)
     cs%prev_cputime = new_cputime
   endif
 
   ! Read all relevant parameters and write them to the model log.
   call log_version(param_file, mdl, version, "")
   call get_param(param_file, mdl, "MAXCPU", cs%maxcpu, &
                  "The maximum amount of cpu time per processor for which \n"//&
                  "MOM should run before saving a restart file and \n"//&
                  "quitting with a return value that indicates that a \n"//&
                  "further run is required to complete the simulation. \n"//&
                  "If automatic restarts are not desired, use a negative \n"//&
                  "value for MAXCPU.  MAXCPU has units of wall-clock \n"//&
                  "seconds, so the actual CPU time used is larger by a \n"//&
                  "factor of the number of processors used.", &
                  units="wall-clock seconds", default=-1.0)
   call get_param(param_file, mdl, "CPU_TIME_FILE", cs%CPUfile, &
                  "The file into which CPU time is written.",default="CPU_stats")
   cs%CPUfile = trim(directory)//trim(cs%CPUfile)
   call log_param(param_file, mdl, "directory/CPU_TIME_FILE", cs%CPUfile)
 #ifdef STATSLABEL
   cs%CPUfile = trim(cs%CPUfile)//"."//trim(adjustl(statslabel))
 #endif
 
   cs%Start_time = input_start_time
 

Here is the caller graph for this function:

◆ write_cputime()

subroutine, public mom_write_cputime::write_cputime	(	type(time_type), intent(inout)	day,
		integer, intent(in)	n,
		integer, intent(inout)	nmax,
		type(write_cputime_cs), pointer	CS
	)

Definition at line 127 of file MOM_write_cputime.F90.

References clocks_per_sec, mom_error_handler::is_root_pe(), max_ticks, and mom_error_handler::mom_error().

Referenced by mom_main().

   type(time_type),                     intent(inout) :: day
   integer,                             intent(in)    :: n
   integer,                             intent(inout) :: nmax
   type(write_cputime_cs),              pointer       :: cs
 !  This subroutine assesses how much CPU time the model has
 ! taken and determines how long the model should be run before it
 ! saves a restart file and stops itself.
 
 ! Arguments: day - The current model time.
 !  (in)      n - The time step number of the current execution.
 !  (out)     nmax - The number of iterations after which to stop so
 !                   that the simulation will not run out of CPU time.
 !  (in)      G - The ocean's grid structure.
 !  (in)      CS - The control structure returned by a previous call to
 !                 MOM_write_cputime_init.
   real    :: d_cputime     ! The change in CPU time since the last call
                            ! this subroutine.
   integer :: new_cputime   ! The CPU time returned by SYSTEM_CLOCK
   real    :: reday         ! A real version of day.
   integer :: start_of_day, num_days
 
   if (.not.associated(cs)) call mom_error(fatal, &
          "write_energy: Module must be initialized before it is used.")
 
   call system_clock(new_cputime, clocks_per_sec, max_ticks)
 !   The following lines extract useful information even if the clock has rolled
 ! over, assuming a 32-bit SYSTEM_CLOCK.  With more bits, rollover is essentially
 ! impossible. Negative fluctuations of less than 10 seconds are not interpreted
 ! as the clock rolling over.  This should be unnecessary but is sometimes needed
 ! on the GFDL SGI/O3k.
   if (new_cputime < cs%prev_cputime-(10.0*clocks_per_sec)) then
     d_cputime = new_cputime - cs%prev_cputime + max_ticks
   else
     d_cputime = new_cputime - cs%prev_cputime
   endif
 
   call sum_across_pes(d_cputime)
   if (cs%previous_calls == 0) cs%startup_cputime = d_cputime
 
   cs%cputime2 = cs%cputime2 + d_cputime
 
   if ((cs%previous_calls >= 1) .and. (cs%maxcpu > 0.0)) then
     ! Determine the slowest rate at which time steps are executed.
     if ((n > cs%prev_n) .and. (d_cputime > 0.0) .and. &
         ((cs%dn_dcpu_min*d_cputime < (n - cs%prev_n)) .or. &
          (cs%dn_dcpu_min < 0.0))) &
       cs%dn_dcpu_min = (n - cs%prev_n) / d_cputime
     if (cs%dn_dcpu_min >= 0.0) then
       ! Have the model stop itself after 95% of the CPU time has been used.
       nmax = n + int( cs%dn_dcpu_min * &
           (0.95*cs%maxcpu * REAL(num_pes())*clocks_per_sec - &
            (cs%startup_cputime + cs%cputime2)) )
 !     if (is_root_pe() ) then
 !       write(*,*) "Resetting nmax to ",nmax," at day",reday
 !     endif
     endif
   endif
   cs%prev_cputime = new_cputime ; cs%prev_n = n
 
   call get_time(day, start_of_day, num_days)
   reday = REAL(num_days)+ (REAL(start_of_day)/86400.0)
 
   !  Reopen or create a text output file.
   if ((cs%previous_calls == 0) .and. (is_root_pe())) then
     if (day > cs%Start_time) then
       call open_file(cs%fileCPU_ascii, trim(cs%CPUfile), &
                      action=append_file, form=ascii_file, nohdrs=.true.)
     else
       call open_file(cs%fileCPU_ascii, trim(cs%CPUfile), &
                      action=writeonly_file, form=ascii_file, nohdrs=.true.)
     endif
   endif
 
   if (is_root_pe()) then
     if (cs%previous_calls == 0) then
       write(cs%fileCPU_ascii, &
         '("Startup CPU time: ", F12.3, " sec summed across", I5, " PEs.")') &
                             (cs%startup_cputime / clocks_per_sec), num_pes()
       write(cs%fileCPU_ascii,*)"        Day, Step number,     CPU time, CPU time change"
     endif
     write(cs%fileCPU_ascii,'(F12.3,", "I11,", ", F12.3,", ", F12.3)') &
            reday, n, (cs%cputime2 / real(clocks_per_sec)), &
            d_cputime / real(clocks_per_sec)
   endif
   cs%previous_calls = cs%previous_calls + 1
 

Here is the call graph for this function:

Here is the caller graph for this function:

◆ write_cputime_start_clock()

subroutine, public mom_write_cputime::write_cputime_start_clock ( type(write_cputime_cs), pointer CS )

Definition at line 70 of file MOM_write_cputime.F90.

References clocks_per_sec, and max_ticks.

Referenced by mom_main().

   type(write_cputime_cs), pointer :: cs
 ! Argument:  CS - A pointer that is set to point to the control structure
 !                 for this module
   integer :: new_cputime   ! The CPU time returned by SYSTEM_CLOCK
   if (.not.associated(cs)) allocate(cs)
 
   call system_clock(new_cputime, clocks_per_sec, max_ticks)
   cs%prev_cputime = new_cputime

Here is the caller graph for this function:

Variable Documentation

◆ clocks_per_sec

integer mom_write_cputime::clocks_per_sec = 1000

private

Definition at line 46 of file MOM_write_cputime.F90.

Referenced by mom_write_cputime_init(), write_cputime(), and write_cputime_start_clock().

46 integer :: clocks_per_sec = 1000

◆ max_ticks

integer mom_write_cputime::max_ticks = 1000

private

Definition at line 47 of file MOM_write_cputime.F90.

Referenced by mom_write_cputime_init(), write_cputime(), and write_cputime_start_clock().

47 integer :: max_ticks = 1000

Data Types

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ mom_write_cputime_init()

◆ write_cputime()

◆ write_cputime_start_clock()

Variable Documentation

◆ clocks_per_sec

◆ max_ticks