Commit 7609f710 authored by kbk's avatar kbk
Browse files

adding model time stamp on IO

parent ec566f4e
!$Id: ncdf_2d_bdy.F90,v 1.4 2004-04-06 16:32:29 kbk Exp $
!$Id: ncdf_2d_bdy.F90,v 1.5 2005-05-04 11:45:29 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -13,6 +13,7 @@
! !USES:
use m2d, only: dtm,bdy_times,bdy_old,bdy_new,bdy_data
use time, only: string_to_julsecs,time_diff,julianday,secondsofday
use time, only: write_time_string,timestr
IMPLICIT NONE
!
private
......@@ -29,7 +30,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: ncdf_2d_bdy.F90,v $
! Revision 1.4 2004-04-06 16:32:29 kbk
! Revision 1.5 2005-05-04 11:45:29 kbk
! adding model time stamp on IO
!
! Revision 1.4 2004/04/06 16:32:29 kbk
! TimeDiff --> time_diff
!
! Revision 1.3 2003/04/23 11:54:03 kbk
......@@ -199,7 +203,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: ncdf_2d_bdy.F90,v $
! Revision 1.4 2004-04-06 16:32:29 kbk
! Revision 1.5 2005-05-04 11:45:29 kbk
! adding model time stamp on IO
!
! Revision 1.4 2004/04/06 16:32:29 kbk
! TimeDiff --> time_diff
!
! Revision 1.3 2003/04/23 11:54:03 kbk
......@@ -289,6 +296,10 @@
EXIT
end if
end do
call write_time_string()
LEVEL2 timestr,': reading 2D boundary data ...'
t1 = bdy_times(i-1) - offset
t2 = bdy_times(i) - offset
start(2) = i-1 ; edges(2) = 1
......
!$Id: ncdf_meteo.F90,v 1.18 2005-04-25 09:25:33 kbk Exp $
!$Id: ncdf_meteo.F90,v 1.19 2005-05-04 11:45:29 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -13,6 +13,7 @@
! !USES:
use time, only: string_to_julsecs,time_diff,add_secs,in_interval
use time, only: jul0,secs0,julianday,secondsofday,timestep,simtime
use time, only: write_time_string,timestr
use domain, only: imin,imax,jmin,jmax,az,lonc,latc,convc
use grid_interpol, only: init_grid_interpol,do_grid_interpol
use grid_interpol, only: to_rotated_lat_lon
......@@ -80,7 +81,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: ncdf_meteo.F90,v $
! Revision 1.18 2005-04-25 09:25:33 kbk
! Revision 1.19 2005-05-04 11:45:29 kbk
! adding model time stamp on IO
!
! Revision 1.18 2005/04/25 09:25:33 kbk
! conv --> convc
!
! Revision 1.17 2005/04/25 07:55:50 kbk
......@@ -447,6 +451,8 @@
else
if (indx .gt. save_n) then
new_meteo = .true.
call write_time_string()
LEVEL2 timestr,': reading meteo data ...'
save_n = indx
t_1 = t_2
t_2 = met_times(indx) - offset
......
!$Id: ncdf_rivers.F90,v 1.5 2005-01-13 09:20:47 kbk Exp $
!$Id: ncdf_rivers.F90,v 1.6 2005-05-04 11:45:29 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -13,6 +13,7 @@
! !USES:
use time, only: string_to_julsecs,time_diff,add_secs,in_interval
use time, only: jul0,secs0,julianday,secondsofday,timestep
use time, only: write_time_string,timestep,timestr
use rivers, only: nriver,river_data,river_name,river_flow,river_factor
use rivers, only: ok,rriver,real_river_name,river_split
use rivers, only: temp_missing,salt_missing
......@@ -40,7 +41,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: ncdf_rivers.F90,v $
! Revision 1.5 2005-01-13 09:20:47 kbk
! Revision 1.6 2005-05-04 11:45:29 kbk
! adding model time stamp on IO
!
! Revision 1.5 2005/01/13 09:20:47 kbk
! support for T and S specifications in rivers - Stips
!
! Revision 1.4 2004/04/06 16:32:29 kbk
......@@ -233,7 +237,8 @@
if (river_times(indx) .ge. real(t + offset)) EXIT
end do
if (indx .gt. last_indx) then
LEVEL3 'reading river data - indx = ',indx
call write_time_string()
LEVEL2 timestr, ': reading river data .... ',indx
last_indx = indx
start(1) = indx
nn = 1
......
!$Id: output.F90,v 1.10 2005-04-25 09:32:34 kbk Exp $
!$Id: output.F90,v 1.11 2005-05-04 11:45:30 kbk Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -55,7 +55,10 @@
! Original author(s): Karsten Bolding & Hans Burchard
!
! $Log: output.F90,v $
! Revision 1.10 2005-04-25 09:32:34 kbk
! Revision 1.11 2005-05-04 11:45:30 kbk
! adding model time stamp on IO
!
! Revision 1.10 2005/04/25 09:32:34 kbk
! added NetCDF IO rewrite + de-stag of velocities - Umlauf
!
! Revision 1.9 2004/06/15 08:25:57 kbk
......@@ -293,7 +296,9 @@
if (write_2d .or. write_3d .or. write_mean) then
call write_time_string()
LEVEL2 'Saving.... ',timestr
if (write_2d) LEVEL2 timestr, ': saving 2D .... '
if (write_3d) LEVEL2 timestr, ': saving 3D .... '
if (write_mean) LEVEL2 timestr, ': saving mean fields .... '
! call divergence()
secs = n*timestep
select case (out_fmt)
......
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