[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