[Ncep.list.nems.announce] nems r96669: Commit from Bin Li:
Samuel.Trahan at noaa.gov
Samuel.Trahan at noaa.gov
Thu Aug 31 22:21:37 UTC 2017
The HYCOM model needs
=?utf-8?Q?=E2=80=9Cice=5Ffracti...?=
Message-ID: <59a88bf1.FYED4a7A0ow4KtVF%Samuel.Trahan at noaa.gov>
User-Agent: Heirloom mailx 12.5 7/5/10
MIME-Version: 1.0
Content-Type: multipart/mixed;
boundary="=_59a88bf1.ssdc5hn7dQFG8CM1v7D00vr5XWz7HE6R2D/hEpkLDaUwiP8c"
This is a multi-part message in MIME format.
--=_59a88bf1.ssdc5hn7dQFG8CM1v7D00vr5XWz7HE6R2D/hEpkLDaUwiP8c
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Content-Disposition: inline
Friendly NEMS developers,
This is an automated email about a NEMS commit.
Project: nems
URL: https://svnemc.ncep.noaa.gov/projects/nems/trunk
Revision: 96669
Author: samuel.trahan at noaa.gov
Date: 2017-08-17T14:40:14.404917Z
Message:
Commit from Bin Li:
The HYCOM model needs âice_fractionâ, âmean_latent_heat_flxâ and âmean_net_sw_flxâ fields. The NEMS mediator is revised to add those fields to the export state âNState_OcnExpâ for the HYCOM model.
Differences:
Index: checkout/src/module_MEDIATOR.F90
===================================================================
--- checkout/src/module_MEDIATOR.F90 (revision 96303)
+++ checkout/src/module_MEDIATOR.F90 (revision 96669)
@@ -627,6 +627,7 @@
call fld_list_add(fldsToOcn,"net_heat_flx_to_ocn" , "will provide")
call fld_list_add(fldsToOcn,"mean_fresh_water_to_ocean_rate", "will provide")
call fld_list_add(fldsToOcn,"mean_salt_rate" , "will provide")
+ call fld_list_add(fldsToOcn,"ice_fraction" , "will provide")
! Fields from OCN
call fld_list_add(fldsFrOcn,"ocean_mask" , "cannot provide","conservedst")
@@ -4937,12 +4938,13 @@
! line=__LINE__, file=__FILE__)) return ! bail out
! not used by mom, mom uses evap
-! call fieldBundle_FieldMerge(is_local%wrap%FBforOcn , 'mean_laten_heat_flx' , &
-! is_local%wrap%FBAccumAtmOcn, 'mean_laten_heat_flx_atm_into_ocn', atmwgt1, &
-! is_local%wrap%FBAtm_o , 'mean_laten_heat_flx' , wgtp01, &
-! rc=rc)
-! if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
-! line=__LINE__, file=__FILE__)) return ! bail out
+! hycom uses latent heat flux
+ call fieldBundle_FieldMerge(is_local%wrap%FBforOcn , 'mean_laten_heat_flx' , &
+ is_local%wrap%FBAccumAtmOcn, 'mean_laten_heat_flx_atm_into_ocn', atmwgt1, &
+ is_local%wrap%FBAtm_o , 'mean_laten_heat_flx' , wgtm01, &
+ rc=rc)
+ if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
+ line=__LINE__, file=__FILE__)) return ! bail out
call fieldBundle_FieldMerge(is_local%wrap%FBforOcn , 'mean_net_lw_flx' , &
is_local%wrap%FBAtm_o , 'mean_down_lw_flx' , atmwgt1, &
@@ -5001,6 +5003,13 @@
customwgt = atmwgt * (1.0 - 0.06)
! customwgt = (1.0 - 0.06)
+ call fieldBundle_FieldMerge(is_local%wrap%FBforOcn,'mean_net_sw_flx' , &
+ is_local%wrap%FBAtm_o ,'mean_down_sw_flx',customwgt, &
+ is_local%wrap%FBIce_o ,'mean_sw_pen_to_ocn' ,icewgt, &
+ rc=rc)
+ if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
+ line=__LINE__, file=__FILE__)) return ! bail out
+
call fieldBundle_FieldMerge(is_local%wrap%FBforOcn,'mean_net_sw_vis_dir_flx' , &
is_local%wrap%FBAtm_o ,'mean_down_sw_vis_dir_flx',customwgt, &
is_local%wrap%FBIce_o ,'mean_net_sw_vis_dir_flx' ,icewgt, &
--=_59a88bf1.ssdc5hn7dQFG8CM1v7D00vr5XWz7HE6R2D/hEpkLDaUwiP8c
Content-Type: text/plain;
charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
filename="96669.diff"
Index: checkout/src/module_MEDIATOR.F90
===================================================================
--- checkout/src/module_MEDIATOR.F90 (revision 96303)
+++ checkout/src/module_MEDIATOR.F90 (revision 96669)
@@ -627,6 +627,7 @@
call fld_list_add(fldsToOcn,"net_heat_flx_to_ocn" , "will provide")
call fld_list_add(fldsToOcn,"mean_fresh_water_to_ocean_rate", "will provide")
call fld_list_add(fldsToOcn,"mean_salt_rate" , "will provide")
+ call fld_list_add(fldsToOcn,"ice_fraction" , "will provide")
! Fields from OCN
call fld_list_add(fldsFrOcn,"ocean_mask" , "cannot provide","conservedst")
@@ -4937,12 +4938,13 @@
! line=__LINE__, file=__FILE__)) return ! bail out
! not used by mom, mom uses evap
-! call fieldBundle_FieldMerge(is_local%wrap%FBforOcn , 'mean_laten_heat_flx' , &
-! is_local%wrap%FBAccumAtmOcn, 'mean_laten_heat_flx_atm_into_ocn', atmwgt1, &
-! is_local%wrap%FBAtm_o , 'mean_laten_heat_flx' , wgtp01, &
-! rc=rc)
-! if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
-! line=__LINE__, file=__FILE__)) return ! bail out
+! hycom uses latent heat flux
+ call fieldBundle_FieldMerge(is_local%wrap%FBforOcn , 'mean_laten_heat_flx' , &
+ is_local%wrap%FBAccumAtmOcn, 'mean_laten_heat_flx_atm_into_ocn', atmwgt1, &
+ is_local%wrap%FBAtm_o , 'mean_laten_heat_flx' , wgtm01, &
+ rc=rc)
+ if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
+ line=__LINE__, file=__FILE__)) return ! bail out
call fieldBundle_FieldMerge(is_local%wrap%FBforOcn , 'mean_net_lw_flx' , &
is_local%wrap%FBAtm_o , 'mean_down_lw_flx' , atmwgt1, &
@@ -5001,6 +5003,13 @@
customwgt = atmwgt * (1.0 - 0.06)
! customwgt = (1.0 - 0.06)
+ call fieldBundle_FieldMerge(is_local%wrap%FBforOcn,'mean_net_sw_flx' , &
+ is_local%wrap%FBAtm_o ,'mean_down_sw_flx',customwgt, &
+ is_local%wrap%FBIce_o ,'mean_sw_pen_to_ocn' ,icewgt, &
+ rc=rc)
+ if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
+ line=__LINE__, file=__FILE__)) return ! bail out
+
call fieldBundle_FieldMerge(is_local%wrap%FBforOcn,'mean_net_sw_vis_dir_flx' , &
is_local%wrap%FBAtm_o ,'mean_down_sw_vis_dir_flx',customwgt, &
is_local%wrap%FBIce_o ,'mean_net_sw_vis_dir_flx' ,icewgt, &
--=_59a88bf1.ssdc5hn7dQFG8CM1v7D00vr5XWz7HE6R2D/hEpkLDaUwiP8c--
More information about the Ncep.list.nems.announce
mailing list