Changeset 3411 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/tracreprobus_mod.F90

Timestamp:

Nov 5, 2018, 3:24:59 PM (6 years ago)

Author:

Laurent Fairhead

Message:

Undoing merge with trunk (r3356) to properly register Yann's latest modifications

Location:

LMDZ6/branches/DYNAMICO-conv

Files:

• . (modified) (1 prop)
• libf/phylmd/tracreprobus_mod.F90 (modified) (2 diffs)

LMDZ6/branches/DYNAMICO-conv/libf/phylmd/tracreprobus_mod.F90

@@ -72 +72 @@
           WRITE(*,*)it,'nqtot',nqtot,'nbtr',nbtr
           IF (it < nqtot) THEN
-             WRITE(*,*)'iciav',it,nqtot
+             WRITE(*,*)'ici',it,nqtot
 #ifdef REPROBUS
-             CALL minmaxqfi_chimie(it,tr_seri(1,1,it),0.,1.e10,'avant chimie ')
+             CALL minmaxqfi_chimie(tr_seri(1,1,it),0.,1.e10,'avant chimie ')
 #endif
-             WRITE(*,*)iter,'avpres'
+             WRITE(*,*)'apres'
           ENDIF
        ENDDO
@@ -94 +94 @@
        ! pdel, pdt_rep, daynum : definit dans phytrac et utilise dans chemmain
        !                 et transporte par CHEM_REP
-
-       DO it=1, nbtr
-!     WRITE(lunout,*)it,' ',minval(tr_seri(:,:,it)),maxval(tr_seri(:,:,it))
-! seulement pour les especes chimiques (pas l'age de l'air)
-! verif valeurs extremes
-! correction: a 1.e-30 quand =0 ou negatif et
-! call abort si >ou= 1.e10
-          WRITE(*,*)it,'nqtot',nqtot,'nbtr',nbtr
-          IF (it < nqtot) THEN
-             WRITE(*,*)'iciap',it,nqtot
-             CALL minmaxqfi_chimie(it,tr_seri(1,1,it),0.,1.e10,'apres chemmain')
-             WRITE(*,*)iter,'appres'
-          ENDIF
-       ENDDO
-
 #endif