Ignore:
Timestamp:
09/30/20 23:22:33 (4 years ago)
Author:
dubos
Message:

Simplify base/field.f90 to reduce repetitive code
Generate remaining repetitive code in base/field.f90 and parallel/transfert_mpi_collectives from a template

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/parallel/openacc_mod.F90

    r1019 r1055  
    3131    ELSE IF (slurm_local_id_ierr == 0) then 
    3232       READ(slurm_local_id_value,*) local_id 
    33        PRINT *, "setDevice : found env variable SLURM_LOCAL_ID =", local_id  
     33       PRINT *, "setDevice : found env variable SLURM_LOCALID =", local_id  
    3434    ELSE 
    3535     RETURN 
Note: See TracChangeset for help on using the changeset viewer.