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

Timestamp:

Jun 5, 2007, 4:55:21 PM (18 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_fi_dyn_p.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3dpar/gr_fi_dyn_p.F

@@ -1 +1 @@
       SUBROUTINE gr_fi_dyn_p(nfield,ngrid,im,jm,pfi,pdyn)
-      use dimphy
+      USE mod_interface_dyn_phys
+      USE dimphy
       use parallel
       IMPLICIT NONE
@@ -24 +25 @@
 
         do ig=1,klon
-          i=Liste_i(ig)
-          j=Liste_j(ig)
+          i=index_i(ig)
+          j=index_j(ig)
           pdyn(i,j,ifield)=pfi(ig,ifield)
           if (i==1) pdyn(im,j,ifield)=pdyn(i,j,ifield)