- Timestamp:
- Oct 19, 2023, 4:02:57 PM (8 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmdiso/isotrac_routines_mod.F90
r4482 r4727 508 508 ! write(*,*) 'compress 910: xtp_avantevap(iso_eau,cas(1))=', 509 509 ! : xtp_avantevap(iso_eau,cas(1)) 510 ! write(*,*) 'compress_evap_liq_zone 510: ncas,ncum=',ncas,ncum 511 ptrac(:)=0. ! CR 31 mars 2023: initialisation de ptrac 510 512 511 513 ieau=index_trac(izone,iso_eau) … … 519 521 else 520 522 #ifdef ISOVERIF 521 523 call iso_verif_egalite(( & 522 524 & Eqi_prime(cas(il))),0.0, & 523 525 & 'compress_stewart 979') … … 685 687 call iso_verif_egalite(( & 686 688 & Eqi_prime(cas(il))),0.0, & 687 & 'compress_stewart 979 ')689 & 'compress_stewart 979b') 688 690 #endif 689 691 Eqi_prime_cas(il)=0.0 … … 870 872 enddo ! do iiso=1,niso 871 873 endif !if ((Eqi(il)*fac_ftmr(il).gt.evap_franche).and. 872 #ifdef ISOVERIF873 if (il.eq.9) then874 ixt=index_trac(2,2)875 write(*,*) 'il,ixt,xtrevap_tag(ixt,il)=', &876 & il,xtrevap_tag(ixt,il)877 endif !if (il.eq.9) then878 #endif879 874 enddo !do il=1,ncas 880 875 ! write(*,*) 'compress_stewart 1453 tmp: zxt=', … … 2791 2786 real xtractot 2792 2787 2793 write(*,*) 'iso_verif_traceur tmp 822: xt(:,66,1)=',x(:,66,1)2794 2788 ! verif noNaN 2795 2789 call iso_verif_traceur_noNaN_vect(x,n,m,err_msg)
Note: See TracChangeset
for help on using the changeset viewer.