Changeset 4795 for LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd/minmaxqfi.F90

Timestamp:

Feb 1, 2024, 4:53:24 PM (5 months ago)

Author:

nfevrier

Message:

First save of N. Février's modifications

File:

• LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd/minmaxqfi.F90 (modified) (4 diffs)

LMDZ6/branches/LMDZ_DECOUPLE/libf/phylmd/minmaxqfi.F90

@@ -2 +2 @@
 ! $Id$
 !
-SUBROUTINE minmaxqfi(zq,qmin,qmax,comment)
+SUBROUTINE minmaxqfi(zq,qmin,qmax,comment,it)
   USE dimphy
   USE print_control_mod, ONLY: prt_level
+  USE infotrac_phy, ONLY: nbtr, type_trac, conv_flg, solsym
   IMPLICIT NONE
 
@@ -11 +12 @@
   REAL,INTENT(IN)                         :: qmin,qmax
   CHARACTER(LEN=*),INTENT(IN)             :: comment
+  INTEGER,INTENT(IN)                      :: it
 
 ! Local  
@@ -24 +26 @@
         ENDIF
      ENDDO
-     IF (jbad.GT.0) THEN
+     IF ((jbad.GT.0) .AND. ((TRIM(solsym(it))=='AIBCM') .OR. (TRIM(solsym(it))=='ASBCM'))) THEN ! Nicolas Février : alerte seulement si le BC est concerné
         WRITE(*,*)comment, "k = ", k, "jbad > 0"
-        if (prt_level >= 1) then
+        if (prt_level >= 1) then ! Nicolas Février on print tout
            DO i = 1, jbad
               WRITE(*,*) "i,q=", jadrs(i), zq(jadrs(i),k)
@@ -33 +35 @@
      ENDIF
   ENDDO
-  
+
 END SUBROUTINE minmaxqfi