Fortran: Module Interface output -- saving the results (Source File: output.F90)


    module output

This module acts as an interface between GOTM and modules/routines doing the actual output. In order to add a new output format it is only necessary to add hooks in this module and write the actual output routines. It is not necessary to change anything in GOTM itself.


    use time, ONLY: write_time_string,julianday,secondsofday,timestep
    use asciiout
 #ifdef NETCDF_FMT
    use ncdfout, ONLY:  init_ncdf,do_ncdf_out,close_ncdf
    logical                             :: write_results
    integer, public, parameter          :: ascii_unit=50
    integer, public, parameter          :: grads_unit=51
    character(len=19)                   :: ts
    integer                             :: out_fmt
    character(len=PATH_MAX)             :: out_dir
    character(len=PATH_MAX)             :: out_fn
    integer                             :: nsave
    logical                             :: diagnostics
    integer                             :: mld_method
    REALTYPE                            :: diff_k
    REALTYPE                            :: Ri_crit
    logical                             :: rad_corr
    logical                             :: init_diagnostics
    Original author(s): Karsten Bolding, Hans Burchard
    $Log: output.F90,v $
    Revision 1.10  2010-09-17 12:53:52  jorn
    extensive code clean-up to ensure proper initialization and clean-up of all variables
    Revision 1.9  2006-11-29 09:31:20  kbk
    output units made public
    Revision 1.8  2005/07/19 17:09:37  hb
    removed code commented out
    Revision 1.7  2005/07/06 14:22:40  kbk
    updated documentation - saves KPP related variables
    Revision 1.6  2003/10/14 08:04:32  kbk
    time is now stored as real
    Revision 1.5  2003/03/28 09:20:35  kbk
    added new copyright to files
    Revision 1.4  2003/03/28 08:24:19  kbk
    removed tabs
    Revision 1.3  2003/03/10 08:53:05  gotm
    Improved documentation and cleaned up code
    Revision 1.2  2001/11/18 11:51:52  gotm
    Fixed a typo
    Revision  2001/02/12 15:55:59  gotm
    initial import into CVS


Karsten Bolding 2012-01-24