Changeset b0434e1 in flexpart.git for src/readwind.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/readwind.f90 (modified) (2 diffs)

src/readwind.f90

@@ -190 +190 @@
     elseif ((parCat.eq.1).and.(parNum.eq.0).and.(typSurf.eq.105)) then ! Q
       isec1(6)=133         ! indicatorOfParameter
-! ESO Cloud water is in a) fields CLWC and CIWC, *or* b) field qc 
+! ESO Cloud water is in a) fields CLWC and CIWC, *or* b) field QC 
     elseif ((parCat.eq.1).and.(parNum.eq.83).and.(typSurf.eq.105)) then ! clwc
       isec1(6)=246         ! indicatorOfParameter
@@ -377 +377 @@
         readclouds=.true.
         sumclouds=.true.
-!if (clwch(i,j,nlev_ec-k+2,n) .gt. 0)        write(*,*) 'readwind: found water!', clwch(i,j,nlev_ec-k+2,n)
       endif