Ignore:
Timestamp:
08/07/12 19:10:05 (12 years ago)
Author:
ymipsl
Message:

Correction for dcmip moist physics
Temperature is ouput instead of virtual temperature.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r109 r110  
    114114     
    115115    CALL guided(it*dt,f_ps,f_theta_rhodz,f_u,f_q) 
    116     CALL caldyn(it,f_phis,f_ps,f_theta_rhodz,f_u, f_dps, f_dtheta_rhodz, f_du) 
     116    CALL caldyn(it,f_phis,f_ps,f_theta_rhodz,f_u, f_q, f_dps, f_dtheta_rhodz, f_du) 
    117117    CALL advect_tracer(f_ps,f_u,f_q) 
    118     CALL physics(it,f_phis, f_ps, f_theta_rhodz, f_u, f_q) 
    119118     
    120119    SELECT CASE (TRIM(scheme)) 
    … …  
    138137         
    139138    END SELECT 
     139 
     140    CALL physics(it,f_phis, f_ps, f_theta_rhodz, f_u, f_q) 
    140141     
    141142 ENDDO 
Note: See TracChangeset for help on using the changeset viewer.