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

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

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

revision 14 by guez, Fri Jul 25 19:59:34 2008 UTC revision 15 by guez, Fri Aug 1 15:24:12 2008 UTC
# Line 59  contains Line 59  contains
59      REAL, intent(out):: zpic(:, :) ! Maximum altitude      REAL, intent(out):: zpic(:, :) ! Maximum altitude
60      real, intent(out):: zval(:, :) ! Minimum altitude      real, intent(out):: zval(:, :) ! Minimum altitude
61    
62      real, intent(out):: mask(:, :)      real, intent(out):: mask(:, :) ! fraction of land
63    
64      ! Variables local to the procedure:      ! Variables local to the procedure:
65    
# Line 141  contains Line 141  contains
141         zusn(i, jusn+2)=zusn(i+iusn/2, jusn+1)         zusn(i, jusn+2)=zusn(i+iusn/2, jusn+1)
142         zusn(i+iusn/2+iext, jusn+2)=zusn(i, jusn+1)         zusn(i+iusn/2+iext, jusn+2)=zusn(i, jusn+1)
143      ENDDO      ENDDO
144      !    
145      ! COMPUTE LIMITS OF MODEL GRIDPOINT AREA      ! COMPUTE LIMITS OF MODEL GRIDPOINT AREA
146      !     ( REGULAR GRID)      !     ( REGULAR GRID)
147    
# Line 190  contains Line 190  contains
190      ENDDO      ENDDO
191    
192      !  SUMMATION OVER GRIDPOINT AREA      !  SUMMATION OVER GRIDPOINT AREA
193      !  
194      zleny=pi/real(jusn)*rad      zleny=pi/real(jusn)*rad
195      xincr=pi/2./real(jusn)      xincr=pi/2./real(jusn)
196      DO ii = 1, iim+1      DO ii = 1, iim+1
# Line 324  contains Line 324  contains
324            zllmval=AMAX1(zval(ii, jj), zllmval)            zllmval=AMAX1(zval(ii, jj), zllmval)
325         ENDDO         ENDDO
326      ENDDO      ENDDO
327      print *, '  MEAN ORO:', zllmmea      print *, 'MEAN ORO: ', zllmmea
328      print *, '  ST. DEV.:', zllmstd      print *, 'ST. DEV.: ', zllmstd
329      print *, '  PENTE:', zllmsig      print *, 'PENTE: ', zllmsig
330      print *, ' ANISOTROP:', zllmgam      print *, 'ANISOTROP: ', zllmgam
331      print *, '  ANGLE:', zminthe, zllmthe      print *, 'ANGLE: ', zminthe, zllmthe
332      print *, '  pic:', zllmpic      print *, 'pic: ', zllmpic
333      print *, '  val:', zllmval      print *, 'val: ', zllmval
334    
335      ! gamma and theta a 1. and 0. at poles      ! gamma and theta a 1. and 0. at poles
336      zmea(iim+1, :)=zmea(1, :)      zmea(iim+1, :)=zmea(1, :)
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.21