Skip to content

Commit 3820337

Browse files
Removes a print statement and adds extra space to print number in F90 file
1 parent 0b317ca commit 3820337

File tree

2 files changed

+1
-2
lines changed

2 files changed

+1
-2
lines changed

components/eamxx/src/physics/mam/eamxx_mam_dry_deposition_process_interface.cpp

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -435,7 +435,6 @@ void MAMDryDep::run_impl(const double dt) {
435435
//--------------------------------------------------------------------
436436
// Call drydeposition and get tendencies
437437
//--------------------------------------------------------------------
438-
printf("BALLI:%0.15e\n", frac_landuse_.data.frac_land_use(0, 1));
439438
compute_tendencies(
440439
ncol_, nlev_, dt, obukhov_length_, surface_friction_velocty_,
441440
land_fraction_, ice_fraction_, ocean_fraction_, friction_velocity_,

components/homme/src/theta-l/share/prim_state_mod.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -793,7 +793,7 @@ subroutine prim_printstate(elem, tl,hybrid,hvcoord,nets,nete)
793793
write(iulog,100) "(E-E0)/E0 ",(TOTE(2)-TOTE0)/TOTE0
794794
do q=1,qsize
795795
if(Qmass0(q)>0.0D0) then
796-
write(iulog,'(a,E23.15,a,i1)') "(Q-Q0)/Q0 ",(Qmass(q,2)-Qmass0(q))/Qmass0(q)," Q",q
796+
write(iulog,'(a,E23.15,a,i2)') "(Q-Q0)/Q0 ",(Qmass(q,2)-Qmass0(q))/Qmass0(q)," Q",q
797797
end if
798798
enddo
799799
endif

0 commit comments

Comments
 (0)