Merge branch 'diag_new' of http://tesla.parallel.ru/INMCM60_pbl/INMCM60_sfx into diag_new

diag/pbldia_new_sfx.f90

@@ -96,10 +96,8 @@ use sfx_most, only: &
       TSTAR = AR2(9) * ARDIN(2)
       QSTAR = AR2(9) * ARDIN(3)
 
-print *, zeta
      if(zeta.gt.zetalim) zeta=zetalim
       L = HIN/zeta
-print *, zeta
 
      call get_psi_most(psi_m_hs,psi_h_hs,HIN/L)
      call get_psi_most(psi_m,psi_h,HWIND/L)