Changeset 6289


Ignore:
Timestamp:
11/04/19 10:22:17 (16 months ago)
Author:
josefine.ghattas
Message:

Moved protection if is_omp_root inside subroutine grid_allocate_glo. This is now done only on the allocation part in the subroutine, the first part must be done by all threads. This is needed to run in debug mode at Jean-Zay (intel 2019).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/intersurf.f90

    r6160 r6289  
    746746    IF (printlev >= 1) WRITE(numout,*) 'Start ORCHIDEE intitalization phase' 
    747747     
    748     IF (is_omp_root) THEN 
    749        IF (PRESENT(grid)) THEN 
    750           IF (grid==unstructured) THEN 
    751              CALL grid_allocate_glo(6) 
    752           ELSE 
    753              CALL grid_allocate_glo(4) 
    754           END IF 
     748    IF (PRESENT(grid)) THEN 
     749       IF (grid==unstructured) THEN 
     750          CALL grid_allocate_glo(6) 
    755751       ELSE 
    756752          CALL grid_allocate_glo(4) 
    757753       END IF 
    758     ENDIF 
     754    ELSE 
     755       CALL grid_allocate_glo(4) 
     756    END IF 
    759757    
    760758    CALL barrier2_omp() 
     
    765763    CALL bcast(index_g)   
    766764 
    767     IF (printlev_loc >= 2) THEN 
     765    IF (printlev >= 2) THEN 
    768766       WRITE(numout,*) "kjpindex = ",kjpindex 
    769767       WRITE(numout,*) "offset for OMP = ",offset_omp 
     
    776774          WRITE(numout,*) "ROOT global, Index global : ",index_g(:) 
    777775       ENDIF 
     776       WRITE(numout,*) "NbNeighb = ", NbNeighb 
    778777    END IF 
    779  
    780778 
    781779 
Note: See TracChangeset for help on using the changeset viewer.