Changeset 2787 for LMDZ5/branches/testing/libf/phylmd/stratosphere_mask.F90

Timestamp:

Jan 30, 2017, 5:54:45 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2727:2785 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/stratosphere_mask.F90 (modified) (3 diffs, 1 prop)

LMDZ5/branches/testing/libf/phylmd/stratosphere_mask.F90

@@ +1 @@
+!
+! $Id$
+!
 SUBROUTINE stratosphere_mask(t_seri, pplay, xlat)
 
@@ -31 +34 @@
 USE phys_local_var_mod, ONLY: p_tropopause
 #endif
+USE print_control_mod, ONLY: lunout, prt_level
 
 IMPLICIT NONE
@@ -98 +102 @@
 #endif
 
-IF (ifil.gt.0) THEN
-  print *,'Tropopause: number of undetermined values =', ifil
+IF (ifil.gt.0 .and. prt_level >5) THEN
+  write(lunout,*)'Tropopause: number of undetermined values =', ifil
 ENDIF