Ignore:
Timestamp:
Sep 15, 2015, 3:01:39 PM (9 years ago)
Author:
tblmd
Message:

TB: bug fixed in expandstartfi at south pole for subsurface variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/util/expandstartfi.F90

    r999 r1469  
    552552    do i=1,lonlen
    553553      out_subsurf_field(i,1,:)=subsurf_field(1,:) ! North Pole
    554       out_subsurf_field(i,latlen,:)=subsurf_field(1,:) ! South Pole
     554      out_subsurf_field(i,latlen,:)=subsurf_field(physical_points,:) ! South Pole
    555555    enddo
    556556    do j=2,latlen-1
Note: See TracChangeset for help on using the changeset viewer.