@@ -532,7 +532,7 @@ subroutine import_fields( gcomp, cam_in, restart_init, rc)
532
532
! the constituent fluxes array:
533
533
call ccpp_constituent_index(wv_stdname, wv_const_index, ierr, errmsg)
534
534
if (ierr /= 0 ) then
535
- call shr_sys_abort(subname // ' :: Failed to get water vapor CCPP constituent index with the following error: ' // errmsg)
535
+ call shr_sys_abort(subname// ' :: Failed to get water vapor CCPP constituent index with the following error: ' // errmsg)
536
536
end if
537
537
538
538
!- -------------------------
@@ -549,9 +549,9 @@ subroutine import_fields( gcomp, cam_in, restart_init, rc)
549
549
call state_getfldptr(importState, ' Faxx_evap' , fldptr= fldptr_evap, rc= rc)
550
550
if (ChkErr(rc,__LINE__,u_FILE_u)) return
551
551
do i = 1 , columns_on_task
552
- cam_in% wsx(i) = - fldptr_taux(i) * med2mod_areacor(i)
553
- cam_in% wsy(i) = - fldptr_tauy(i) * med2mod_areacor(i)
554
- cam_in% shf(i) = - fldptr_sen(i) * med2mod_areacor(i)
552
+ cam_in% wsx(i) = - fldptr_taux(i) * med2mod_areacor(i)
553
+ cam_in% wsy(i) = - fldptr_tauy(i) * med2mod_areacor(i)
554
+ cam_in% shf(i) = - fldptr_sen(i) * med2mod_areacor(i)
555
555
! Add water vapor to constituent fluxes array if present:
556
556
if (wv_const_index > 0 ) then
557
557
cam_in% cflx(i, wv_const_index) = - fldptr_evap(i) * med2mod_areacor(i)
0 commit comments