common_blocks.F Source File


Files dependent on this one

sourcefile~~common_blocks.f~~AfferentGraph sourcefile~common_blocks.f common_blocks.F sourcefile~uvic_escm_fabm.f90 uvic_escm_fabm.F90 sourcefile~uvic_escm_fabm.f90->sourcefile~common_blocks.f sourcefile~uvic_fabm.f90 uvic_fabm.F90 sourcefile~uvic_escm_fabm.f90->sourcefile~uvic_fabm.f90 sourcefile~uvic_fabm.f90->sourcefile~common_blocks.f

Source Code

c> Copyright (C) 2024 Bolding & Bruggeman
c>

c> @note
c> We need this F77 file to get the information of array sizes and 
c> a number of static allocated MOM2 variables. 
c>
c> The way the UVic include files are formatted does not
c> allow to be included in F90 free format source code files.
c>
c> Still to be solved is the issue of getting the variables in mw.h to
c> double precission - for now updates/fabm/source/mom/mw.h has a 
c! kind=8 on all real arguments
c> @endnote

      module uvic_common_blocks
      include "size.h"
      include "coord.h"
      include "csbc.h"
      include "mw.h"
      include "levind.h"
      end module uvic_common_blocks