Commit ab88b965 authored by kbk's avatar kbk
Browse files

hotout=0 -> save hot-files at last time step only

parent 4172a420
!$Id: cleanup.F90,v 1.3 2003-04-23 12:03:46 kbk Exp $
!$Id: cleanup.F90,v 1.4 2003-09-30 09:44:26 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -6,7 +6,7 @@
! !ROUTINE: clean_up - a wrapper to perform cleanup
!
! !INTERFACE:
subroutine clean_up(dryrun)
subroutine clean_up(dryrun,runtype)
!
! !DESCRIPTION:
! Calls the various model components clean up procedures. The called routines
......@@ -27,6 +27,7 @@
!
! !INPUT PARAMETERS:
logical, intent(in) :: dryrun
integer, intent(in) :: runtype
!
! !INPUT/OUTPUT PARAMETERS:
!
......@@ -36,7 +37,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: cleanup.F90,v $
! Revision 1.3 2003-04-23 12:03:46 kbk
! Revision 1.4 2003-09-30 09:44:26 kbk
! hotout=0 -> save hot-files at last time step only
!
! Revision 1.3 2003/04/23 12:03:46 kbk
! cleaned code + TABS to spaces
!
! Revision 1.2 2003/04/07 16:39:16 kbk
......@@ -74,7 +78,7 @@
#endif
if( .not. dryrun ) then
call clean_output()
call clean_output(runtype)
end if
call clean_input()
......
!$Id: main.F90,v 1.4 2003-04-23 12:03:46 kbk Exp $
!$Id: main.F90,v 1.5 2003-09-30 09:44:26 kbk Exp $
#include "cppdefs.h"
!!-----------------------------------------------------------------------
!!BOI
......@@ -39,7 +39,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: main.F90,v $
! Revision 1.4 2003-04-23 12:03:46 kbk
! Revision 1.5 2003-09-30 09:44:26 kbk
! hotout=0 -> save hot-files at last time step only
!
! Revision 1.4 2003/04/23 12:03:46 kbk
! cleaned code + TABS to spaces
!
! Revision 1.3 2003/04/07 16:39:16 kbk
......@@ -78,7 +81,7 @@
if ( .not. dryrun ) then
call time_loop(runtype)
end if
call clean_up(dryrun)
call clean_up(dryrun,runtype)
#ifdef FORTRAN95
call CPU_Time(t2)
......
!$Id: output.F90,v 1.5 2003-09-16 07:45:30 kbk Exp $
!$Id: output.F90,v 1.6 2003-09-30 09:44:27 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -51,7 +51,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: output.F90,v $
! Revision 1.5 2003-09-16 07:45:30 kbk
! Revision 1.6 2003-09-30 09:44:27 kbk
! hotout=0 -> save hot-files at last time step only
!
! Revision 1.5 2003/09/16 07:45:30 kbk
! additional info written when hotstart time mismatch
!
! Revision 1.4 2003/09/03 05:55:13 kbk
......@@ -431,10 +434,11 @@
! !IROUTINE: clean_output - cleans up after run
!
! !INTERFACE:
subroutine clean_output()
subroutine clean_output(runtype)
IMPLICIT NONE
!
! !INPUT PARAMETERS:
integer, intent(in) :: runtype
!
! !INPUT/OUTPUT PARAMETERS:
!
......@@ -447,6 +451,7 @@
! 22Nov Author name Initial code
!
! !LOCAL VARIABLES:
integer :: zero=0
REALTYPE :: dummy
!
!EOP
......@@ -458,6 +463,11 @@
write(debug,*) 'clean_output() # ',Ncall
#endif
! Save last restart file
if (hotout .eq. 0) then
call restart_file(WRITING,trim(hot_out),zero,runtype)
end if
select case (out_fmt)
case (NETCDF)
dummy = -_ONE_*1.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment