Changeset 2772 for LMDZ5/trunk/libf/phylmd

Timestamp:

Jan 24, 2017, 5:25:04 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Removing some prints when running in operationnal mode
LF

Location:

LMDZ5/trunk/libf/phylmd

Files:

• cdrag.F90 (modified) (4 diffs, 1 prop)
• stratosphere_mask.F90 (modified) (3 diffs, 1 prop)

LMDZ5/trunk/libf/phylmd/cdrag.F90

@@ -1 +1 @@
 !
-!$Id: cdrag.F90 ???? 2015-??-?? ??:??:??Z ? $
+!$Id$
 !
  SUBROUTINE cdrag( knon,  nsrf,   &
@@ -9 +9 @@
   USE dimphy
   USE indice_sol_mod
-  USE print_control_mod, ONLY: lunout
+  USE print_control_mod, ONLY: lunout, prt_level
   IMPLICIT NONE
 ! ================================================================= c
@@ -139 +139 @@
      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 +146 @@
 !      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

LMDZ5/trunk/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. prl_level >5) THEN
+  write(lunout,*)'Tropopause: number of undetermined values =', ifil
 ENDIF