Ignore:
Timestamp:
06/13/19 16:45:39 (5 years ago)
Author:
adurocher
Message:

trunk : compute_advect_horiz: Fix dimension of qfluxt.

This fixes issue #8 for this subroutine.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r599 r894  
    435435    REAL(rstd), INTENT(INOUT) :: mass(iim*jjm,llm) 
    436436    REAL(rstd), INTENT(INOUT) :: qi(iim*jjm,llm) 
    437     REAL(rstd), INTENT(INOUT) :: qfluxt(3*iim*jjm,llm) ! time-integrated tracer flux 
     437    REAL(rstd), INTENT(INOUT) :: qfluxt(3*iim*jjm,MERGE(llm,1,diagflux_on)) ! time-integrated tracer flux 
    438438 
    439439    REAL(rstd) :: dq,dmass,qe,ed(3), newmass 
Note: See TracChangeset for help on using the changeset viewer.