/[lmdze]/trunk/dyn3d/integrd.f90
ViewVC logotype

Diff of /trunk/dyn3d/integrd.f90

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

revision 347 by guez, Fri Dec 20 16:30:51 2019 UTC revision 348 by guez, Mon Dec 23 14:32:59 2019 UTC
# Line 9  contains Line 9  contains
9    
10      ! From dyn3d/integrd.F, version 1.1.1.1, 2004/05/19 12:53:05      ! From dyn3d/integrd.F, version 1.1.1.1, 2004/05/19 12:53:05
11      ! Author: P. Le Van      ! Author: P. Le Van
12      ! Objet: incrémentation des tendances dynamiques      ! Objet : incrémentation des tendances dynamiques
13    
14      ! Libraries:      ! Libraries:
15      use nr_util, only: assert          use nr_util, only: assert    
# Line 107  contains Line 107  contains
107              * teta(:iim, jjm + 1, l)) / apols              * teta(:iim, jjm + 1, l)) / apols
108    
109         IF (leapf) THEN         IF (leapf) THEN
110            ucovm1(:, l)  =uscr            ucovm1(:, l) = uscr
111            vcovm1(:, l) = vscr            vcovm1(:, l) = vscr
112            tetam1(:, :, l) = hscr            tetam1(:, :, l) = hscr
113         END IF         END IF
Legend:
Removed from v.347  
changed lines
  Added in v.348
  ViewVC Help
Powered by ViewVC 1.1.21