Ignore:
Timestamp:
May 28, 2015, 10:36:35 AM (10 years ago)
Author:
aslmd
Message:

LMDZ.MARS -- commented redundant call to comgeomphy and corrected call to areas in moldiff_red

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/aeronomars/moldiff_red.F90

    r1358 r1431  
    33
    44use tracer_mod, only: noms, mmol
    5 use comgeomphy, only: airephy
     5use comgeomfi_h, only: area
     6
    67implicit none
    78
    … …  
    598599! the trend only at the end
    599600
    600         PhiEscH=PhiEscH+wi(i_h)*Nrafk(nlraf,i_h)*airephy(ig) ! in s-1
    601         PhiEscH2=PhiEscH2+wi(i_h2)*Nrafk(nlraf,i_h2)*airephy(ig) ! in s-1 (U in m/s, aire in m2, Nrafk in m-3)
    602 !       print*,'test',ig,wi(i_h),Nrafk(nlraf,i_h),wi(i_h2),Nrafk(nlraf,i_h2),airephy(ig),PhiEscH,PhiEscH2,i_h,i_h2
     601        PhiEscH=PhiEscH+wi(i_h)*Nrafk(nlraf,i_h)*area(ig) ! in s-1
     602        PhiEscH2=PhiEscH2+wi(i_h2)*Nrafk(nlraf,i_h2)*area(ig) ! in s-1 (U in m/s, aire in m2, Nrafk in m-3)
     603!       print*,'test',ig,wi(i_h),Nrafk(nlraf,i_h),wi(i_h2),Nrafk(nlraf,i_h2),area(ig),PhiEscH,PhiEscH2,i_h,i_h2
    603604!       stop
    604605
Note: See TracChangeset for help on using the changeset viewer.