Index: /LMDZ5/trunk/libf/phylmd/cdrag.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/cdrag.F90	(revision 2771)
+++ /LMDZ5/trunk/libf/phylmd/cdrag.F90	(revision 2772)
@@ -1,4 +1,4 @@
 !
-!$Id: cdrag.F90 ???? 2015-??-?? ??:??:??Z ? $
+!$Id$
 !
  SUBROUTINE cdrag( knon,  nsrf,   &
@@ -9,5 +9,5 @@
   USE dimphy
   USE indice_sol_mod
-  USE print_control_mod, ONLY: lunout
+  USE print_control_mod, ONLY: lunout, prt_level
   IMPLICIT NONE
 ! ================================================================= c
@@ -139,5 +139,5 @@
      IF (qsurf(i).LT.0.0)  ng_qsurf = ng_qsurf + 1
   ENDDO
-  IF (ng_q1.GT.0) THEN
+  IF (ng_q1.GT.0 .and. prt_level > 5) THEN
       WRITE(lunout,*)" *** Warning: Negative q1(humidity at 1st level) values in cdrag.F90 !"
       WRITE(lunout,*)" The total number of the grids is: ", ng_q1
@@ -146,5 +146,5 @@
 !      CALL abort_physic(modname,abort_message,1)
   ENDIF
-  IF (ng_qsurf.GT.0) THEN
+  IF (ng_qsurf.GT.0 .and. prt_level > 5) THEN
       WRITE(lunout,*)" *** Warning: Negative qsurf(humidity at surface) values in cdrag.F90 !"
       WRITE(lunout,*)" The total number of the grids is: ", ng_qsurf
Index: /LMDZ5/trunk/libf/phylmd/stratosphere_mask.F90
===================================================================
--- /LMDZ5/trunk/libf/phylmd/stratosphere_mask.F90	(revision 2771)
+++ /LMDZ5/trunk/libf/phylmd/stratosphere_mask.F90	(revision 2772)
@@ -1,2 +1,5 @@
+!
+! $Id$
+!
 SUBROUTINE stratosphere_mask(t_seri, pplay, xlat)
 
@@ -31,4 +34,5 @@
 USE phys_local_var_mod, ONLY: p_tropopause
 #endif
+USE print_control_mod, ONLY: lunout, prt_level
 
 IMPLICIT NONE
@@ -98,6 +102,6 @@
 #endif
 
-IF (ifil.gt.0) THEN
-  print *,'Tropopause: number of undetermined values =', ifil
+IF (ifil.gt.0 .and. prl_level >5) THEN
+  write(lunout,*)'Tropopause: number of undetermined values =', ifil
 ENDIF