Ignore:
Timestamp:
01/09/14 09:56:11 (11 years ago)
Author:
ymipsl
Message:

Add new openMP parallelism based on distribution of domains on threads. There is no more limitation of number of threads by MPI process.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/write_field.f90

    r171 r186  
    17701770   IMPLICIT NONE 
    17711771     INTEGER :: i,k,status 
    1772       
     1772!$OMP MASTER      
    17731773     DO i=1,NbField 
    17741774         status=NF90_CLOSE(FieldId(i)) 
    17751775     ENDDO 
     1776!$OMP END MASTER 
    17761777   END SUBROUTINE  Close_files 
    17771778      
Note: See TracChangeset for help on using the changeset viewer.