Ignore:
Timestamp:
10/18/17 18:46:11 (7 years ago)
Author:
dubos
Message:

devel : diagnose energy fluxes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/transport/advect.F90

    r590 r594  
    444444#include "../kernels/advect_horiz.k90" 
    445445    CALL trace_end("compute_advect_horiz") 
    446   CONTAINS 
    447  
    448     !==================================================================================== 
    449     PURE REAL(rstd) FUNCTION sum2(a1,a2) 
    450       IMPLICIT NONE 
    451       REAL(rstd),INTENT(IN):: a1(3), a2(3) 
    452       sum2 = a1(1)*a2(1)+a1(2)*a2(2)+a1(3)*a2(3) 
    453       ! sum2 = 0. ! Godunov scheme 
    454     END FUNCTION sum2 
    455  
    456446  END SUBROUTINE compute_advect_horiz 
    457447 
Note: See TracChangeset for help on using the changeset viewer.