Ignore:
Timestamp:
Jan 22, 2009, 10:41:25 AM (16 years ago)
Author:
jghattas
Message:

Modifications dans les appels a INCA.
/Anne Cozic

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/gcm.F

    r1017 r1078  
    239239
    240240         call init_inca_para(
    241      $        iim,jjm+1,klon_glo,mpi_size,
    242      $        klon_mpi_para_nb,COMM_LMDZ)
     241     $        iim,jjm+1,llm,klon_glo,mpi_size,
     242     $        distrib_phys,COMM_LMDZ)
    243243#endif
    244244      END IF
     
    269269#endif
    270270      endif
    271 
    272       IF (config_inca /= 'none') THEN
    273 #ifdef INCA
    274          call init_inca_dim(klon,llm,iim,jjm,
    275      $        rlonu,rlatu,rlonv,rlatv)
    276 #endif
    277       END IF
    278271
    279272c le cas echeant, creation d un etat initial
     
    396389#endif
    397390
    398 c  numero de stockage pour les fichiers de redemarrage:
     391
     392c-----------------------------------------------------------------------
     393c   Initialisation des dimensions d'INCA :
     394c   --------------------------------------
     395      IF (config_inca /= 'none') THEN
     396!$OMP PARALLEL
     397#ifdef INCA
     398         CALL init_inca_dim(klon_omp,llm,iim,jjm,
     399     $        rlonu,rlatu,rlonv,rlatv)
     400#endif
     401!$OMP END PARALLEL
     402      END IF
    399403
    400404c-----------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.