Changeset 1077
- Timestamp:
- Jan 22, 2009, 10:39:58 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3dpar/gcm.F
r1017 r1077 239 239 240 240 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) 243 243 #endif 244 244 END IF … … 269 269 #endif 270 270 endif 271 272 IF (config_inca /= 'none') THEN273 #ifdef INCA274 call init_inca_dim(klon,llm,iim,jjm,275 $ rlonu,rlatu,rlonv,rlatv)276 #endif277 END IF278 271 279 272 c le cas echeant, creation d un etat initial … … 396 389 #endif 397 390 398 c numero de stockage pour les fichiers de redemarrage: 391 392 c----------------------------------------------------------------------- 393 c Initialisation des dimensions d'INCA : 394 c -------------------------------------- 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 399 403 400 404 c-----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.