Index: LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.fcm =================================================================== --- LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.fcm (revision 1142) +++ LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.fcm (revision 1142) @@ -0,0 +1,15 @@ +%COMPILER xlf_r +%LINK mpxlf_r +%AR ar +%MAKE gmake +%FPP_FLAGS -P +%FPP_DEF NC_DOUBLE BLAS SGEMV=DGEMV SGEMM=DGEMM +%BASE_FFLAGS -qautodbl=dbl4 +%PROD_FFLAGS -O5 +%DEV_FFLAGS -O2 -qfullpath -qinitauto=7FBFFFFF -qfloat=nans -qflttrap=overflow:zerodivide:invalid:enable -qsigtrap +%DEBUG_FFLAGS -g -qfullpath -qnooptimize -qinitauto=7FBFFFFF -qfloat=nans -qflttrap=overflow:zerodivide:invalid:enable -qsigtrap +%MPI_FFLAGS -I/usr/lpp/ppe.poe/include/thread64 +%OMP_FFLAGS -qsmp=omp +%BASE_LD -lessl +%MPI_LD +%OMP_LD -qsmp=omp Index: LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.path =================================================================== --- LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.path (revision 1142) +++ LMDZ4/branches/LMDZ4-dev/arch/arch-PW6_VARGAS.path (revision 1142) @@ -0,0 +1,10 @@ +set NETCDF_LIBDIR=/usr/local/pub/NetCDF/3.6.3/include/lib +set NETCDF_INCDIR=/usr/local/pub/NetCDF/3.6.3/include +set IOIPSL_INCDIR=$LMDGCM/../../lib +set IOIPSL_LIBDIR=$LMDGCM/../../lib +set ORCH_INCDIR=$LMDGCM/../../lib +set ORCH_LIBDIR=$LMDGCM/../../lib +set OASIS_INCDIR=$LMDGCM/../../prism/SX/build/lib/psmile.$couple +set OASIS_LIBDIR=$LMDGCM/../../prism/SX/lib +set INCA_LIBDIR=$LMDGCM/../INCA3/config/lib +set INCA_INCDIR=$LMDGCM/../INCA3/config/lib Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F (revision 1141) +++ LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/calfis_p.F (revision 1142) @@ -369,7 +369,6 @@ CALL gr_dyn_fi_p(llm,iip1,jjp1,klon,pphi,zphi) -c$OMP MASTER CALL gr_dyn_fi_p(1,iip1,jjp1,klon,pphis,zphis) -c$OMP END MASTER + c$OMP BARRIER @@ -895,7 +894,5 @@ c tendance sur la pression : c ----------------------------------- -c$OMP MASTER CALL gr_fi_dyn_p(1,klon,iip1,jjp1,zdpsrf,pdpsfi) -c$OMP END MASTER c c 62. enthalpie potentielle Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/times.F90 =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/times.F90 (revision 1141) +++ LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/times.F90 (revision 1142) @@ -207,5 +207,5 @@ endif - ENDIF ! using_mpî + ENDIF ! using_mp� end subroutine allgather_timer_average @@ -222,5 +222,5 @@ end subroutine InitTime - function DiffTime + function DiffTime() implicit none double precision :: DiffTime @@ -236,5 +236,5 @@ end function DiffTime - function DiffCpuTime + function DiffCpuTime() implicit none real :: DiffCpuTime Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90 =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90 (revision 1141) +++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/calltherm.F90 (revision 1142) @@ -16,8 +16,4 @@ #include "thermcell.h" #include "iniprint.h" - -! A inclure eventuellement dans les fichiers de configuration - data r_aspect_thermals,l_mix_thermals/2.,30./ - data w2di_thermals/1/ !IM 140508 @@ -176,5 +172,5 @@ & ,tau_thermals,3) else if (iflag_thermals.eq.11) then - stop'cas non prevu dans calltherm' + stop 'cas non prevu dans calltherm' ! CALL thermcell_pluie(klon,klev,zdt & ! & ,pplay,paprs,pphi,zlev & Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90 =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90 (revision 1141) +++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/pbl_surface_mod.F90 (revision 1142) @@ -460,10 +460,7 @@ !**************************************************************************************** ! Declarations specifiques pour le 1D. A reprendre - REAL :: fsens,flat - LOGICAL ok_flux_surf - DATA ok_flux_surf/.FALSE./ -!ym pas glop !! - COMMON /flux_arp/fsens,flat,ok_flux_surf -!$OMP THREADPRIVATE(/flux_arp/) + REAL,SAVE :: fsens,flat + LOGICAL,SAVE :: ok_flux_surf=.FALSE. +!$OMP THREADPRIVATE(fsens,flat,ok_flux_surf) !**************************************************************************************** Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h (revision 1141) +++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell.h (revision 1142) @@ -1,13 +1,15 @@ - integer iflag_thermals,nsplit_thermals - real r_aspect_thermals,l_mix_thermals,tau_thermals - integer w2di_thermals,isplit - integer iflag_coupl,iflag_clos,iflag_wake - integer iflag_thermals_ed,iflag_thermals_optflux + integer :: iflag_thermals,nsplit_thermals + real,parameter :: r_aspect_thermals=2.,l_mix_thermals=30. + real :: tau_thermals + integer,parameter :: w2di_thermals=1 + integer :: isplit + + integer :: iflag_coupl,iflag_clos,iflag_wake + integer :: iflag_thermals_ed,iflag_thermals_optflux common/ctherm1/iflag_thermals,nsplit_thermals - common/ctherm2/r_aspect_thermals,l_mix_thermals,tau_thermals - common/ctherm3/w2di_thermals + common/ctherm2/tau_thermals common/ctherm4/iflag_coupl,iflag_clos,iflag_wake common/ctherm5/iflag_thermals_ed,iflag_thermals_optflux -!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm3/,/ctherm4/) +!$OMP THREADPRIVATE(/ctherm1/,/ctherm2/,/ctherm4/,/ctherm5/) Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux.F90 =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux.F90 (revision 1141) +++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux.F90 (revision 1142) @@ -164,5 +164,5 @@ ! FH Version en cours de test; ! par rapport a thermcell_flux, on fait une grande boucle sur "l" -! et on modifie le flux avec tous les contrôles appliques d'affilee +! et on modifie le flux avec tous les contr�les appliques d'affilee ! pour la meme couche ! Momentanement, on duplique le calcule du flux pour pouvoir comparer @@ -264,5 +264,5 @@ if (entr(ig,l)<0.) then print*,'N1 ig,l,entr',ig,l,entr(ig,l) - stop'entr negatif' + stop 'entr negatif' endif if (detr(ig,l).gt.fm(ig,l)) then @@ -292,5 +292,5 @@ print*,'entr(ig,l)',entr(ig,l) print*,'fm(ig,l)',fm(ig,l) - stop'probleme dans thermcell flux' + stop 'probleme dans thermcell flux' endif enddo @@ -319,5 +319,5 @@ print*,'detr(ig,l)',detr(ig,l) print*,'fm(ig,l)',fm(ig,l) - stop'probleme dans thermcell flux' + stop 'probleme dans thermcell flux' endif enddo @@ -420,5 +420,5 @@ print*,'fm(ig,l+1)',fm(ig,l+1) print*,'fm(ig,l)',fm(ig,l) - stop'probleme dans thermcell_flux' + stop 'probleme dans thermcell_flux' endif entr(ig,l+1)=entr(ig,l+1)-ddd Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux2.F90 =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux2.F90 (revision 1141) +++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_flux2.F90 (revision 1142) @@ -160,5 +160,5 @@ ! FH Version en cours de test; ! par rapport a thermcell_flux, on fait une grande boucle sur "l" -! et on modifie le flux avec tous les contrôles appliques d'affilee +! et on modifie le flux avec tous les contr�les appliques d'affilee ! pour la meme couche ! Momentanement, on duplique le calcule du flux pour pouvoir comparer @@ -256,5 +256,5 @@ if (entr(ig,l)<0.) then print*,'N1 ig,l,entr',ig,l,entr(ig,l) - stop'entr negatif' + stop 'entr negatif' endif if (detr(ig,l).gt.fm(ig,l)) then @@ -285,5 +285,5 @@ print*,'entr(ig,l)',entr(ig,l) print*,'fm(ig,l)',fm(ig,l) - stop'probleme dans thermcell flux' + stop 'probleme dans thermcell flux' endif enddo @@ -312,5 +312,5 @@ print*,'detr(ig,l)',detr(ig,l) print*,'fm(ig,l)',fm(ig,l) - stop'probleme dans thermcell flux' + stop 'probleme dans thermcell flux' endif enddo @@ -413,5 +413,5 @@ print*,'fm(ig,l+1)',fm(ig,l+1) print*,'fm(ig,l)',fm(ig,l) - stop'probleme dans thermcell_flux' + stop 'probleme dans thermcell_flux' endif entr(ig,l+1)=entr(ig,l+1)-ddd Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_main.F90 =================================================================== --- LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_main.F90 (revision 1141) +++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/thermcell_main.F90 (revision 1142) @@ -484,5 +484,5 @@ ! Test valable seulement en 1D mais pas genant if (.not. (f0(1).ge.0.) ) then - stop'Dans thermcell_main' + stop 'Dans thermcell_main' endif