Changeset 15 for codes/icosagcm/trunk/src/transfert.f90

Timestamp:

07/09/12 15:23:38 (12 years ago)

Author:

ymipsl

Message:

Update on 3D dynamic

YM

File:

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

codes/icosagcm/trunk/src/transfert.f90

@@ -31 +31 @@
 
     DO ind=1,ndomain
+      CALL swap_dimensions(ind)
       DO i=ii_begin,ii_end+1
         CALL request_add_point(ind,i,jj_begin-1,req_i1)
@@ -67 +68 @@
     CALL create_request(field_u,req_e1)
     DO ind=1,ndomain
+      CALL swap_dimensions(ind)
       DO i=ii_begin,ii_end
         CALL request_add_point(ind,i,jj_begin-1,req_e1,rup)