Changes in src/verttransform_ecmwf.f90 [79e0349:47f96e5] in flexpart.git

File:

• src/verttransform_ecmwf.f90 (modified) (6 diffs)

src/verttransform_ecmwf.f90

@@ -108 +108 @@
   ! real :: rcw(0:nxmax-1,0:nymax-1)
   ! real :: rpc(0:nxmax-1,0:nymax-1)
-  character(len=60) :: zhgpath='/xnilu_wrk/users/sec/kleinprojekte/hertlfit/'
-  character(len=60) :: fnameH,fnameI,fnameJ
+  ! character(len=60) :: zhgpath='/xnilu_wrk/flex_wrk/zhg/'
   ! character(len=60) :: fnameA,fnameB,fnameC,fnameD,fnameE,fnameF,fnameG,fnameH
-  CHARACTER(LEN=3)  :: aspec
-  integer :: virr=0
+  ! CHARACTER(LEN=3)  :: aspec
+  ! integer :: virr=0
   !real :: tot_cloud_h
   !real :: dbg_height(nzmax) 
@@ -733 +732 @@
      !********* TEST ************'**
 !teller(:)=0
-virr=virr+1
-WRITE(aspec, '(i3.3)'), virr
+!virr=virr+1
+!WRITE(aspec, '(i3.3)'), virr
 
 !if (readclouds) then
@@ -771 +770 @@
 !fnameF=trim(zhgpath)//trim(aspec)//'lsp.txt'
 !fnameG=trim(zhgpath)//trim(aspec)//'convp.txt'
-if (1.eq.2) then
-fnameH=trim(zhgpath)//trim(aspec)//'tcwc.txt'
-fnameI=trim(zhgpath)//trim(aspec)//'prec.txt'
-fnameJ=trim(zhgpath)//trim(aspec)//'cloudsh.txt'
-write(*,*) 'Writing data to file: ',fnameH
 !if (readclouds) then
 !OPEN(UNIT=111, FILE=fnameA,FORM='FORMATTED',STATUS = 'UNKNOWN')
@@ -782 +776 @@
 !OPEN(UNIT=114, FILE=fnameD,FORM='FORMATTED',STATUS = 'UNKNOWN')
 !else
-OPEN(UNIT=115, FILE=fnameH,FORM='FORMATTED',STATUS = 'UNKNOWN')
-OPEN(UNIT=116, FILE=fnameI,FORM='FORMATTED',STATUS = 'UNKNOWN')
-OPEN(UNIT=117, FILE=fnameJ,FORM='FORMATTED',STATUS = 'UNKNOWN')
+!OPEN(UNIT=115, FILE=fnameE,FORM='FORMATTED',STATUS = 'UNKNOWN')
+!OPEN(UNIT=116, FILE=fnameF,FORM='FORMATTED',STATUS = 'UNKNOWN')
+!OPEN(UNIT=117, FILE=fnameG,FORM='FORMATTED',STATUS = 'UNKNOWN')
 !endif
 !
-do ix=0,nxmin1
+!do ix=0,nxmin1
 !if (readclouds) then
 !write(111,*) (icloud_stats(ix,jy,1,n),jy=0,nymin1)
@@ -794 +788 @@
 !write(114,*) (icloud_stats(ix,jy,4,n),jy=0,nymin1)
 !else
-write(115,*) (ctwc(ix,jy,n),jy=0,nymin1)  
-write(116,*) (lsprec(ix,jy,1,n)+convprec(ix,jy,1,n),jy=0,nymin1)  
-write(117,*) (cloudsh(ix,jy,n),jy=0,nymin1) 
+!write(115,*) (cloudsh(ix,jy,n),jy=0,nymin1)    !integer
+!write(116,*) (lsprec(ix,jy,1,n),jy=0,nymin1)   !7.83691406E-02 
+!write(117,*) (convprec(ix,jy,1,n),jy=0,nymin1) !5.38330078E-02
 !endif
-end do
+!end do
 !
 !if (readclouds) then
@@ -806 +800 @@
 !CLOSE(114)
 !else
-CLOSE(115)
-CLOSE(116)
-CLOSE(117)
-endif
+!CLOSE(115)
+!CLOSE(116)
+!CLOSE(117)
 !endif
 !