Skip to content

Commit

Permalink
Fix unit metadata
Browse files Browse the repository at this point in the history
  • Loading branch information
andrew-c-ross committed Aug 13, 2024
1 parent ec2b004 commit 9d8470a
Show file tree
Hide file tree
Showing 2 changed files with 14 additions and 14 deletions.
14 changes: 7 additions & 7 deletions generic_tracers/cobalt_reg_diag.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2616,7 +2616,7 @@ subroutine cobalt_reg_diagnostics(diag_list,axes,init_time,phyto,zoo,bact,cobalt
cobalt%id_jalk = register_diag_field(package_name, vardesc_temp%name, axes(1:3),&
init_time, vardesc_temp%longname,vardesc_temp%units, missing_value = missing_value1)

vardesc_temp = vardesc("jalkc","Alkalinity source layer concentration",'h','L','s','eq m-3 s-1','f')
vardesc_temp = vardesc("jalkc","Alkalinity source layer concentration",'h','L','s','eq kg-1 s-1','f')
cobalt%id_jalkc = register_diag_field(package_name, vardesc_temp%name, axes(1:3),&
init_time, vardesc_temp%longname,vardesc_temp%units, missing_value = missing_value1)

Expand All @@ -2628,19 +2628,19 @@ subroutine cobalt_reg_diagnostics(diag_list,axes,init_time,phyto,zoo,bact,cobalt
cobalt%id_jdic = register_diag_field(package_name, vardesc_temp%name, axes(1:3),&
init_time, vardesc_temp%longname,vardesc_temp%units, missing_value = missing_value1)

vardesc_temp = vardesc("jdicc","Dissolved Inorganic Carbon source concentration",'h','L','s','mol m-2 s-1','f')
vardesc_temp = vardesc("jdicc","Dissolved Inorganic Carbon source concentration",'h','L','s','mol kg-1 s-1','f')
cobalt%id_jdicc = register_diag_field(package_name, vardesc_temp%name, axes(1:3),&
init_time, vardesc_temp%longname,vardesc_temp%units, missing_value = missing_value1)

vardesc_temp = vardesc("jno3c","no3 source concentration",'h','L','s','mol m-2 s-1','f')
vardesc_temp = vardesc("jno3c","no3 source concentration",'h','L','s','mol kg-1 s-1','f')
cobalt%id_jno3c = register_diag_field(package_name, vardesc_temp%name, axes(1:3),&
init_time, vardesc_temp%longname,vardesc_temp%units, missing_value = missing_value1)

vardesc_temp = vardesc("jpo4c","po4 source concentration",'h','L','s','mol m-2 s-1','f')
vardesc_temp = vardesc("jpo4c","po4 source concentration",'h','L','s','mol kg-1 s-1','f')
cobalt%id_jpo4c = register_diag_field(package_name, vardesc_temp%name, axes(1:3),&
init_time, vardesc_temp%longname,vardesc_temp%units, missing_value = missing_value1)

vardesc_temp = vardesc("jsio4c","sio4 source concentration",'h','L','s','mol m-2 s-1','f')
vardesc_temp = vardesc("jsio4c","sio4 source concentration",'h','L','s','mol kg-1 s-1','f')
cobalt%id_jsio4c = register_diag_field(package_name, vardesc_temp%name, axes(1:3),&
init_time, vardesc_temp%longname,vardesc_temp%units, missing_value = missing_value1)

Expand All @@ -2664,11 +2664,11 @@ subroutine cobalt_reg_diagnostics(diag_list,axes,init_time,phyto,zoo,bact,cobalt
cobalt%id_jo2_plus_btm = register_diag_field(package_name, vardesc_temp%name, axes(1:3),&
init_time, vardesc_temp%longname,vardesc_temp%units, missing_value = missing_value1)

vardesc_temp = vardesc("jo2","O2 source concentration",'h','L','s','mol m-3 s-1','f')
vardesc_temp = vardesc("jo2","O2 source concentration",'h','L','s','mol m-2 s-1','f')
cobalt%id_jo2 = register_diag_field(package_name, vardesc_temp%name, axes(1:3),&
init_time, vardesc_temp%longname,vardesc_temp%units, missing_value = missing_value1)

vardesc_temp = vardesc("jo2c","O2 source concentration",'h','L','s','mol m-3 s-1','f')
vardesc_temp = vardesc("jo2c","O2 source concentration",'h','L','s','mol kg-1 s-1','f')
cobalt%id_jo2c = register_diag_field(package_name, vardesc_temp%name, axes(1:3),&
init_time, vardesc_temp%longname,vardesc_temp%units, missing_value = missing_value1)

Expand Down
14 changes: 7 additions & 7 deletions generic_tracers/generic_tracer_utils.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1259,7 +1259,7 @@ subroutine g_tracer_register_diag(g_tracer)
g_tracer_com%axes(1:3), &
g_tracer_com%init_time, &
'Implicit vertical diffusion concentration of ' //trim(g_tracer%alias), &
trim('mole/kg/s'), &
trim('mol kg-1 s-1'), &
missing_value = -1.0e+20)

string=trim(g_tracer%alias) // trim("_boundary_forcing_tend")
Expand All @@ -1268,7 +1268,7 @@ subroutine g_tracer_register_diag(g_tracer)
g_tracer_com%axes(1:3), &
g_tracer_com%init_time, &
'Boundary forcing tendency concentration of ' // trim(g_tracer%alias), &
trim('mole/kg/s'), &
trim('mol kg-1 s-1'), &
missing_value = -1.0e+20)


Expand All @@ -1278,7 +1278,7 @@ subroutine g_tracer_register_diag(g_tracer)
g_tracer_com%axes(1:3), &
g_tracer_com%init_time, &
'Generic tracer tendency of ' // trim(g_tracer%alias), &
trim('mole/m^2/s'), &
trim('mol m-2 s-1'), &
missing_value = -1.0e+20)

