Changeset b0434e1 in flexpart.git for src/verttransform.f90

Timestamp:

Feb 4, 2016, 9:38:22 AM (8 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

db712a8

Parents:

9484483

Message:

Initial code to handle cloud water in nested wind fields (it is not completely implemented in this commit)

File:

• src/verttransform.f90 (modified) (4 diffs)

src/verttransform.f90

@@ -578 +578 @@
 ! to include future cloud processing by non-precipitating-clouds. 
 !***********************************************************************************
-    write(*,*) 'using cloud water from ECMWF'
+    write(*,*) 'Global ECMWF fields: using cloud water'
     clw(:,:,:,n)=0.0
     icloud_stats(:,:,:,n)=0.0
@@ -635 +635 @@
       end do
     end do
+
+! eso: copy the relevant data to clw4 to reduce amount of communicated data for MPI
+    clw4(:,:,n) = icloud_stats(:,:,4,n)
+
 !**************************************************************************
   else       ! use old definitions
@@ -640 +644 @@
 !   create a cloud and rainout/washout field, clouds occur where rh>80%
 !   total cloudheight is stored at level 0
-    write(*,*) 'using cloud water from Parameterization'
+    write(*,*) 'Global fields: using cloud water from Parameterization'
     do jy=0,nymin1
       do ix=0,nxmin1
@@ -681 +685 @@
   endif !readclouds
 
-! eso: copy the relevant data to clw4 to reduce amount of communicated data for MPI
-  clw4(:,:,n) = icloud_stats(:,:,4,n)
 
      !********* TEST ***************