Changeset 657

Timestamp:

May 11, 2012, 3:23:34 PM (13 years ago)

Author:

acolaitis

Message:

Bug correction in input list for pbl_parameter

File:

• trunk/LMDZ.MARS/libf/phymars/physiq.F (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/physiq.F

@@ -352 +352 @@
       REAL, ALLOCATABLE, DIMENSION(:) :: z_out     ! height of interpolation between z0 and z1 [meters]
       REAL ustar(ngridmx),tstar(ngridmx)  ! friction velocity and friction potential temp
-      REAL L_mo(ngridmx),wstarpbl(ngridmx),vhf(ngridmx),vvv(ngridmx)
+      REAL L_mo(ngridmx),vhf(ngridmx),vvv(ngridmx)
       REAL zu2(ngridmx)
 c=======================================================================
@@ -1362 +1362 @@
 c        ----------------------------------------------------------
 
-           n_out=5 ! number of elements in the z_out array.
+           n_out=0 ! number of elements in the z_out array.
                    ! for z_out=[3.,2.,1.,0.5,0.1], n_out must be set
                    ! to 5
@@ -1377 +1377 @@
            call pbl_parameters(ngrid,nlayer,ps,zplay,z0,
      & g,zzlay,zzlev,zu,zv,wstar,hfmax_th,zmax_th,tsurf,zh,z_out,n_out,
-     & T_out,u_out,ustar,tstar,wstarpbl,L_mo,vhf,vvv)
+     & T_out,u_out,ustar,tstar,L_mo,vhf,vvv)
 
 #ifndef MESOSCALE