Changeset 400 for LMDZ.3.3/branches/rel-LF

Timestamp:

Jul 23, 2002, 11:23:15 AM (22 years ago)

Author:

lmdzadmin

Message:

Probleme d'indice ne portant pas a consequence
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F (modified) (1 diff)

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

@@ -533 +533 @@
 c$$$ pb         rugmer(i) = yrugm(j)
          IF (nsrf .EQ. is_oce) then 
-               rugmer(i) = yrugm(j)
-               rugos(i,nsrf) = yrugm(i)
-          endif 
+           rugmer(i) = yrugm(j)
+           rugos(i,nsrf) = yrugm(j)
+         endif  
          cdragh(i) = cdragh(i) + ycoefh(j,1)
          cdragm(i) = cdragm(i) + ycoefm(j,1)