Changeset 971


Ignore:
Timestamp:
09/17/19 17:47:51 (5 years ago)
Author:
dubos
Message:

devel : fix bug introduced in dissip_gcm by r845

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dissip/dissip_gcm.f90

    r950 r971  
    165165             du=f_du(ind) 
    166166             CALL compute_gradiv(u,du,1,1) 
     167             u=du 
    167168          ENDDO 
    168169       ENDDO 
    … …  
    223224             dtheta=f_dtheta(ind) 
    224225             CALL compute_divgrad(theta,dtheta,1,1) 
     226             theta=dtheta 
    225227          ENDDO 
    226228       ENDDO        
Note: See TracChangeset for help on using the changeset viewer.