Skip to content

Commit 14f9799

Browse files
committed
Fix spacing changes.
1 parent 66cd3ad commit 14f9799

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/cpl/nuopc/atm_import_export.F90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -532,7 +532,7 @@ subroutine import_fields( gcomp, cam_in, restart_init, rc)
532532
! the constituent fluxes array:
533533
call ccpp_constituent_index(wv_stdname, wv_const_index, ierr, errmsg)
534534
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)
536536
end if
537537

538538
!--------------------------
@@ -549,9 +549,9 @@ subroutine import_fields( gcomp, cam_in, restart_init, rc)
549549
call state_getfldptr(importState, 'Faxx_evap', fldptr=fldptr_evap, rc=rc)
550550
if (ChkErr(rc,__LINE__,u_FILE_u)) return
551551
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)
555555
!Add water vapor to constituent fluxes array if present:
556556
if (wv_const_index > 0) then
557557
cam_in%cflx(i, wv_const_index) = -fldptr_evap(i) * med2mod_areacor(i)

0 commit comments

Comments
 (0)