Changeset 46 for codes/icosagcm/trunk/src

Timestamp:

07/28/12 05:17:34 (12 years ago)

Author:

dubos

Message:

Removed duplicate write_field
Solved compilation issues with cpp on Bluefire (use GNU cpp)
Tested : Test case 3 with nbp=20 and interpolation to lat-lon.

File:

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

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -102 +102 @@
   CALL etat0(f_ps,f_phis,f_theta_rhodz,f_u, f_q)
   
-  CALL writefield('ps',f_ps)
-  CALL writefield('theta_rhodz',f_theta_rhodz)
-  
   DO it=0,itaumax
     PRINT *,"It No :",It,"   t :",dt*It
@@ -133 +130 @@
     END SELECT
 
-    
-    IF ( itau_out>0 .AND. MOD(it,itau_out)==0) THEN
-      CALL writefield("q",f_q)
-      CALL writefield("ps",f_ps)
-    ENDIF
-
-  ENDDO
+ ENDDO
   
   CONTAINS