Bugs fixed, revealed when using gfortran 9.3.0 compiler

setup/Mojai2016-2017_driver.dat

@@ -72,6 +72,7 @@ N_LatentFlux    -1
 N_Ustar         -1
 N_surfrad       -1
 N_cloud         -1
+N_SurfTemp      -1
 #
 #-----------------------------------------------------------------------------------------
 #                              TIME INTEGRATION PARAMETERS

source/Makefile

@@ -25,6 +25,7 @@
    opt_keys = -fopenmp -O3 #-fp-model source
    #check_keys = -g -ffpe-trap=invalid,zero,overflow,denormal -fcheck=all -fbacktrace
    #check_keys = -g -ffpe-trap=invalid,zero,overflow -fcheck=all -fbacktrace
+   #check_keys = -fbacktrace
  endif
 
  objfiles_path = ../objfiles/

source/model/control_point_mod.f90

@@ -360,6 +360,7 @@ deallocate(work)
 
 ! Writing timestamp of the control point
 filen = './results/control_point/cpdate.dat'
+nunit = 1000
 call CHECK_UNIT(1_iintegers,1000_iintegers,nunit)
 open(unit=nunit,file=filen,status='unknown')
 write(nunit,'(a)') 'The control point time stamp'

source/model/lake_modules.f90

@@ -388,8 +388,7 @@ implicit none
    real(kind=ireals), allocatable :: terms(:), termsdt(:)
    real(kind=ireals) :: storage, storage0, dstorage, resid
    integer(kind=iintegers) :: nterms
-   !contains
-   procedure(intbal_update), pointer, pass :: intbal_update => INTBAL_UPDATE
+   procedure(intbal_update), pointer, nopass :: intbal_update => INTBAL_UPDATE
  endtype intbal_type
  
  contains

tools/plot_contour.py

@@ -25,8 +25,8 @@ font = {'family': 'serif',
 rc('font', **font)
 rc('text', usetex=True)
 rc('text.latex',unicode=True)
-rc('text.latex',preamble='\usepackage[utf8]{inputenc}')
-rc('text.latex',preamble='\usepackage[russian]{babel}')
+rc('text.latex',preamble=r"\usepackage[utf8]{inputenc}")
+rc('text.latex',preamble=r"\usepackage[russian]{babel}")
 #rc('text.latex',preamble='\usepackage{amsmath}')
 
 

tools/plot_timser.py

@@ -130,8 +130,8 @@ def plot_timeser(plotid,nvar,legendcommon) :
     rc('font', **font)
     rc('text', usetex=True)
     rc('text.latex',unicode=True)
-    rc('text.latex',preamble='\usepackage[utf8]{inputenc}')
-    rc('text.latex',preamble='\usepackage[russian]{babel}')
+    rc('text.latex',preamble=r"\usepackage[utf8]{inputenc}")
+    rc('text.latex',preamble=r"\usepackage[russian]{babel}")
     #rc('text.latex',preamble='\usepackage{amsmath}')
 
     #Numbering of plot items