Changeset 1346


Ignore:
Timestamp:
2009-03-27T17:25:46+01:00 (12 years ago)
Author:
rblod
Message:

Correct a mistake in previous commit for mono processor case, see ticket #361

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/DIA/diaptr.F90

    r1345 r1346  
    8686      &                              surf_jk_r_ipc        
    8787#if defined key_diaeiv 
    88    REAL(wp), DIMENSION(jpj,jpk) ::   v_msf_eiv_glo, v_msf_eiv_atl, v_msf_eiv_pac, v_msf_eiv_ind, v_msf_eiv_ipc !: bolus "meridional" Stream-Function 
     88   REAL(wp), DIMENSION(jpj,jpk) ::   v_msf_eiv_glo, v_msf_eiv_atl, v_msf_eiv_pac,  & 
     89      &                              v_msf_eiv_ind, v_msf_eiv_ipc !: bolus "meridional" Stream-Function 
    8990#endif 
    9091  
     
    129130      END DO 
    130131      ! 
    131       IF( lk_mpp )   CALL mpp_sum( p_fval, ijpj, ncomm_znl)     !!bug  I presume 
     132#if defined key_mpp_mpi 
     133      CALL mpp_sum( p_fval, ijpj, ncomm_znl)     !!bug  I presume 
     134#endif 
    132135      ! 
    133136   END FUNCTION ptr_vj_3d 
     
    161164      END DO 
    162165      ! 
    163       IF( lk_mpp )   CALL mpp_sum( p_fval, ijpj, ncomm_znl )     !!bug  I presume 
     166#if defined key_mpp_mpi 
     167      CALL mpp_sum( p_fval, ijpj, ncomm_znl )     !!bug  I presume 
     168#endif 
    164169      !  
    165170   END FUNCTION ptr_vj_2d 
     
    210215      END IF 
    211216      ! 
    212       IF(lk_mpp) THEN 
    213          ish(1) = jpj*jpk  ;  ish2(1) = jpj  ;  ish2(2) = jpk 
    214          zwork(:)= RESHAPE( p_fval, ish ) 
    215          CALL mpp_sum( zwork, jpj*jpk, ncomm_znl ) 
    216          p_fval(:,:)= RESHAPE( zwork, ish2 ) 
    217       END IF 
     217#if defined key_mpp_mpi 
     218      ish(1) = jpj*jpk  ;  ish2(1) = jpj  ;  ish2(2) = jpk 
     219      zwork(:)= RESHAPE( p_fval, ish ) 
     220      CALL mpp_sum( zwork, jpj*jpk, ncomm_znl ) 
     221      p_fval(:,:)= RESHAPE( zwork, ish2 ) 
     222#endif 
    218223      ! 
    219224   END FUNCTION ptr_vjk 
     
    265270      END IF 
    266271      p_fval(:,:) = p_fval(:,:) * 0.5 
    267       IF(lk_mpp) THEN 
    268          ish(1) = jpj*jpk   ;   ish2(1) = jpj   ;   ish2(2) = jpk 
    269          zwork(:)= RESHAPE( p_fval, ish ) 
    270          CALL mpp_sum( zwork, jpj*jpk, ncomm_znl ) 
    271          p_fval(:,:)= RESHAPE(zwork,ish2) 
    272       END IF 
     272#if defined key_mpp_mpi 
     273      ish(1) = jpj*jpk   ;   ish2(1) = jpj   ;   ish2(2) = jpk 
     274      zwork(:)= RESHAPE( p_fval, ish ) 
     275      CALL mpp_sum( zwork, jpj*jpk, ncomm_znl ) 
     276      p_fval(:,:)= RESHAPE(zwork,ish2) 
     277#endif 
    273278      ! 
    274279   END FUNCTION ptr_tjk 
     
    655660            END DO 
    656661            ! provide the correct zphi to all local domains 
    657             IF( lk_mpp )   CALL mpp_sum( zphi, jpj, ncomm_znl )         
     662#if defined key_mpp_mpi 
     663            CALL mpp_sum( zphi, jpj, ncomm_znl )         
     664#endif 
    658665 
    659666            !                                        ! ======================= 
     
    666673         ! 
    667674         ! Work only on westmost processor (will not work if mppini2 is used) 
     675#if defined key_mpp_mpi 
    668676         IF ( l_znl_root ) THEN  
     677#endif 
    669678            ! 
    670679            ! OPEN netcdf file  
     
    848857 
    849858         END IF 
     859#if defined key_mpp_mpi 
    850860      END IF 
    851  
     861#endif 
     862 
     863#if defined key_mpp_mpi 
    852864      IF( MOD( itmod, nf_ptr ) == 0 .AND. l_znl_root ) THEN 
    853  
     865#else 
     866      IF( MOD( itmod, nf_ptr ) == 0  ) THEN 
     867#endif 
    854868         niter = niter + 1 
    855869 
Note: See TracChangeset for help on using the changeset viewer.