Changeset 183 in lmdz_wrf for trunk/WRFV3/lmdz/ocean_forced_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/ocean_forced_mod.F90 (modified) (3 diffs)

trunk/WRFV3/lmdz/ocean_forced_mod.F90

@@ -100 +100 @@
     END DO
 
-    PRINT *,'   Lluis pt tsurf_limit_check tsurf_lim_____'
-    DO i=-10,10
-      PRINT *,lp+i,tsurf_limit(lp+i),tsurf_lim(lpt+i)
-    END DO
-
-    PRINT *,'Lluis in ocean_surface_mod lp= ',lp,' tsurf_limit: ',tsurf_limit(lp),   &
-      ' lpt: ',lpt,' tsurf_lim: ',tsurf_lim(lpt),' knindex: ',knindex(lpt)
-
 !****************************************************************************************
 ! 2)
@@ -125 +117 @@
     v1_lay(:) = v1(:) - v0(:)
 
-    PRINT *,'  Lluis before calcul_fluxs tsurf_lim:', tsurf_lim(lpt),                &
-      ' tsurf_new: ', tsurf_new(lpt)
 ! Calcul de tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l and qsurf
     CALL calcul_fluxs(knon, is_oce, dtime, &
@@ -134 +124 @@
          AcoefH, AcoefQ, BcoefH, BcoefQ, &
          tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l)
-    PRINT *,'  Lluis after calcul_fluxs tsurf_lim: ', tsurf_lim(lp),' tsurf_new: ',  &
-      tsurf_new(lpt)
-    PRINT *,'    Lluis i knindex tsurf_limit tsurf_lim tsurf_new ___________'
-    DO i=1,knon
-      PRINT *,i,knindex(i),tsurf_limit(knindex(i)),tsurf_lim(i),tsurf_new(i)
-    END DO
 
 ! - Flux calculation at first modele level for U and V