Ignore:
Timestamp:
Jun 6, 2012, 10:56:42 AM (12 years ago)
Author:
emillour
Message:

Mars GCM:

  • Minor cleanup in surfini.F
  • Corrected the polar mesh surface area which was wrong in the physics (changes in phyetat0.F, calfis.F and newstart.F)

EM

Location:
trunk/LMDZ.MARS/libf/dyn3d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/dyn3d/calfis.F

    r38 r697  
    178178         latfi(ngridmx)= rlatu(jjp1)
    179179         lonfi(ngridmx)= 0.
     180         
     181         ! build airefi(), mesh area on physics grid
    180182         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,aire,airefi)
     183         ! Poles are single points on physics grid
     184         airefi(1)=airefi(1)*iim
     185         airefi(ngridmx)=airefi(ngridmx)*iim
    181186
    182187         CALL inifis(ngridmx,llm,day_ini,daysec,dtphys,

  • trunk/LMDZ.MARS/libf/dyn3d/newstart.F

    r664 r697  
    347347      latfi(ngridmx)=rlatu(jjp1)
    348348      lonfi(ngridmx)=0.
     349     
     350      ! build airefi(), mesh area on physics grid
    349351      CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,aire,airefi)
     352      ! Poles are single points on physics grid
     353      airefi(1)=airefi(1)*iim
     354      airefi(ngridmx)=airefi(ngridmx)*iim
    350355
    351356! also initialize various physics flags/settings which might be needed
Note: See TracChangeset for help on using the changeset viewer.