Add bcphi, bcpho, flxdst ice to ocean coupling fields

E3SM-Project · Jun 25, 2016 · 7e4143e · 7e4143e
1 parent 9eae658
commit 7e4143e
Showing 1 changed file with 27 additions and 0 deletions.
diff --git a/driver_cpl/shr/seq_flds_mod.F90 b/driver_cpl/shr/seq_flds_mod.F90
@@ -1365,6 +1365,33 @@ subroutine seq_flds_set(nmlfile, ID)
      attname  = 'Faxa_salt'
      call metadata_set(attname, longname, stdname, units)
 
+     ! Black Carbon hydrophilic deposition  
+     call seq_flds_add(i2x_fluxes,"Fioi_bcphi" )
+     call seq_flds_add(x2o_fluxes,"Fioi_bcphi"   )
+     longname = 'Hydrophylic black carbon deposition flux'
+     stdname  = 'deposition_flux_of_hydrophylic_black_carbon'
+     units    = 'kg m-2 s-1'
+     attname  = 'Fioi_bcphi'
+     call metadata_set(attname, longname, stdname, units)
+
+     ! Black Carbon hydrophobic deposition  
+     call seq_flds_add(i2x_fluxes,"Fioi_bcpho" )
+     call seq_flds_add(x2o_fluxes,"Fioi_bcpho"   )
+     longname = 'Hydrophobic black carbon deposition flux'
+     stdname  = 'deposition_flux_of_hydrophobic_black_carbon'
+     units    = 'kg m-2 s-1'
+     attname  = 'Fioi_bcpho'
+     call metadata_set(attname, longname, stdname, units)
+
+     ! Dust flux
+     call seq_flds_add(i2x_fluxes,"Fioi_flxdst")
+     call seq_flds_add(x2o_fluxes,"Fioi_flxdst")
+     longname = 'Dust flux'
+     stdname  = 'dust_flux'
+     units    = 'kg m-2 s-1'
+     attname  = 'Fioi_flxdst'
+     call metadata_set(attname, longname, stdname, units)
+
      ! Sea surface temperature
      call seq_flds_add(o2x_states,"So_t")
      call seq_flds_add(x2i_states,"So_t")