Changeset 154

Timestamp:

05/19/13 12:30:25 (11 years ago)

Author:

dubos

Message:

Almost nothing

File:

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

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -208 +208 @@
   END DO
   fluxt_zero=.TRUE.
-
-! check that rhodz is consistent with ps
-!  CALL transfert_request(f_rhodz,req_i1)
-!  CALL transfert_request(f_ps,req_i1)
-!  DO ind=1,ndomain
-!     CALL swap_dimensions(ind)
-!     CALL swap_geometry(ind)
-!     rhodz=f_rhodz(ind); ps=f_ps(ind)
-!     CALL compute_rhodz(.FALSE., ps, rhodz)   
-!  END DO
-  
 
   DO it=0,itaumax