Changeset 2396 for LMDZ5/trunk


Ignore:
Timestamp:
Nov 18, 2015, 3:12:46 PM (9 years ago)
Author:
Laurent Fairhead
Message:

Modifications from 2274 that were somehow lost
LF

Location:
LMDZ5/trunk/libf/dynlonlat_phylonlat
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dynlonlat_phylonlat/phydev/iniphysiq_mod.F90

    r2395 r2396  
    146146        latfi_glo(k)= rlatu(j)
    147147        lonfi_glo(k)= rlonv(i)
    148         cufi_glo(k) = cu((j-1)*iim+1+i)
    149         cvfi_glo(k) = cv((j-1)*iim+1+i)
     148        cufi_glo(k) = cu((j-1)*(iim+1)+i)
     149        cvfi_glo(k) = cv((j-1)*(iim+1)+i)
    150150        boundslonfi_glo(k,north_east)=rlonu(i)
    151151        boundslatfi_glo(k,north_east)=rlatv(j-1)
  • LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/iniphysiq_mod.F90

    r2372 r2396  
    175175        latfi_glo(k)= rlatu(j)
    176176        lonfi_glo(k)= rlonv(i)
    177         cufi_glo(k) = cu((j-1)*ii+1+i)
    178         cvfi_glo(k) = cv((j-1)*ii+1+i)
     177        cufi_glo(k) = cu((j-1)*(ii+1)+i)
     178        cvfi_glo(k) = cv((j-1)*(ii+1)+i)
    179179        boundslonfi_glo(k,north_east)=rlonu(i)
    180180        boundslatfi_glo(k,north_east)=rlatv(j-1)
  • LMDZ5/trunk/libf/dynlonlat_phylonlat/phymar/iniphysiq_mod.F90

    r2383 r2396  
    146146        latfi_glo((j-2)*ii+1+i)= rlatu(j)
    147147        lonfi_glo((j-2)*ii+1+i)= rlonv(i)
    148         cufi_glo((j-2)*ii+1+i) = cu((j-1)*ii+1+i)
    149         cvfi_glo((j-2)*ii+1+i) = cv((j-1)*ii+1+i)
     148        cufi_glo((j-2)*ii+1+i) = cu((j-1)*(ii+1)+i)
     149        cvfi_glo((j-2)*ii+1+i) = cv((j-1)*(ii+1)+i)
    150150        boundslonfi_glo(k,north_east)=rlonu(i)
    151151        boundslatfi_glo(k,north_east)=rlatv(j-1)
Note: See TracChangeset for help on using the changeset viewer.