Commit 4908e1b3 authored by Espen Sollum's avatar Espen Sollum

Fixed a leap year problem in reading the fields

parent 04e2c9e4
......@@ -94,7 +94,7 @@ O_LEV_DBG = g # [0,g]
#LIBS = -lgrib_api_f90 -lgrib_api -lm -ljasper -lnetcdff
LIBS = -lgrib_api_f90 -lgrib_api -lm -ljasper $(NCOPT)
FFLAGS = -I$(INCPATH1) -I$(INCPATH2) -O$(O_LEV) -g -cpp -m64 -mcmodel=large -fconvert=little-endian -frecord-marker=4 -fmessage-length=0 -flto=jobserver -O$(O_LEV) $(NCOPT) $(FUSER) #-Warray-bounds -fcheck=all # -march=native
FFLAGS = -I$(INCPATH1) -I$(INCPATH2) -O$(O_LEV) -g -cpp -m64 -mcmodel=large -fconvert=little-endian -frecord-marker=4 -fmessage-length=0 -flto=jobserver -fbacktrace -O$(O_LEV) $(NCOPT) $(FUSER) #-Warray-bounds -fcheck=all # -march=native
DBGFLAGS = -I$(INCPATH1) -I$(INCPATH2) -O$(O_LEV_DBG) -g3 -ggdb3 -m64 -mcmodel=medium -fconvert=little-endian -frecord-marker=4 -fmessage-length=0 -flto=jobserver -O$(O_LEV_DBG) -fbacktrace -Wall -fdump-core $(FUSER) -ffpe-trap=invalid,overflow,denormal,underflow,zero -Warray-bounds -fcheck=all
......
......@@ -280,8 +280,8 @@ module par_mod
! Max/min relative gain/loss of mass for NH3 reactions (1.0=100%)
!*******************************************************
! real, parameter :: max_nh3_gain = 1.e-10, max_nh3_loss=0.99
real, parameter :: max_nh3_gain = 0.99, max_nh3_loss=0.99
real, parameter :: max_nh3_gain = 1.e-10, max_nh3_loss=0.99
! real, parameter :: max_nh3_gain = 0.99, max_nh3_loss=0.99
!************************************
! Unit numbers for input/output files
......
This diff is collapsed.
......@@ -186,8 +186,10 @@ subroutine timemanager(metdata_format)
call wetdepo(itime,lsynctime,loutnext)
endif
if (NH3LOSS) &
call read_hourly_NH3field(itime)
if (NH3LOSS) then
! write(*,*) 'timemanager> itime: ',itime
call read_hourly_NH3field(itime)
end if
if ((OHREA .or. NH3LOSS) .and. itime .ne. 0 .and. numpart .gt. 0) &
call ohreaction(itime,lsynctime,loutnext)
......
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