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

Diff of /trunk/dyn3d/laplacien_gam.f90

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

revision 343 by guez, Thu Jun 13 14:40:06 2019 UTC revision 344 by guez, Tue Nov 12 15:18:14 2019 UTC
# Line 37  contains Line 37  contains
37      REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)      REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
38      ! ......................................................      ! ......................................................
39    
40      CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1)      divgra = teta
41      CALL grad(klevel, divgra, ghx, ghy)      CALL grad(klevel, divgra, ghx, ghy)
42      CALL diverg_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, unsapolsga, &      CALL diverg_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, unsapolsga, &
43           ghx, ghy, divgra)           ghx, ghy, divgra)
Legend:
Removed from v.343  
changed lines
  Added in v.344
  ViewVC Help
Powered by ViewVC 1.1.21