diff --git a/components/eam/src/physics/cam/clubb_intr.F90 b/components/eam/src/physics/cam/clubb_intr.F90 index 6b7fb38906ad..4b4514ebe064 100644 --- a/components/eam/src/physics/cam/clubb_intr.F90 +++ b/components/eam/src/physics/cam/clubb_intr.F90 @@ -930,24 +930,22 @@ subroutine clubb_ini_cam(pbuf2d, dp1_in) call addfld ('TPERTBLT', horiz_only, 'A', 'K', 'perturbation temperature at PBL top') ! if (use_od_fd) then - !added for turbulent orographic form drag (TOFD) output - call addfld ('DTAUX3_FD',(/'lev'/),'A','m/s2','U tendency - fd orographic drag') - call addfld ('DTAUY3_FD',(/'lev'/),'A','m/s2','V tendency - fd orographic drag') - call addfld ('DUSFC_FD',horiz_only,'A','N/m2','fd zonal oro surface stress') - call addfld ('DVSFC_FD',horiz_only,'A','N/m2','fd merio oro surface stress') - call add_default('DTAUX3_FD', 1, ' ') - call add_default('DTAUY3_FD', 1, ' ') - call add_default('DUSFC_FD', 1, ' ') - call add_default('DVSFC_FD', 1, ' ') - if (masterproc) then + !added for turbulent orographic form drag (TOFD) output + call addfld ('DTAUX3_FD',(/'lev'/),'A','m/s2','U tendency - fd orographic drag') + call addfld ('DTAUY3_FD',(/'lev'/),'A','m/s2','V tendency - fd orographic drag') + call addfld ('DUSFC_FD',horiz_only,'A','N/m2','fd zonal oro surface stress') + call addfld ('DVSFC_FD',horiz_only,'A','N/m2','fd merio oro surface stress') + call add_default('DTAUX3_FD', 1, ' ') + call add_default('DTAUY3_FD', 1, ' ') + call add_default('DUSFC_FD', 1, ' ') + call add_default('DVSFC_FD', 1, ' ') + if (masterproc) then write(iulog,*)'Using turbulent orographic form drag scheme (TOFD)' - end if - ! - if (use_od_fd.and.do_tms) then - call endrun("clubb_intr: Both TMS and TOFD are turned on, please turn one off& - &by setting use_od_fd or do_tms as .false.") - end if - ! + end if + if (use_od_fd.and.do_tms) then + call endrun("clubb_intr: Both TMS and TOFD are turned on, please turn one off& + &by setting use_od_fd or do_tms as .false.") + end if end if ! Initialize statistics, below are dummy variables dum1 = 300._r8