Changeset 2657 in lmdz_wrf for trunk/tools/module_scientific.f90


Ignore:
Timestamp:
Jul 3, 2019, 1:34:05 AM (5 years ago)
Author:
lfita
Message:

Fixing calculation of laplacian

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/tools/module_scientific.f90

    r2654 r2657  
    76667666    DO i=2, dx-1
    76677667      DO j=2, dy-1
    7668         d1x = 0.5*(var(i+1,j)-0.5*var(i-1,j))/dsx(i,j)
    7669         d1y = 0.5*(var(i,j+1)-0.5*var(i,j-1))/dsy(i,j)
     7668        d1x = (0.5*var(i+1,j)-0.5*var(i-1,j))/dsx(i,j)
     7669        d1y = (0.5*var(i,j+1)-0.5*var(i,j-1))/dsy(i,j)
    76707670        grad(i,j,:) = (/ d1x, d1y /)
    76717671      END DO
    … …  
    78197819! lap: laplacian
    78207820
    7821     fname = 'curl2D_1o'
     7821    fname = 'lap2D_1o'
    78227822
    78237823    lap = fillval64
    … …  
    78537853! lap: laplacian
    78547854
    7855     fname = 'curl2D_c1o'
     7855    fname = 'lap2D_c1o'
    78567856
    78577857    lap = fillval64
Note: See TracChangeset for help on using the changeset viewer.