diff --git a/cesm/driver/esmApp.F90 b/cesm/driver/esmApp.F90
index 12cf1537..5215ea2a 100644
--- a/cesm/driver/esmApp.F90
+++ b/cesm/driver/esmApp.F90
@@ -139,7 +139,7 @@ program esmApp
! Call Run for the ensemble driver
!-----------------------------------------------------------------------------
call ESMF_GridCompRun(ensemble_driver_comp, userRc=urc, rc=rc)
- if (ESMF_LogFoundError(rcToCheck=urc, msg=ESMF_LOGERR_PASSTHRU, &
+ if (ESMF_LogFoundError(rcToCheck=rc, msg=ESMF_LOGERR_PASSTHRU, &
line=__LINE__, &
file=__FILE__)) &
call ESMF_Finalize(endflag=ESMF_END_ABORT)
diff --git a/cesm/flux_atmocn/shr_flux_mod.F90 b/cesm/flux_atmocn/shr_flux_mod.F90
index 9ec55873..741447d9 100644
--- a/cesm/flux_atmocn/shr_flux_mod.F90
+++ b/cesm/flux_atmocn/shr_flux_mod.F90
@@ -259,7 +259,17 @@ SUBROUTINE flux_atmOcn(logunit, nMax ,zbot ,ubot ,vbot ,thbot , &
qsat(Tk) = 640380.0_R8 / exp(5107.4_R8/Tk)
- cdn(Umps) = 0.0027_R8 / Umps + 0.000142_R8 + 0.0000764_R8 * Umps
+
+ ! Large and Yeager 2009
+ cdn(Umps) = 0.0027_R8 / min(33.0000_R8,Umps) + 0.000142_R8 + &
+ 0.0000764_R8 * min(33.0000_R8,Umps) - 3.14807e-13_r8 * min(33.0000_R8,Umps)**6
+ ! Capped Large and Pond by wind
+ ! cdn(Umps) = 0.0027_R8 / min(30.0_R8,Umps) + 0.000142_R8 + 0.0000764_R8 * min(30.0_R8,Umps)
+ ! Capped Large and Pond by Cd
+ ! cdn(Umps) = min(0.0025_R8, (0.0027_R8 / Umps + 0.000142_R8 + 0.0000764_R8 * Umps ))
+ ! Large and Pond
+ ! cdn(Umps) = 0.0027_R8 / Umps + 0.000142_R8 + 0.0000764_R8 * Umps
+
psimhu(xd) = log((1.0_R8+xd*(2.0_R8+xd))*(1.0_R8+xd*xd)/8.0_R8) - 2.0_R8*atan(xd) + 1.571_R8
psixhu(xd) = 2.0_R8 * log((1.0_R8 + xd*xd)/2.0_R8)
diff --git a/cime_config/config_component.xml b/cime_config/config_component.xml
index a329be74..d0267b1f 100644
--- a/cime_config/config_component.xml
+++ b/cime_config/config_component.xml
@@ -534,6 +534,15 @@
List of job ids for most recent case.submit
+
+ char
+ regular
+ regular,premium,economy
+ run_begin_stop_restart
+ env_run.xml
+ job priority for systems supporting this option
+
+
@@ -1026,23 +1035,6 @@
this to work.
-
- char
- ESMF_LOGKIND_SINGLE,ESMF_LOGKIND_MULTI,ESMF_LOGKIND_NONE
- ESMF_LOGKIND_NONE
- run_flags
- env_run.xml
-
- Determines what ESMF log files (if any) are generated when
- USE_ESMF_LIB is TRUE.
- ESMF_LOGKIND_SINGLE: Use a single log file, combining messages from
- all of the PETs. Not supported on some platforms.
- ESMF_LOGKIND_MULTI: Use multiple log files -- one per PET.
- ESMF_LOGKIND_NONE: Do not issue messages to a log file.
- By default, no ESMF log files are generated.
-
-
-
char
off,low,high,max
diff --git a/cime_config/namelist_definition_drv.xml b/cime_config/namelist_definition_drv.xml
index dec6868f..5b6d0124 100644
--- a/cime_config/namelist_definition_drv.xml
+++ b/cime_config/namelist_definition_drv.xml
@@ -18,24 +18,6 @@
-
- char
- cime_pes
- PELAYOUT_attributes
-
- Determines what ESMF log files (if any) are generated when
- USE_ESMF_LIB is TRUE.
- ESMF_LOGKIND_SINGLE: Use a single log file, combining messages from
- all of the PETs. Not supported on some platforms.
- ESMF_LOGKIND_MULTI: Use multiple log files — one per PET.
- ESMF_LOGKIND_NONE: Do not issue messages to a log file.
- By default, no ESMF log files are generated.
-
-
- $ESMF_LOGFILE_KIND
-
-
-
integer
pio
diff --git a/mediator/esmFldsExchange_ufs_mod.F90 b/mediator/esmFldsExchange_ufs_mod.F90
index a93a8ff8..d7367172 100644
--- a/mediator/esmFldsExchange_ufs_mod.F90
+++ b/mediator/esmFldsExchange_ufs_mod.F90
@@ -151,6 +151,14 @@ subroutine esmFldsExchange_ufs(gcomp, phase, rc)
call addfld_ocnalb('So_anidf')
end if
+ ! Advertise the ocean albedos. These are not sent to the ATM in UFS.
+ if (phase == 'advertise') then
+ call addfld_ocnalb('So_avsdr')
+ call addfld_ocnalb('So_avsdf')
+ call addfld_ocnalb('So_anidr')
+ call addfld_ocnalb('So_anidf')
+ end if
+
!=====================================================================
! FIELDS TO ATMOSPHERE (compatm)
!=====================================================================
diff --git a/mediator/med_phases_ocnalb_mod.F90 b/mediator/med_phases_ocnalb_mod.F90
index 31bd211f..304d0c7f 100644
--- a/mediator/med_phases_ocnalb_mod.F90
+++ b/mediator/med_phases_ocnalb_mod.F90
@@ -242,7 +242,7 @@ subroutine med_phases_ocnalb_init(gcomp, ocnalb, rc)
call ESMF_LogWrite(trim(msg), ESMF_LOGMSG_INFO)
end if
end if
- write(msg,'(A,l)') trim(subname)//': use_nextswcday setting is ',use_nextswcday
+ write(msg,'(A,l1)') trim(subname)//': use_nextswcday setting is ',use_nextswcday
call ESMF_LogWrite(trim(msg), ESMF_LOGMSG_INFO)
if (dbug_flag > 5) then