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

trunk : Check tracer mass conservation in check_conserve

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r899 r902  
    228228    END IF 
    229229 
    230     CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,itau0)   
     230    CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,f_q,itau0)   
    231231 
    232232    Call trace_on 
    … …  
    362362          CALL check_conserve_detailed(it, AAM_dyn, & 
    363363               f_ps,f_dps,f_u,f_theta_rhodz,f_phis) 
    364           CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,it)  
     364          CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,f_q,it)  
    365365       ENDIF 
    366366 
    … …  
    379379    CALL check_conserve_detailed(it, AAM_dyn, & 
    380380         f_ps,f_dps,f_u,f_theta_rhodz,f_phis) 
    381     CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,it)   
     381    CALL check_conserve(f_ps,f_dps,f_u,f_theta_rhodz,f_phis,f_q,it)   
    382382     
    383383    !$OMP MASTER 
Note: See TracChangeset for help on using the changeset viewer.