Changeset 774 for LMDZ4/trunk/libf/dyn3dpar/gr_dyn_fi_p.F

Timestamp:

Jun 5, 2007, 4:55:21 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Suite du merge entre la version et la HEAD: quelques modifications de
Yann sur le
LF

File:

• LMDZ4/trunk/libf/dyn3dpar/gr_dyn_fi_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/gr_dyn_fi_p.F

@@ -1 +1 @@
       SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi)
+      USE mod_interface_dyn_phys
       USE dimphy
       USE PARALLEL
@@ -27 +28 @@
       DO l=1,nfield    
        DO ig=1,klon
-         i=Liste_i(ig)
-         j=Liste_j(ig)
+         i=index_i(ig)
+         j=index_j(ig)
          pfi(ig,l)=pdyn(i,j,l)
        ENDDO