Registering external variable

[Ulf Graewe]

Hi all,
I would like to register a variable in FABM provided by GETM.

In getm I do:
id_release_rate = model%get_horizontal_variable_id('release_rate')
...
call model%link_horizontal_data(id_release_rate,release_mask(i,j))

and in fabm:
type (type_horizontal_dependency_id) :: id_release

call self%register_horizontal_dependency(self%id_release,
type_horizontal_standard_variable(name='release_rate',units='mol/m2/d'))

Unfortunately, I get an error message:


/home/ulf/Arbeit/Models/GETM-GOTM/getm-setups/box_cartesian_tnt/GETM-GOTM-FABM/fabm-git/src/models/iow/tnt/tnt.F90:75:100:

call self%register_horizontal_dependency(self%id_release,
type_horizontal_standard_variable(name='release_rate',units='mol/m2/d'))

1
Error: Keyword argument requires explicit interface for procedure
‘type_horizontal_standard_variable’ at (1)
/home/ulf/Arbeit/Models/GETM-GOTM/getm-setups/box_cartesian_tnt/GETM-GOTM-FABM/fabm-git/src/models/iow/tnt/tnt.F90:75:61:

call self%register_horizontal_dependency(self%id_release,
type_horizontal_standard_variable(name='release_rate',units='mol/m2/d'))
1
Error: Function ‘type_horizontal_standard_variable’ at (1) has no
IMPLICIT type
/home/ulf/Arbeit/Models/GETM-GOTM/getm-setups/box_cartesian_tnt/GETM-GOTM-FABM/fabm-git/src/models/iow/tnt/tnt.F90:75:100:

call self%register_horizontal_dependency(self%id_release,
type_horizontal_standard_variable(name='release_rate',units='mol/m2/d'))

Any clue, what I've done wrong?


--
Ulf Gräwe

Leibniz Institute for Baltic Sea Research Warnemuende
Dept. for Physical Oceanography and Instrumentation
Seestrasse 15
D-18119 Rostock-Warnemuende
Germany

Tel. : +49 (381) 5197-358
Fax : +49 (381) 5197-440

http://www.io-warnemuende.de/ulf-graewe-en.html

[Ulf Graewe]

Ha, ha,

use fabm_standard_variables

did the trick!
That was easy!