Changeset 140


Ignore:
Timestamp:
02/18/13 15:40:50 (11 years ago)
Author:
dubos
Message:

caldyn_adv is back

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/advect.f90

    r138 r140  
    269269      REAL(rstd),INTENT(IN):: a1(3), a2(3) 
    270270      sum2 = a1(1)*a2(1)+a1(2)*a2(2)+a1(3)*a2(3) 
    271       !      sum2 = 0. ! Godunov scheme 
     271      sum2 = 0. ! Godunov scheme 
    272272    END FUNCTION sum2 
    273273 
Note: See TracChangeset for help on using the changeset viewer.