Changeset 2372 for LMDZ5/trunk/libf/dyn3d_common/infotrac.F90
- Timestamp:
- Oct 13, 2015, 2:41:47 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d_common/infotrac.F90
r2362 r2372 201 201 END IF 202 202 ! nbtr has been read from INCA by init_const_lmdz() in gcm.F 203 #ifdef INCA 204 CALL Init_chem_inca_trac(nbtr) 205 #endif 203 206 nqtrue=nbtr+nqo 204 !! nqtrue=nbtr+2205 207 END IF ! type_trac 206 208 !>jyg … … 678 680 679 681 do iq=nqo+1,nqtot 680 write(lunout,*) 'infotrac 569: iq,tnom_0(iq)=',iq,tnom_0(iq)682 ! write(lunout,*) 'infotrac 569: iq,tnom_0(iq)=',iq,tnom_0(iq) 681 683 do phase=1,nqo 682 684 do ixt= 1,niso_possibles 683 685 tnom_trac=trim(tnom_0(phase))//'_' 684 686 tnom_trac=trim(tnom_trac)//trim(tnom_iso(ixt)) 685 write(*,*) 'phase,ixt,tnom_trac=',phase,ixt,tnom_trac687 ! write(*,*) 'phase,ixt,tnom_trac=',phase,ixt,tnom_trac 686 688 IF (tnom_0(iq) == tnom_trac) then 687 write(lunout,*) 'Ce traceur est un isotope'689 ! write(lunout,*) 'Ce traceur est un isotope' 688 690 nb_iso(ixt,phase)=nb_iso(ixt,phase)+1 689 691 nb_isoind(phase)=nb_isoind(phase)+1 … … 692 694 indnum_fn_num(ixt)=iso_indnum(iq) 693 695 phase_num(iq)=phase 694 write(lunout,*) 'iso_num(iq)=',iso_num(iq)695 write(lunout,*) 'iso_indnum(iq)=',iso_indnum(iq)696 write(lunout,*) 'indnum_fn_num(ixt)=',indnum_fn_num(ixt)697 write(lunout,*) 'phase_num(iq)=',phase_num(iq)696 ! write(lunout,*) 'iso_num(iq)=',iso_num(iq) 697 ! write(lunout,*) 'iso_indnum(iq)=',iso_indnum(iq) 698 ! write(lunout,*) 'indnum_fn_num(ixt)=',indnum_fn_num(ixt) 699 ! write(lunout,*) 'phase_num(iq)=',phase_num(iq) 698 700 goto 20 699 701 else if (iqpere(iq).gt.0) then 700 702 if (tnom_0(iqpere(iq)) == tnom_trac) then 701 write(lunout,*) 'Ce traceur est le fils d''un isotope'703 ! write(lunout,*) 'Ce traceur est le fils d''un isotope' 702 704 ! c'est un traceur d'isotope 703 705 nb_traciso(ixt,phase)=nb_traciso(ixt,phase)+1 … … 706 708 zone_num(iq)=nb_traciso(ixt,phase) 707 709 phase_num(iq)=phase 708 write(lunout,*) 'iso_num(iq)=',iso_num(iq)709 write(lunout,*) 'phase_num(iq)=',phase_num(iq)710 write(lunout,*) 'zone_num(iq)=',zone_num(iq)710 ! write(lunout,*) 'iso_num(iq)=',iso_num(iq) 711 ! write(lunout,*) 'phase_num(iq)=',phase_num(iq) 712 ! write(lunout,*) 'zone_num(iq)=',zone_num(iq) 711 713 goto 20 712 714 endif !if (tnom_0(iqpere(iq)) == trim(tnom_0(phase))//trim(tnom_iso(ixt))) then … … 717 719 enddo !do iq=1,nqtot 718 720 719 write(lunout,*) 'iso_num=',iso_num720 write(lunout,*) 'iso_indnum=',iso_indnum721 write(lunout,*) 'zone_num=',zone_num722 write(lunout,*) 'phase_num=',phase_num723 write(lunout,*) 'indnum_fn_num=',indnum_fn_num721 ! write(lunout,*) 'iso_num=',iso_num 722 ! write(lunout,*) 'iso_indnum=',iso_indnum 723 ! write(lunout,*) 'zone_num=',zone_num 724 ! write(lunout,*) 'phase_num=',phase_num 725 ! write(lunout,*) 'indnum_fn_num=',indnum_fn_num 724 726 725 727 do ixt= 1,niso_possibles … … 730 732 do phase=2,nqo 731 733 if (nb_iso(ixt,phase).ne.nb_iso(ixt,1)) then 732 write(lunout,*) 'ixt,phase,nb_iso=',ixt,phase,nb_iso(ixt,phase)734 ! write(lunout,*) 'ixt,phase,nb_iso=',ixt,phase,nb_iso(ixt,phase) 733 735 CALL abort_gcm('infotrac_init','Phases must have same number of isotopes',1) 734 736 endif … … 769 771 ! dimensions isotopique: 770 772 ntraciso=niso*(ntraceurs_zone+1) 771 WRITE(lunout,*) 'niso=',niso772 WRITE(lunout,*) 'ntraceurs_zone,ntraciso=',ntraceurs_zone,ntraciso773 ! WRITE(lunout,*) 'niso=',niso 774 ! WRITE(lunout,*) 'ntraceurs_zone,ntraciso=',ntraceurs_zone,ntraciso 773 775 774 776 ! flags isotopiques: … … 778 780 ok_isotopes=.false. 779 781 endif 780 WRITE(lunout,*) 'ok_isotopes=',ok_isotopes782 ! WRITE(lunout,*) 'ok_isotopes=',ok_isotopes 781 783 782 784 if (ok_isotopes) then … … 788 790 alpha_ideal=(/1.0,1.01,1.006,1.003,1.0/) 789 791 endif !if (ok_isotopes) then 790 WRITE(lunout,*) 'ok_iso_verif=',ok_iso_verif791 WRITE(lunout,*) 'ok_init_iso=',ok_init_iso792 ! WRITE(lunout,*) 'ok_iso_verif=',ok_iso_verif 793 ! WRITE(lunout,*) 'ok_init_iso=',ok_init_iso 792 794 793 795 if (ntraceurs_zone.gt.0) then … … 796 798 ok_isotrac=.false. 797 799 endif 798 WRITE(lunout,*) 'ok_isotrac=',ok_isotrac800 ! WRITE(lunout,*) 'ok_isotrac=',ok_isotrac 799 801 800 802 ! remplissage du tableau iqiso(ntraciso,phase) … … 807 809 endif 808 810 enddo 809 WRITE(lunout,*) 'iqiso=',iqiso811 ! WRITE(lunout,*) 'iqiso=',iqiso 810 812 811 813 ! replissage du tableau index_trac(ntraceurs_zone,niso) … … 820 822 index_trac(:,:)=0.0 821 823 endif !if (ok_isotrac) then 822 write(lunout,*) 'index_trac=',index_trac824 ! write(lunout,*) 'index_trac=',index_trac 823 825 824 826 ! Finalize :
Note: See TracChangeset
for help on using the changeset viewer.