Changeset 743 for LMDZ4/branches/V3_test/libf/dyn3dpar/leapfrog_p.F

Timestamp:

Dec 11, 2006, 4:55:31 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Nettoyage sur la version YM
LF

File:

• LMDZ4/branches/V3_test/libf/dyn3dpar/leapfrog_p.F (modified) (2 diffs)

LMDZ4/branches/V3_test/libf/dyn3dpar/leapfrog_p.F

@@ -418 +418 @@
      &                                jj_Nb_caldyn,0,0,TestRequest)
  
+        do j=1,nqmx
+         call Register_SwapFieldHallo(q(1,1,j),q(1,1,j),ip1jmp1,llm,
+     &                                jj_nb_caldyn,0,0,TestRequest)
+        enddo
+
          call SetDistrib(jj_nb_caldyn)
          call SendRequest(TestRequest)
@@ -478 +483 @@
         call WriteField_p('pkf',reshape(pkf,(/iip1,jmp1,llm/)))
         call WriteField_p('phis',reshape(phis,(/iip1,jmp1/)))
-c        do j=1,nqmx
-c          call WriteField_p('q'//trim(int2str(j)),
-c     .                reshape(q(:,:,j),(/iip1,jmp1,llm/)))
-c        enddo        
+        do j=1,nqmx
+          call WriteField_p('q'//trim(int2str(j)),
+     .                reshape(q(:,:,j),(/iip1,jmp1,llm/)))
+        enddo        
       endif