/[lmdze]/trunk/libf/dyn3d/inigeom.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/inigeom.f90

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

revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC revision 24 by guez, Wed Mar 3 13:23:49 2010 UTC
# Line 533  SUBROUTINE inigeom Line 533  SUBROUTINE inigeom
533    
534    DO j = 1, jjm    DO j = 1, jjm
535       DO i = 1, iim       DO i = 1, iim
536          cv_2d(i,j) = 0.5*(cvij2(i,j)+cvij3(i,j)+cvij1(i,j+1)+cvij4(i,j+1))          cv_2d(i,j) = 0.5 * &
537                 (cvij2(i,j) + cvij3(i,j) + cvij1(i,j+1) + cvij4(i,j+1))
538          cvu(i,j) = 0.5*(cvij1(i,j)+cvij4(i,j)+cvij2(i,j)+cvij3(i,j))          cvu(i,j) = 0.5*(cvij1(i,j)+cvij4(i,j)+cvij2(i,j)+cvij3(i,j))
539          cuv(i,j) = 0.5*(cuij2(i,j)+cuij3(i,j)+cuij1(i,j+1)+cuij4(i,j+1))          cuv(i,j) = 0.5*(cuij2(i,j)+cuij3(i,j)+cuij1(i,j+1)+cuij4(i,j+1))
540          unscv2_2d(i,j) = 1./(cv_2d(i,j)*cv_2d(i,j))          unscv2_2d(i,j) = 1./(cv_2d(i,j)*cv_2d(i,j))
Legend:
Removed from v.22  
changed lines
  Added in v.24
  ViewVC Help
Powered by ViewVC 1.1.21