Changeset 743 for LMDZ4/branches/V3_test/libf/dyn3dpar

Timestamp:

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

Author:

Laurent Fairhead

Message:

Nettoyage sur la version YM
LF

Location:

LMDZ4/branches/V3_test/libf/dyn3dpar

Files:

• leapfrog_p.F (modified) (2 diffs)
• times.F90 (modified) (1 diff)

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
  

LMDZ4/branches/V3_test/libf/dyn3dpar/times.F90

@@ -126 +126 @@
         V2=timer_table_sqr(jj_nb,no_timer,mpi_rank)
         V=timer_table(jj_nb,no_timer,mpi_rank)
-        timer_delta(jj_nb,no_timer,mpi_rank)=sqrt((V2-V*V/N)/(N-1)) 
+        timer_delta(jj_nb,no_timer,mpi_rank)=sqrt(abs(V2-V*V/N)/(N-1)) 
       else
         timer_delta(jj_nb,no_timer,mpi_rank)=0