Mercurial > hgweb > burst-coupling
changeset 88:4d0b1c84ebea
Only rewind one day for monthly and yearly output files, because of variable
length of months. Compare this with GLB_FILEFREQ. At least for monthly file
of Februari the rewind will be too far. For yearly files this should not be
an issue, but the one-day rewind is applied in an earlier version of the code
for yearly files as well.
author | Marco van Hulten <marco@hulten.org> |
---|---|
date | Tue, 02 Jul 2019 11:02:37 +0200 |
parents | b4d88c12bc35 |
children | 85cec98f272f |
files | mod_dia.F |
diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/mod_dia.F Fri Jun 28 17:51:42 2019 +0200 +++ b/mod_dia.F Tue Jul 02 11:02:37 2019 +0200 @@ -265,7 +265,11 @@ . runid(1:runid_len),'_',ctag,'_',ny,'.',nm,'.',nd,'.nc' endif elseif (expcnf.eq.'cesm') then - call pstdat(ny,nm,nd,nint(diagfq)) + if ( filemon .or. fileann ) then + call pstdat(ny,nm,nd,1) + else + call pstdat(ny,nm,nd,nint(diagfq)) + endif if (filemon) then if ( lspinning_up_sed ) then write(fname,'(4a,i6.6,a,i2.2,a)')