Remove some print statements

ESCOMP · Oct 8, 2024 · 65987dd · 65987dd
1 parent 44fa41c
commit 65987dd
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 4 deletions.
diff --git a/columnphysics/icepack_therm_itd.F90 b/columnphysics/icepack_therm_itd.F90
@@ -1620,10 +1620,7 @@ subroutine add_new_ice (ncat,      nilyr,      &
             ! check lateral growth doesn't exceed total growth
             ! if it does, adjust it
             if (SUM(vin0new)>vi0new) then
-                print *, 'LR error ',vi0new,SUM(vin0new)
-                print *, 'fixing it'
                 vin0new(:) = vin0new(:)*vi0new/SUM(vin0new)
-                print *, 'now ',vi0new,SUM(vin0new)
             end if
 
             ! remove the new ice created by lateral growth

diff --git a/columnphysics/icepack_wavefracspec.F90 b/columnphysics/icepack_wavefracspec.F90
@@ -269,7 +269,6 @@ subroutine icepack_step_wavefracture(wave_spec_type,   &
       if ((aice > p01).and.(MAXVAL(wave_spectrum(:)) > puny)) then
 
          !hbar = vice / aice
-         print *, 'now call wave_frac'
          ! calculate fracture histogram
          call wave_frac(nfsd, nfreq, wave_spec_type, &
                         floe_rad_l, floe_rad_c, &