/[lmdze]/trunk/libf/dyn3d/laplacien_gam.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/laplacien_gam.f

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

revision 26 by guez, Wed Feb 27 13:16:39 2008 UTC revision 27 by guez, Thu Mar 25 14:29:07 2010 UTC
# Line 32  c Line 32  c
32        REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)        REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
33  c    ......................................................  c    ......................................................
34    
 c  
 c  
 c   ...  cvuscugam  = ( cvu/ cu ) ** (- gamdissip )  
 c   ...  cuvscvgam  = ( cuv/ cv ) ** (- gamdissip )  calcules dans inigeom  ..  
 c   ...  unsairegam =  1. /  aire ** (- gamdissip )  
 c  
   
35        CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )        CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )
36  c  c
37        CALL   grad ( klevel, divgra, ghx, ghy )        CALL   grad ( klevel, divgra, ghx, ghy )
Legend:
Removed from v.26  
changed lines
  Added in v.27
  ViewVC Help
Powered by ViewVC 1.1.21