Ignore:
Timestamp:
Mar 5, 2013, 4:01:03 PM (12 years ago)
Author:
slebonnois
Message:

SL: Important commit ! Adaptation of Venus physics to parallel computation / template for arch on the LMD servers using ifort / documentation for 1D column physics and for parallel computations

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/dyn3dpar/calfis_p.F

    r849 r892  
    169169      REAL,ALLOCATABLE,SAVE :: zplev_omp(:,:)
    170170      REAL,ALLOCATABLE,SAVE :: zplay_omp(:,:)
     171      REAL,ALLOCATABLE,SAVE :: zpk_omp(:,:)
    171172      REAL,ALLOCATABLE,SAVE :: zphi_omp(:,:)
    172173      REAL,ALLOCATABLE,SAVE :: zphis_omp(:)
     
    205206!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    206207
    207 c$OMP THREADPRIVATE(zplev_omp,zplay_omp,zphi_omp,zphis_omp,
     208c$OMP THREADPRIVATE(zplev_omp,zplay_omp,zpk_omp,zphi_omp,zphis_omp,
    208209c$OMP+                 presnivs_omp,zufi_omp,zvfi_omp,ztfi_omp,
    209210c$OMP+                 zqfi_omp,zdufi_omp,zdvfi_omp,
     
    543544        allocate(zplev_omp(klon,llm+1))
    544545        allocate(zplay_omp(klon,llm))
     546        allocate(zpk_omp(klon,llm))
    545547        allocate(zphi_omp(klon,llm))
    546548        allocate(zphis_omp(klon))
     
    576578        do i=1,klon 
    577579          zplay_omp(i,l)=zplay(offset+i,l)
     580        enddo
     581      enddo
     582       
     583       do l=1,llm
     584        do i=1,klon 
     585          zpk_omp(i,l)=zpk(offset+i,l)
    578586        enddo
    579587      enddo
     
    733741        CALL physiq (klon,
    734742     .             llm,
     743     .             nqtot,
    735744     .             debut_split,
    736745     .             lafin_split,
     
    740749     .             zplev_omp,
    741750     .             zplay_omp,
     751     .             zpk_omp,
    742752     .             zphi_omp,
    743753     .             zphis_omp,
     
    747757     .             ztfi_omp,
    748758     .             zqfi_omp,
    749 c#ifdef INCA
    750759     .             flxwfi_omp,
    751 c#endif
    752760     .             zdufi_omp,
    753761     .             zdvfi_omp,
    754762     .             zdtfi_omp,
    755763     .             zdqfi_omp,
    756      .             zdpsrf_omp,
    757 cIM diagnostique PVteta, Amip2         
    758      .             pducov,
    759      .             PVteta)
     764     .             zdpsrf_omp)
    760765      endif ! planet_type
    761766         zufi_omp(:,:)=zufi_omp(:,:)+zdufi_omp(:,:)*zdt_split
Note: See TracChangeset for help on using the changeset viewer.