- Timestamp:
- Nov 5, 2018, 3:24:59 PM (6 years ago)
- Location:
- LMDZ6/branches/DYNAMICO-conv
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/DYNAMICO-conv
- Property svn:mergeinfo changed
/LMDZ6/trunk removed
- Property svn:mergeinfo changed
-
LMDZ6/branches/DYNAMICO-conv/libf/phylmd/tracreprobus_mod.F90
r3356 r3411 72 72 WRITE(*,*)it,'nqtot',nqtot,'nbtr',nbtr 73 73 IF (it < nqtot) THEN 74 WRITE(*,*)'ici av',it,nqtot74 WRITE(*,*)'ici',it,nqtot 75 75 #ifdef REPROBUS 76 CALL minmaxqfi_chimie( it,tr_seri(1,1,it),0.,1.e10,'avant chimie ')76 CALL minmaxqfi_chimie(tr_seri(1,1,it),0.,1.e10,'avant chimie ') 77 77 #endif 78 WRITE(*,*) iter,'avpres'78 WRITE(*,*)'apres' 79 79 ENDIF 80 80 ENDDO … … 94 94 ! pdel, pdt_rep, daynum : definit dans phytrac et utilise dans chemmain 95 95 ! et transporte par CHEM_REP 96 97 DO it=1, nbtr98 ! WRITE(lunout,*)it,' ',minval(tr_seri(:,:,it)),maxval(tr_seri(:,:,it))99 ! seulement pour les especes chimiques (pas l'age de l'air)100 ! verif valeurs extremes101 ! correction: a 1.e-30 quand =0 ou negatif et102 ! call abort si >ou= 1.e10103 WRITE(*,*)it,'nqtot',nqtot,'nbtr',nbtr104 IF (it < nqtot) THEN105 WRITE(*,*)'iciap',it,nqtot106 CALL minmaxqfi_chimie(it,tr_seri(1,1,it),0.,1.e10,'apres chemmain')107 WRITE(*,*)iter,'appres'108 ENDIF109 ENDDO110 111 96 #endif 112 97
Note: See TracChangeset
for help on using the changeset viewer.