Changeset 124

Timestamp:

02/01/13 00:57:55 (11 years ago)

Author:

dubos

Message:

Disabled physics and advection

File:

• codes/icosagcm/trunk/src/timeloop_gcm.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -115 +115 @@
     CALL guided(it*dt,f_ps,f_theta_rhodz,f_u,f_q)
     CALL caldyn(it,f_phis,f_ps,f_theta_rhodz,f_u, f_q, f_dps, f_dtheta_rhodz, f_du)
-    CALL advect_tracer(f_ps,f_u,f_q)
+!    CALL advect_tracer(f_ps,f_u,f_q)
     
     SELECT CASE (TRIM(scheme))
@@ -141 +141 @@
     END SELECT
 
-    CALL physics(it,f_phis, f_ps, f_theta_rhodz, f_u, f_q)
+!    CALL physics(it,f_phis, f_ps, f_theta_rhodz, f_u, f_q)
     
  ENDDO