4.13 Fortran: Module Interface ice_history - ice model history and restart files (Source File: ice_history.F)

Output files: netCDF data, Fortran unformatted dumps

REVISION HISTORY:

   authors Tony Craig, NCAR
           Elizabeth C. Hunke, LANL
           C.M. Bitz, UW
           Bruce P. Briegleb, NCAR

INTERFACE:

       module ice_history

USES:

       use ice_kinds_mod
       use ice_domain
       use ice_read_write

4.13.1 init_hist - initialize history files

INTERFACE:

       subroutine init_hist

DESCRIPTION:

Initialize history files

REVISION HISTORY:

   authors Tony Craig, NCAR
           Elizabeth C. Hunke, LANL
           C.M. Bitz, UW
           Bruce P. Briegleb, NCAR

USES:

       use ice_constants
       use ice_calendar
       use shr_sys_mod, only : shr_sys_flush, shr_sys_abort

INPUT/OUTPUT PARAMETERS:

4.13.2 ice_write_hist - write average ice quantities or snapshots

INTERFACE:

       subroutine ice_write_hist

DESCRIPTION:

write average ice quantities or snapshots

REVISION HISTORY:

   author:   E.C.Hunke, LANL

USES:

       use ice_flux
       use ice_albedo
       use ice_mechred
       use ice_grid
       use ice_calendar
       use ice_state
       use ice_dyn_evp
       use ice_constants

INPUT/OUTPUT PARAMETERS:

4.13.3 icecdf - write netCDF history file

INTERFACE:

       subroutine icecdf

DESCRIPTION:

write netCDF history file

REVISION HISTORY:

   authors:   E.C.Hunke, LANL
              Bruce P. Briegleb, NCAR

USES:

       use ice_model_size
       use ice_constants
       use ice_mpi_internal
       use ice_grid
       use ice_calendar
       use ice_itd, only : c_hi_range
       use shr_file_mod

INPUT/OUTPUT PARAMETERS:

4.13.4 nf_stat_check - check error code returned from netCDF call

INTERFACE:

       subroutine nf_stat_check (status,msg)

DESCRIPTION:

Check error code returned from netCDF calls
If bad, abort

REVISION HISTORY:

   author:   ?

USES:

       use shr_sys_mod, only : shr_sys_abort
       include "netcdf.inc"

INPUT/OUTPUT PARAMETERS:

       integer (kind=int_kind), intent(in) :: status
       character (len = *), intent(in) :: msg

4.13.5 integer function lenstr(label) - compute length string

INTERFACE:

       integer function lenstr(label)

DESCRIPTION:

Check error code returned from netCDF calls. If bad, abort

REVISION HISTORY:

   author:   ?

INPUT/OUTPUT PARAMETERS:

       character*(*) label

4.13.6 dumpfile - dumps all fields required for restart

INTERFACE:

       subroutine dumpfile

DESCRIPTION:

Dumps all values needed for a restart

REVISION HISTORY:

   author Elizabeth C. Hunke, LANL

USES:

       use ice_model_size
       use ice_flux
       use ice_grid
       use ice_calendar
       use ice_state
       use ice_dyn_evp
       use shr_file_mod
       use ice_ocean

INPUT/OUTPUT PARAMETERS:

4.13.7 restartfile - restarts from a dumpfile

INTERFACE:

       subroutine restartfile

DESCRIPTION:

Restarts from a dump

REVISION HISTORY:

   author Elizabeth C. Hunke, LANL

USES:

       use ice_model_size
       use ice_flux
       use ice_mpi_internal
       use ice_grid
       use ice_calendar
       use ice_state
       use ice_dyn_evp
       use ice_itd
       use ice_ocean

INPUT/OUTPUT PARAMETERS: