Changeset 523 for codes/icosagcm/trunk/src/timeloop_gcm.f90

Timestamp:

01/19/17 01:58:59 (7 years ago)

Author:

dubos

Message:

Fixed Rayleigh friction (DCMIP 2.1)

File:

• codes/icosagcm/trunk/src/timeloop_gcm.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -284 +284 @@
                f_ps,f_dps,f_u,f_theta_rhodz,f_phis)
        
-          CALL dissip(f_u,f_du,f_mass,f_phis, f_theta_rhodz,f_dtheta_rhodz)
+          CALL dissip(f_ps,f_mass,f_phis,f_geopot,f_theta_rhodz,f_u, f_dtheta_rhodz,f_du)
           
           CALL euler_scheme(.FALSE.)  ! update only u, theta