7 use diag_manager_mod,
only : register_diag_field
9 implicit none ;
private
22 long_name, units, missing_value, range, mask_variant, standard_name, &
23 verbose, do_not_log, err_msg, interp_method, tile_count, area, volume)
24 character(len=*),
intent(in) :: module_name
26 character(len=*),
intent(in) :: field_name
27 integer,
intent(in) :: axes(:)
29 type(time_type),
intent(in) :: init_time
30 character(len=*),
optional,
intent(in) :: long_name
31 character(len=*),
optional,
intent(in) :: units
32 character(len=*),
optional,
intent(in) :: standard_name
33 real,
optional,
intent(in) :: missing_value
34 real,
optional,
intent(in) :: range(2)
35 logical,
optional,
intent(in) :: mask_variant
37 logical,
optional,
intent(in) :: verbose
38 logical,
optional,
intent(in) :: do_not_log
39 character(len=*),
optional,
intent(out):: err_msg
41 character(len=*),
optional,
intent(in) :: interp_method
43 integer,
optional,
intent(in) :: tile_count
44 integer,
optional,
intent(in) :: area
45 integer,
optional,
intent(in) :: volume
49 init_time, long_name=long_name, units=units, missing_value=missing_value, &
50 mask_variant=mask_variant, standard_name=standard_name, &
51 verbose=verbose, do_not_log=do_not_log, err_msg=err_msg, &
52 area=area, volume=volume, interp_method=interp_method)
58 long_name, units, missing_value, range, mask_variant, standard_name, &
59 verbose, do_not_log, err_msg, interp_method, tile_count, area, volume)
60 character(len=*),
intent(in) :: module_name
62 character(len=*),
intent(in) :: field_name
63 type(time_type),
intent(in) :: init_time
64 character(len=*),
optional,
intent(in) :: long_name
65 character(len=*),
optional,
intent(in) :: units
66 character(len=*),
optional,
intent(in) :: standard_name
67 real,
optional,
intent(in) :: missing_value
68 real,
optional,
intent(in) :: range(2)
69 logical,
optional,
intent(in) :: mask_variant
71 logical,
optional,
intent(in) :: verbose
72 logical,
optional,
intent(in) :: do_not_log
73 character(len=*),
optional,
intent(out):: err_msg
75 character(len=*),
optional,
intent(in) :: interp_method
77 integer,
optional,
intent(in) :: tile_count
78 integer,
optional,
intent(in) :: area
79 integer,
optional,
intent(in) :: volume
83 init_time, long_name=long_name, units=units, missing_value=missing_value, &
84 standard_name=standard_name, do_not_log=do_not_log, err_msg=err_msg)