Changeset 400 for LMDZ.3.3


Ignore:
Timestamp:
Jul 23, 2002, 11:23:15 AM (22 years ago)
Author:
lmdzadmin
Message:

Probleme d'indice ne portant pas a consequence
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F

    r393 r400  
    533533c$$$ pb         rugmer(i) = yrugm(j)
    534534         IF (nsrf .EQ. is_oce) then
    535                rugmer(i) = yrugm(j)
    536                rugos(i,nsrf) = yrugm(i)
    537           endif
     535           rugmer(i) = yrugm(j)
     536           rugos(i,nsrf) = yrugm(j)
     537         endif 
    538538         cdragh(i) = cdragh(i) + ycoefh(j,1)
    539539         cdragm(i) = cdragm(i) + ycoefm(j,1)
Note: See TracChangeset for help on using the changeset viewer.