Update clubb_intr.F90

E3SM-Project · Nov 13, 2024 · cf79ffe · cf79ffe
1 parent fed2b20
commit cf79ffe
Showing 1 changed file with 15 additions and 17 deletions.
diff --git 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