Changeset 8b3d324 in flexpart.git


Ignore:
Timestamp:
Jun 25, 2018, 11:28:52 AM (6 years ago)
Author:
pesei <petra seibert at univie ac at>
Branches:
univie
Children:
f251e57
Parents:
1a8fbee
Message:

comment out print statements

comment out print statements for the reference height, adjust the i/o
comment line

File:
1 edited

Legend:

Unmodified
Added
Removed
  • src/verttransform_ecmwf.f90

    r1a8fbee r8b3d324  
    2121
    2222subroutine verttransform_ecmwf(n,uuh,vvh,wwh,pvh)
    23 !                         i  i   i   i   i
     23!                              i  i   i   i   i
    2424!*****************************************************************************
    2525!                                                                            *
     
    1681683     continue
    169169
    170       print*,'oldheights at' ,ixref,jyref,ps(ixref,jyref,1,n)
     170!      print*,'oldheights at' ,ixref,jyref,ps(ixref,jyref,1,n)
    171171    else ! new reference grid point
    172172!     PS: the old version fails if the pressure is <=1000 hPa in the whole
     
    186186      psmean = sum( ps(:,:,1,n), ps(:,:,1,n) > psmean - psstd ) / &
    187187        count(ps(:,:,1,n) > psmean - psstd)
    188       print*,'height: std, new psmean',psstd,psmean
     188!      print*,'height: std, new psmean',psstd,psmean
    189189      ixyref = minloc( abs( ps(:,:,1,n) - psmean ) )
    190190      ixref = ixyref(1)
    191191      jyref = ixyref(2)
    192       print*,'newheights at' ,ixref,jyref,ps(ixref,jyref,1,n)
     192!      print*,'newheights at' ,ixref,jyref,ps(ixref,jyref,1,n)
    193193    endif 
    194194
Note: See TracChangeset for help on using the changeset viewer.
hosted by ZAMG