Changeset 1428 for trunk/LMDZ.COMMON


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/LMDZ.COMMON/libf/dynlonlat_phylonlat
Files:
2 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
Note: See TracChangeset for help on using the changeset viewer.