Changeset 803 for trunk


Ignore:
Timestamp:
Oct 5, 2012, 3:41:53 PM (12 years ago)
Author:
tnavarro
Message:

small bug for South pole

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r275 r803  
    428428    do i=1,lonlen
    429429      out_surf_field(i,1)=surf_field(1) ! North Pole
    430       out_surf_field(i,latlen)=surf_field(1) ! South Pole
     430      out_surf_field(i,latlen)=surf_field(physical_points) ! South Pole
    431431    enddo
    432432    do j=2,latlen-1
Note: See TracChangeset for help on using the changeset viewer.