Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Source Code
subroutine link_mole_fraction_of_carbon_dioxide_in_air()integer i,j,rc! local loop countersid_mole_fraction_of_carbon_dioxide_in_air=model%&get_horizontal_variable_id(standard_variables%&mole_fraction_of_carbon_dioxide_in_air)if(model%variable_needs_values(&id_mole_fraction_of_carbon_dioxide_in_air))then allocate(mole_fraction_of_carbon_dioxide_in_air(imt,jmt),&stat=rc)if(rc/=0)stop&'link_mole_fraction_of_carbon_dioxide_in_air(): & Error allocating (mole_fraction_of_carbon_dioxide_in_air)'mole_fraction_of_carbon_dioxide_in_air=0._rkecall model%link_horizontal_data(&id_mole_fraction_of_carbon_dioxide_in_air,&mole_fraction_of_carbon_dioxide_in_air)end if end subroutine link_mole_fraction_of_carbon_dioxide_in_air