Changeset 324 for codes


Ignore:
Timestamp:
02/01/15 11:39:51 (9 years ago)
Author:
dubos
Message:

Minor fixes

Location:
codes/icosagcm/trunk/src
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r295 r324  
    266266    DO it=1,nb_it 
    267267      IF (MOD(it,100)==0) THEN  
    268         check=.TRUE. 
     268        check=is_master 
    269269      ELSE 
    270270        check=.FALSE. 
    … …  
    295295      ENDDO 
    296296 
    297       IF (check) THEN 
    298         PRINT *,"it = ",it,"  diff centroid circumcenter ",sum 
    299       ENDIF  
     297      IF (check) PRINT *,"it = ",it,"  diff centroid circumcenter ",sum 
    300298 
    301299     CALL update_circumcenters 

  • codes/icosagcm/trunk/src/omp_para.F90

    r320 r324  
    160160 
    161161   ELSE 
     162     is_master=is_mpi_master 
    162163     omp_size=1 
    163164     omp_level_size=1 
Note: See TracChangeset for help on using the changeset viewer.