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

devel : compute horizontal fluxes of ulon and theta

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/time/timeloop_gcm.f90

    r595 r601  
    309309          ! At this point advect_tracer has obtained the halos of u and rhodz, 
    310310          ! needed for correct computation of kinetic energy 
    311           IF(diagflux_on) CALL diagflux_energy(adv_over_out, f_phis,f_rhodz,f_theta_rhodz,f_u, f_geopot,f_theta, f_hfluxt) 
     311          IF(diagflux_on) CALL diagflux_energy(adv_over_out, f_phis,f_rhodz,f_theta_rhodz,f_u, f_geopot,f_theta,f_buf_i, f_hfluxt) 
    312312 
    313313          IF (check_rhodz) THEN ! check that rhodz is consistent with ps 
Note: See TracChangeset for help on using the changeset viewer.