Changeset 183 in lmdz_wrf for trunk/WRFV3/lmdz/coefkzmin.F90

Timestamp:

Oct 14, 2014, 7:40:28 PM (10 years ago)

Author:

lfita

Message:

Removing check pritings
Removing nullification of MixingRatioValues?(:,:,2) = 0 and MixingTendRatioValues?(:,:,2)
NO plul related to te absence of oliq at the initial conditions. If one introduce fake ones it works!

File:

• trunk/WRFV3/lmdz/coefkzmin.F90 (modified) (2 diffs)

trunk/WRFV3/lmdz/coefkzmin.F90

@@ -114 +114 @@
          pblhmin(ig)=0.07*ustar(ig)/max(abs(coriol(ig)),2.546e-5)
       enddo
-      PRINT *,'    Fin of coefkzmin k ustar zlev pblhmin qmin kap kn km _____'
          
       do k=2,klev
@@ -126 +125 @@
             kn(ig,k)=kmin
             km(ig,k)=kmin
-            IF (ig == 1) PRINT *,'    ',k,ustar(ig),zlev(ig,k),pblhmin(ig),&
-              qmin,kap,kn(ig,k),km(ig,k)
          enddo
       enddo