Changeset 1428


Ignore:
Timestamp:
May 21, 2015, 8:05:26 AM (10 years ago)
Author:
emillour
Message:

All models:

  • Bug fix on the transfer of cu and cv values from the dynamics to the physics (introduced with code reorganization in revision 1403).

EM

Location:
trunk
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phytitan/iniphysiq.F90

    r1403 r1428  
    8585        latfi((j-2)*iim+1+i)= rlatu(j)
    8686        lonfi((j-2)*iim+1+i)= rlonv(i)
    87         cufi((j-2)*iim+1+i) = cu((j-1)*iim+1+i)
    88         cvfi((j-2)*iim+1+i) = cv((j-1)*iim+1+i)
     87        cufi((j-2)*iim+1+i) = cu((j-1)*(iim+1)+i)
     88        cvfi((j-2)*iim+1+i) = cv((j-1)*(iim+1)+i)
    8989      ENDDO
    9090    ENDDO
  • trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/phyvenus/iniphysiq.F90

    r1403 r1428  
    8585        latfi((j-2)*iim+1+i)= rlatu(j)
    8686        lonfi((j-2)*iim+1+i)= rlonv(i)
    87         cufi((j-2)*iim+1+i) = cu((j-1)*iim+1+i)
    88         cvfi((j-2)*iim+1+i) = cv((j-1)*iim+1+i)
     87        cufi((j-2)*iim+1+i) = cu((j-1)*(iim+1)+i)
     88        cvfi((j-2)*iim+1+i) = cv((j-1)*(iim+1)+i)
    8989      ENDDO
    9090    ENDDO
  • trunk/LMDZ.GENERIC/libf/dynlonlat_phylonlat/phystd/iniphysiq.F90

    r1422 r1428  
    8787    latfi((j-2)*ii+1+i)= rlatu(j)
    8888    lonfi((j-2)*ii+1+i)= rlonv(i)
    89     cufi((j-2)*ii+1+i) = cu((j-1)*ii+1+i)
    90     cvfi((j-2)*ii+1+i) = cv((j-1)*ii+1+i)
     89    cufi((j-2)*ii+1+i) = cu((j-1)*(ii+1)+i)
     90    cvfi((j-2)*ii+1+i) = cv((j-1)*(ii+1)+i)
    9191  ENDDO
    9292ENDDO
  • trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/iniphysiq.F90

    r1403 r1428  
    8484    latfi((j-2)*ii+1+i)= rlatu(j)
    8585    lonfi((j-2)*ii+1+i)= rlonv(i)
    86     cufi((j-2)*ii+1+i) = cu((j-1)*ii+1+i)
    87     cvfi((j-2)*ii+1+i) = cv((j-1)*ii+1+i)
     86    cufi((j-2)*ii+1+i) = cu((j-1)*(ii+1)+i)
     87    cvfi((j-2)*ii+1+i) = cv((j-1)*(ii+1)+i)
    8888  ENDDO
    8989ENDDO
Note: See TracChangeset for help on using the changeset viewer.