Changeset 785 for LMDZ4/trunk/libf

Timestamp:

Jun 19, 2007, 12:11:06 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Quelques caracteres en trop pour le premier et elimination de la cle
CPP_PSMILE JG
LF

Location:

LMDZ4/trunk/libf/dyn3dpar

Files:

• gr_u_scal_p.F (modified) (1 diff)
• parallel.F90 (modified) (4 diffs)

LMDZ4/trunk/libf/dyn3dpar/gr_u_scal_p.F

@@ -66 +66 @@
       DO l=1,nx
          DO ij=ijb,ije-iip1+1,iip1
-qy         x_scal(ij,l)=x_scal(ij+iip1-1,l)
+           x_scal(ij,l)=x_scal(ij+iip1-1,l)
          ENDDO
       ENDDO

LMDZ4/trunk/libf/dyn3dpar/parallel.F90

@@ -22 +22 @@
     USE vampir
 #ifdef CPP_COUPLE
-#ifdef CPP_PSMILE
     USE mod_prism_proto
-#endif
 #endif
     implicit none
@@ -40 +38 @@
 
 #ifdef CPP_COUPLE
-#ifdef CPP_PSMILE
        call prism_init_comp_proto (comp_id, 'lmdz.x', ierr)
        call prism_get_localcomm_proto(COMM_LMDZ,ierr)
-#endif
 #else      
       call MPI_INIT(ierr)
@@ -150 +146 @@
     subroutine Finalize_parallel
 #ifdef CPP_COUPLE
-#ifdef CPP_PSMILE
     use mod_prism_proto
-#endif
 #endif
     implicit none
@@ -167 +161 @@
 
 #ifdef CPP_COUPLE
-#ifdef CPP_PSMILE
      call prism_terminate_proto(ierr)
      IF (ierr .ne. PRISM_Ok) THEN
        call abort_gcm('Finalize_parallel',' Probleme dans prism_terminate_proto ',1)
      endif
-#endif
 #else         
       call MPI_FINALIZE(ierr)