/[lmdze]/trunk/Sources/dyn3d/PPM3d/ppm3d.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/PPM3d/ppm3d.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 175 by guez, Mon Sep 14 17:13:16 2015 UTC revision 176 by guez, Tue Feb 23 17:00:39 2016 UTC
# Line 349  contains Line 349  contains
349      END DO      END DO
350    
351      DO k = 1, nlay      DO k = 1, nlay
   
352         IF (igd==0) THEN         IF (igd==0) THEN
353            ! Convert winds on A-Grid to Courant number on C-Grid.            ! Convert winds on A-Grid to Courant number on C-Grid.
354            CALL a2c(u(1,1,k), v(1,1,k), imr, jmr, j1, j2, crx, cry, dtdx5, dtdy5)            CALL a2c(u(1,1,k), v(1,1,k), imr, jmr, j1, j2, crx, cry, dtdx5, dtdy5)
Legend:
Removed from v.175  
changed lines
  Added in v.176
  ViewVC Help
Powered by ViewVC 1.1.21