fix formatting for some land variables from real to integer

NCAR · Oct 17, 2024 · bbe11c3 · bbe11c3
1 parent cc89a9b
commit bbe11c3
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_debug.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_debug.F90
@@ -1611,11 +1611,11 @@ subroutine GFS_checkland_run (me, master, blkno, im, kdt, iter, flag_iter, flag_
            !if (vegtype(i)==15) then
              write(0,'(a,2i5,1x,1x,l)') 'YYY: i, blk, flag_iter(i)  :', i, blkno, flag_iter(i)
              write(0,'(a,2i5,1x,1x,l)') 'YYY: i, blk, flag_guess(i) :', i, blkno, flag_guess(i)
-             write(0,'(a,2i5,1x,e16.7)')'YYY: i, blk, stype(i)      :', i, blkno, stype(i)
+             write(0,'(a,2i5,1x,i5)')   'YYY: i, blk, stype(i)      :', i, blkno, stype(i)
 
-             write(0,'(a,2i5,1x,e16.7)')'YYY: i, blk, scolor(i)      :', i, blkno, scolor(i)
-             write(0,'(a,2i5,1x,e16.7)')'YYY: i, blk, vtype(i)      :', i, blkno, vtype(i)
-             write(0,'(a,2i5,1x,e16.7)')'YYY: i, blk, slope(i)      :', i, blkno, slope(i)
+             write(0,'(a,2i5,1x,i5)')   'YYY: i, blk, scolor(i)     :', i, blkno, scolor(i)
+             write(0,'(a,2i5,1x,i5)')   'YYY: i, blk, vtype(i)      :', i, blkno, vtype(i)
+             write(0,'(a,2i5,1x,i5)')   'YYY: i, blk, slope(i)      :', i, blkno, slope(i)
              write(0,'(a,2i5,1x,1x,l)') 'YYY: i, blk, dry(i)        :', i, blkno, dry(i)
              write(0,'(a,2i5,1x,1x,l)') 'YYY: i, blk, icy(i)        :', i, blkno, icy(i)
              write(0,'(a,2i5,1x,1x,l)') 'YYY: i, blk, wet(i)        :', i, blkno, wet(i)