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