Changeset 367 for codes


Ignore:
Timestamp:
01/13/16 14:38:13 (8 years ago)
Author:
dubos
Message:

Small bugfixes / improvements

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

Legend:

Unmodified
Added
Removed

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

    r358 r367  
    563563       IF (rank==omp_domain_rank) THEN  
    564564         assigned_domain(ind)=.TRUE. 
    565          PRINT *,"Rank ",mpi_rank," task ",rank," local domain : ",ind," global domain ",domloc_glo_ind(ind) 
     565         WRITE(*,'(A,I6.6,A,I4.4,A,I4.4,A,I8.8)') "Rank ",mpi_rank,"  task ",rank,"  local domain ",ind," global domain ",domloc_glo_ind(ind) 
    566566       ELSE 
    567567         assigned_domain(ind)=.FALSE. 

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

    r366 r367  
    3737          geopot(ij,l) = g*zz ! initialize geopotential for NH 
    3838       END DO 
    39        q(:,l,:)=0. 
    4039    END DO 
    4140    DO l=ll_begin,ll_end 

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

    r351 r367  
    172172     omp_level_rank=0 
    173173     omp_domain_rank=0 
     174     is_master=is_mpi_master 
    174175     is_omp_first_level=.TRUE. 
    175176     is_omp_last_level=.TRUE. 
Note: See TracChangeset for help on using the changeset viewer.