Put the data structures kpp_3d_fields and kpp_const_fields into the data_fields module, rather than passing as arguments. This is what is done for the CAM version of the code, so simplifies the subroutine interfaces, removing ifdefs.
Other minor changes to tidy up the code:
constrain what is loaded through modules by using ONLY
Put the data structures
kpp_3d_fields
andkpp_const_fields
into thedata_fields
module, rather than passing as arguments. This is what is done for the CAM version of the code, so simplifies the subroutine interfaces, removing ifdefs.Other minor changes to tidy up the code:
ONLY
RETURN
statements at end of subroutines()
to subroutine calls with no argumentsnuout
andnuerr
to write to stdout and stderr