Changeset 183 in lmdz_wrf for trunk/WRFV3/lmdz/calcul_fluxs_mod.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/calcul_fluxs_mod.F90 (modified) (1 diff)

trunk/WRFV3/lmdz/calcul_fluxs_mod.F90

@@ -96 +96 @@
     INTEGER                                              :: lpt
     lpt = 550
-
-    IF (nisurf == 3) THEN
-      PRINT *,'  Lluis in calcul_fluxs________________________'
-      PRINT *,'    knon: ',knon,' nisurf:' , nisurf, ' dtime: ',dtime
-      PRINT *,'    tsurf: ',tsurf(lpt),' p1lay: ', p1lay(lpt),' cal: ',cal(lpt),' beta: ', beta(lpt) 
-      PRINT *,'    coef1lay: ', coef1lay(lpt),' ps: ', ps(lpt)
-      PRINT *,'    p_rain: ',precip_rain(lpt),' p_snow: ', precip_snow(lpt),' snow: ', snow(lpt)
-      PRINT *,'    qsurf: ', qsurf(lpt)
-      PRINT *,'    radsol: ',radsol(lpt),' dif_grnd: ', dif_grnd(lpt),' t1lay: ', t1lay(lpt)
-      PRINT *,'    q1lay: ', q1lay(lpt),' u1lay: ', u1lay(lpt),' v1lay: ', v1lay(lpt)
-      PRINT *,'    ptAcoef: ', petAcoef(lpt),' peqAcoef: ', peqAcoef(lpt)
-      PRINT *,'    pteBcoef: ', petBcoef(lpt),' peqBcoef: ', peqBcoef(lpt)
-      PRINT *,'    tsurf_new: ', tsurf_new(lpt), ' evap: ',evap(lpt),' fluxlat: ',fluxlat(lpt)
-      PRINT *,'    fluxsens: ', fluxsens(lpt),' dflux_s: ', dflux_s(lpt),' dflux_l: ', dflux_l(lpt)
-    END IF
 
     IF (check) WRITE(*,*)'Entree ', modname,' surface = ',nisurf