diff --git a/src/clm5/oasis3/oas_defineMod.F90 b/src/clm5/oasis3/oas_defineMod.F90 index 04b5d7d45..5ac3d7700 100644 --- a/src/clm5/oasis3/oas_defineMod.F90 +++ b/src/clm5/oasis3/oas_defineMod.F90 @@ -173,6 +173,8 @@ subroutine oas_definitions_init(bounds) IF (ierror /= 0) CALL oasis_abort(oas_comp_id, oas_comp_name, 'Failure in oasis_def_var for CLMSHFLX.') CALL oasis_def_var(oas_id_lh, "CLMLHFLX", grid_id, var_nodims, OASIS_Out, OASIS_Real, ierror) !18 IF (ierror /= 0) CALL oasis_abort(oas_comp_id, oas_comp_name, 'Failure in oasis_def_var for CLMLHFLX.') + CALL oasis_def_var(oas_id_rh, "CLM_RAH1", grid_id, var_nodims, OASIS_Out, OASIS_Real, ierror) !20 + IF (ierror /= 0) CALL oasis_abort(oas_comp_id, oas_comp_name, 'Failure in oasis_def_var for CLM_RAH1.') END IF CALL oasis_def_var(oas_id_st, "CLMTGRND", grid_id, var_nodims, OASIS_Out, OASIS_Real, ierror) !19 IF (ierror /= 0) CALL oasis_abort(oas_comp_id, oas_comp_name, 'Failure in oasis_def_var for CLMTGRND.') diff --git a/src/clm5/oasis3/oas_sendReceiveMod.F90 b/src/clm5/oasis3/oas_sendReceiveMod.F90 index 744bc9639..bcd785630 100644 --- a/src/clm5/oasis3/oas_sendReceiveMod.F90 +++ b/src/clm5/oasis3/oas_sendReceiveMod.F90 @@ -126,6 +126,7 @@ subroutine oas_send_icon(bounds, seconds_elapsed, lnd2atm_inst) call oasis_put(oas_id_ty, seconds_elapsed,lnd2atm_inst%tauy_grc, info) ! "CLM_TAUY" call oasis_put(oas_id_sh, seconds_elapsed,lnd2atm_inst%eflx_sh_tot_grc, info) ! "CLM_SHFLX" call oasis_put(oas_id_lh, seconds_elapsed,lnd2atm_inst%eflx_lh_tot_grc, info) ! "CLM_LHFLX" + call oasis_put(oas_id_rh, seconds_elapsed,lnd2atm_inst%rah1_grc, info) ! "CLM_RAH1" end if call oasis_put(oas_id_st, seconds_elapsed,lnd2atm_inst%t_sf_grc, info) ! "CLM_TGRND"