string=trim(g_tracer%alias) // trim("_vdiff")
Expand All @@ -1296,7 +1296,7 @@ subroutine g_tracer_register_diag(g_tracer)
g_tracer_com%axes(1:2), &
g_tracer_com%init_time, &
'Total flux of ' // trim(g_tracer%alias) // ' into Ocean Surface', &
trim('mole/m^2/sec'), &
trim('mol m-2 s-1'), &
missing_value = -1.0e+20)

string=trim(g_tracer%alias) // trim("_stf_gas")
Expand All @@ -1305,7 +1305,7 @@ subroutine g_tracer_register_diag(g_tracer)
g_tracer_com%axes(1:2), &
g_tracer_com%init_time, &
'Gas exchange flux of ' // trim(g_tracer%alias) // ' into Ocean Surface', &
trim('mole/m^2/sec'), &
trim('mol m-2 s-1'), &
missing_value = -1.0e+20)

string=trim(g_tracer%alias) // trim("_stf_gas_aux")
Expand All @@ -1314,7 +1314,7 @@ subroutine g_tracer_register_diag(g_tracer)
g_tracer_com%axes(1:2), &
g_tracer_com%init_time, &
'Auxilliary Gas exchange flux of ' // trim(g_tracer%alias) // ' into Ocean Surface', &
trim('mole/m^2/sec'), &
trim('mol m-2 s-1'), &
missing_value = -1.0e+20)

string=trim(g_tracer%alias) // trim("_deltap")
Expand All @@ -1341,7 +1341,7 @@ subroutine g_tracer_register_diag(g_tracer)
g_tracer_com%axes(1:2), &
g_tracer_com%init_time, &
'Total flux of ' // trim(g_tracer%alias) // trim(' into Ocean Bottom'), &
trim('mole/m^2/sec'), &
trim('mol m-2 s-1'), &
missing_value = -1.0e+20)

string=trim(g_tracer%alias) // trim("_btm_reservoir")
Expand Down

0 comments on commit 9d8470a

Please sign in to comment.