Changeset 151 for codes/icosagcm/trunk/src/dynetat0_hz_mod.f90

Timestamp:

05/13/13 14:30:31 (11 years ago)

Author:

ymipsl

Message:

Implementation of mixte parallelism MPI/OpenMP into src directory

YM

File:

• codes/icosagcm/trunk/src/dynetat0_hz_mod.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/dynetat0_hz_mod.f90

@@ -2 +2 @@
   USE genmod
   USE icosa
-  USE caldyn_gcm_mod 
   IMPLICIT NONE 
   PRIVATE
@@ -23 +22 @@
   USE write_field  
   USE maxicosa
+  USE wind_mod
         IMPLICIT NONE
      TYPE(t_domain),POINTER :: d 
@@ -97 +97 @@
         ENDDO
 !------------- OUTPUT OF Variables 
-        CALL un2ulonlat(f_u,f_buf_i3,f_buf1_i,f_buf2_i) 
+        CALL un2ulonlat(f_u,f_buf1_i,f_buf2_i) 
         CALL writefield("buf1",f_buf1_i)
   END SUBROUTINE etat0