cleaning up code, removing print statements

Author: bstephens82

CMEPS_mods/shr_flux_mod.F90

@@ -362,20 +362,10 @@ SUBROUTINE flux_atmOcn(logunit, nMax  ,zbot  ,ubot  ,vbot  ,thbot ,   &
              end if
 
              ! --- BAS
-!             if (n==5) then
-              write(*,*) "shr flux up2_sfc = ",up2_sfc(:)
-              write(*,*) "shr flux vp2_sfc = ",vp2_sfc(:)
-!              write(*,*) "ugust_out b4 = ",n,ugust_out(n)
-!             end if
-
              if (add_clubb_gusts) then
                 vmag   = sqrt(vmag**2 + up2_sfc(n) + vp2_sfc(n) )
                 ugust_out(n) = sqrt( ugust_out(n)**2 + up2_sfc(n) + vp2_sfc(n) )
              end if
-
-!             if (n==5) then
-!              write(*,*) "ugust_out after = ",n,ugust_out(n)
-!             end if
              ! --- end BAS ---
 
              wind0 = max(seq_flux_atmocn_minwind, sqrt( (ubot(n)-us(n))**2 + (vbot(n)-vs(n))**2) )

src/control/camsrfexch.F90

@@ -520,12 +520,6 @@ subroutine cam_export(state,cam_out,pbuf)
    end if
  ! --- BAS
 
-! BAS
-    write(*,*) "camsrfexch up2 zt = ",up2(:,pver)
-    write(*,*) "camsrfexch vp2 zt = ",vp2(:,pver)
-! BAS
-
-
    do i=1,ncol
       cam_out%tbot(i)  = state%t(i,pver)
       cam_out%thbot(i) = state%t(i,pver) * state%exner(i,pver)
@@ -536,7 +530,6 @@ subroutine cam_export(state,cam_out,pbuf)
    ! --- BAS
       cam_out%up2_sfc(i) = up2(i,pver)
       cam_out%vp2_sfc(i) = vp2(i,pver)
-!   write(*,*) "cam_out% = ",i,cam_out%up2_sfc(i),cam_out%vp2_sfc(i)
    ! --- BAS
       cam_out%pbot(i)  = state%pmid(i,pver)
       cam_out%psl(i)   = psl(i)

src/cpl/nuopc/atm_import_export.F90

@@ -1003,8 +1003,6 @@ subroutine export_fields( gcomp, model_mesh, model_clock, cam_out, rc)
           fldptr_pslv(g) = cam_out(c)%psl(i)
           g = g + 1
        end do
-      write(*,*) "imp exp up2_sfc = ", c, cam_out(c)%up2_sfc(:)
-      write(*,*) "imp exp vp2_sfc = ", c, cam_out(c)%vp2_sfc(:)
     end do
 
     ! required export flux variables

src/physics/cam/clubb_intr.F90

@@ -3991,22 +3991,6 @@ subroutine clubb_tend_cam( state,   ptend_all,   pbuf,     hdtime, &
       end do
     end do
 
-!   do i =1, ncol
-!     if (wp2_zt_out(i,pverp)<-1.e-6_r8) then
-!       write(*,*) "wp2_zt_out = ",wp2_zt_out(i,pverp)
-!     end if
-!   end do
-! BAS
-!    write(*,*) "clubb intr up2 = ",up2(:,pverp)
-!    write(*,*) "clubb intr vp2 = ",vp2(:,pverp)
-!   if (180*state%lat(1)/3.14 < 24 .and. 180*state%lat(1)/3.14 > 22 .and. 180*state%lon(1)/3.14 > 204 .and. 180*state%lon(1)/3.14 < 206 ) then
-    write(*,*) "clubb intr up2 zt = ",up2_zt(:,pver)
-    write(*,*) "clubb intr vp2 zt = ",vp2_zt(:,pver)
-!   end if
-! BAS
-
-   write(*,*) "lat, lon = ", 180*state%lat(1)/3.14, 180*state%lon(1)/3.14
-
     if ( edsclr_dim > 0 ) then
       !$acc parallel loop gang vector collapse(3) default(present)
       do ixind=1,edsclr_dim