UVic_ESCM_FABM Program

Uses

  • program~~uvic_escm_fabm~~UsesGraph program~uvic_escm_fabm UVic_ESCM_FABM module~uvic_common_blocks uvic_common_blocks program~uvic_escm_fabm->module~uvic_common_blocks module~uvic_fabm uvic_fabm program~uvic_escm_fabm->module~uvic_fabm module~uvic_fabm->module~uvic_common_blocks fabm fabm module~uvic_fabm->fabm fabm_debug fabm_debug module~uvic_fabm->fabm_debug fabm_types fabm_types module~uvic_fabm->fabm_types

Copyright (C) 2024 Bolding & Bruggeman

This program is used to assure that the sizes of arrays specified in size.h and the size deducted from fabm.yaml are in agreement.

Note

The way the include files are formatted does not allow to be included in F90 free format source code files.

Still to be solved is the issue of getting the variables in mw.h to double precission - for now mw.h in the base UVic source code folder has a kind=8 on all real arguments

An alternative method is to provide CMake with options to compile in 8 (4) byte. This is used for now - and no changes to mw.h are necessary


Calls

program~~uvic_escm_fabm~~CallsGraph program~uvic_escm_fabm UVic_ESCM_FABM proc~fabm_configure uvic_fabm::fabm_configure program~uvic_escm_fabm->proc~fabm_configure proc~fabm_list uvic_fabm::fabm_list program~uvic_escm_fabm->proc~fabm_list fabm_create_model fabm_create_model proc~fabm_configure->fabm_create_model set_bottom_index set_bottom_index proc~fabm_configure->set_bottom_index set_domain set_domain proc~fabm_configure->set_domain set_domain_start set_domain_start proc~fabm_configure->set_domain_start set_domain_stop set_domain_stop proc~fabm_configure->set_domain_stop set_mask set_mask proc~fabm_configure->set_mask bottom_state_variables bottom_state_variables proc~fabm_list->bottom_state_variables interior_state_variables interior_state_variables proc~fabm_list->interior_state_variables surface_state_variables surface_state_variables proc~fabm_list->surface_state_variables

Variables

Type Attributes Name Initial
integer :: n
character(len=128) :: fname = 'fabm.yaml'
logical :: exists