Ignore:
Timestamp:
Sep 11, 2013, 11:45:01 AM (11 years ago)
Author:
Laurent Fairhead
Message:

Création d'une nouvelle testing:

merge des modifications du trunk entre r1796 et r1860

New testing version

merged modifications between r1796 and r1860 from the trunk

i.e.
svn merge -r1796:1860 ​http://svn.lmd.jussieu.fr/LMDZ/LMDZ5/trunk

Location:
LMDZ5/branches/testing
Files:
1 deleted
83 edited
1 copied

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/dyn3dpar/abort_gcm.F

    r1795 r1864  
    1212      USE ioipsl_getincom
    1313#endif
    14       USE parallel
     14      USE parallel_lmdz
     15
     16
     17
     18
    1519#include "iniprint.h"
    1620 
    … …  
    3741c$OMP END MASTER
    3842#endif
     43
     44
     45
    3946c     call histclo(2)
    4047c     call histclo(3)

  • LMDZ5/branches/testing/libf/dyn3dpar/addfi_p.F

    r1454 r1864  
    55     S          pucov, pvcov, pteta, pq   , pps ,
    66     S          pdufi, pdvfi, pdhfi,pdqfi, pdpfi  )
    7       USE parallel
     7      USE parallel_lmdz
    88      USE infotrac, ONLY : nqtot
    99      USE control_mod, ONLY : planet_type

  • LMDZ5/branches/testing/libf/dyn3dpar/advect_new_p.F

    r774 r1864  
    44      SUBROUTINE advect_new_p(ucov,vcov,teta,w,massebx,masseby,
    55     &                        du,dv,dteta)
    6       USE parallel
     6      USE parallel_lmdz
    77      USE write_field_p
    88      IMPLICIT NONE

  • LMDZ5/branches/testing/libf/dyn3dpar/advect_p.F

    r774 r1864  
    33!
    44      SUBROUTINE advect_p(ucov,vcov,teta,w,massebx,masseby,du,dv,dteta)
    5       USE parallel
     5      USE parallel_lmdz
    66      USE write_field_p
    77      IMPLICIT NONE

  • LMDZ5/branches/testing/libf/dyn3dpar/advtrac_p.F90

    r1549 r1864  
    1010  !            M.A Filiberti (04/2002)
    1111  !
    12   USE parallel
     12  USE parallel_lmdz
    1313  USE Write_Field_p
    1414  USE Bands
    … …  
    460460
    461461        CALL qminimum_p( q, 2, finmasse )
     462     endif ! of if (planet_type=="earth")
    462463
    463464        !------------------------------------------------------------------
    … …  
    466467        !          iadvtr=0
    467468
    468         !$OMP MASTER
    469         call VTe(VTadvection)
    470         call stop_timer(timer_vanleer)
    471         call VTb(VThallo)
    472         !$OMP END MASTER
    473 
    474         do j=1,nqtot
    475            call Register_SwapFieldHallo(q(1,1,j),q(1,1,j),ip1jmp1,llm, &
    476                 jj_nb_caldyn,0,0,Request_vanleer)
    477         enddo
    478 
    479         call Register_SwapFieldHallo(flxw,flxw,ip1jmp1,llm, &
     469      !$OMP MASTER
     470      call VTe(VTadvection)
     471      call stop_timer(timer_vanleer)
     472      call VTb(VThallo)
     473     !$OMP END MASTER
     474
     475      do j=1,nqtot
     476        call Register_SwapFieldHallo(q(1,1,j),q(1,1,j),ip1jmp1,llm, &
    480477             jj_nb_caldyn,0,0,Request_vanleer)
    481 
    482         call SendRequest(Request_vanleer)
    483         !$OMP BARRIER
    484         call WaitRequest(Request_vanleer)     
    485 
    486         !$OMP BARRIER
    487         !$OMP MASTER
    488         call SetDistrib(jj_nb_caldyn)
    489         call VTe(VThallo)
    490         call resume_timer(timer_caldyn)
     478      enddo
     479
     480      call Register_SwapFieldHallo(flxw,flxw,ip1jmp1,llm, &
     481             jj_nb_caldyn,0,0,Request_vanleer)
     482
     483      call SendRequest(Request_vanleer)
     484      !$OMP BARRIER
     485      call WaitRequest(Request_vanleer)     
     486
     487 !$OMP BARRIER
     488 !$OMP MASTER
     489      call SetDistrib(jj_nb_caldyn)
     490      call VTe(VThallo)
     491      call resume_timer(timer_caldyn)
    491492 !$OMP END MASTER
    492493 !$OMP BARRIER 
    493494        iadvtr=0
    494      endif ! of if (planet_type=="earth")
    495495  ENDIF ! if iadvtr.EQ.iapp_tracvl
    496496

  • LMDZ5/branches/testing/libf/dyn3dpar/bands.F90

    r1665 r1864  
    1919 
    2020  subroutine AllocateBands
    21     use parallel
     21    USE parallel_lmdz
    2222    implicit none
    2323   
    … …  
    3333 
    3434  subroutine Read_distrib
    35     use parallel
     35    USE parallel_lmdz
    3636    implicit none
    3737
    … …  
    9292   
    9393   SUBROUTINE  Set_Bands
    94      USE parallel
     94     USE parallel_lmdz
    9595#ifdef CPP_PHYS
    9696! Ehouarn: what follows is only related to // physics
    … …  
    134134    subroutine AdjustBands_caldyn
    135135      use times
    136       use parallel
     136      USE parallel_lmdz
    137137      implicit none
    138138
    … …  
    199199    subroutine AdjustBands_vanleer
    200200      use times
    201       use parallel
     201      USE parallel_lmdz
    202202      implicit none
    203203
    … …  
    265265    subroutine AdjustBands_dissip
    266266      use times
    267       use parallel
     267      USE parallel_lmdz
    268268      implicit none
    269269
    … …  
    335335      USE mod_phys_lmdz_para, only : klon_mpi_para_nb
    336336#endif
    337       USE parallel
     337      USE parallel_lmdz
    338338      implicit none
    339339
    … …  
    385385
    386386    subroutine WriteBands
    387     USE parallel
     387    USE parallel_lmdz
    388388    implicit none
    389389    include "dimensions.h"

  • LMDZ5/branches/testing/libf/dyn3dpar/bernoui_p.F

    r764 r1864  
    11      SUBROUTINE bernoui_p (ngrid,nlay,pphi,pecin,pbern)
    2       USE parallel
     2      USE parallel_lmdz
    33      IMPLICIT NONE
    44

  • LMDZ5/branches/testing/libf/dyn3dpar/bilan_dyn_p.F

    r1550 r1864  
    1313      USE IOIPSL
    1414#endif
    15       USE parallel
     15      USE parallel_lmdz
    1616      USE mod_hallo
    1717      use misc_mod

  • LMDZ5/branches/testing/libf/dyn3dpar/caladvtrac_p.F

    r1454 r1864  
    77     *                   p ,masse, dq ,  teta,
    88     *                   flxw, pk, iapptrac)
    9       USE parallel
     9      USE parallel_lmdz
    1010      USE infotrac, ONLY : nqtot
    1111      USE control_mod, ONLY : iapp_tracvl,planet_type

  • LMDZ5/branches/testing/libf/dyn3dpar/caldyn_p.F

    r764 r1864  
    1010     $ (itau,ucov,vcov,teta,ps,masse,pk,pkf,phis ,
    1111     $  phi,conser,du,dv,dteta,dp,w,pbaru,pbarv,time )
    12       USE parallel
     12      USE parallel_lmdz
    1313      USE Write_Field_p
    1414     

  • LMDZ5/branches/testing/libf/dyn3dpar/calfis_p.F

    r1707 r1864  
    3434      USE IOPHY
    3535#endif
    36       USE parallel, ONLY : omp_chunk, using_mpi
     36      USE parallel_lmdz, ONLY : omp_chunk, using_mpi
    3737      USE Write_Field
    3838      Use Write_field_p

  • LMDZ5/branches/testing/libf/dyn3dpar/ce0l.F90

    r1795 r1864  
    2222  USE mod_const_mpi
    2323  USE infotrac
    24   USE parallel, ONLY: finalize_parallel
     24  USE parallel_lmdz, ONLY: finalize_parallel
    2525  USE indice_sol_mod
    2626

  • LMDZ5/branches/testing/libf/dyn3dpar/conf_gcm.F

    r1795 r1864  
    1616      use mod_filtre_fft, ONLY : use_filtre_fft
    1717      use mod_hallo, ONLY : use_mpi_alloc
    18       use parallel, ONLY : omp_chunk
    1918      USE infotrac, ONLY : type_trac
    2019      use assert_m, only: assert
    … …  
    906905      use_mpi_alloc=.FALSE.
    907906      CALL getin('use_mpi_alloc',use_mpi_alloc)
    908 
    909 !Config  Key  = omp_chunk
    910 !Config  Desc = taille des blocs openmp
    911 !Config  Def  = 1
    912 !Config  Help = defini la taille des packets d'it�ration openmp
    913 !Config         distribu�e � chaque t�che lors de l'entr�e dans une
    914 !Config         boucle parall�lis�e
    915  
    916       omp_chunk=1
    917       CALL getin('omp_chunk',omp_chunk)
    918907
    919908!Config key = ok_strato
    … …  
    1004993      write(lunout,*)' use_filtre_fft = ', use_filtre_fft
    1005994      write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc
    1006       write(lunout,*)' omp_chunk = ', omp_chunk
    1007995      write(lunout,*)' ok_strato = ', ok_strato
    1008996      write(lunout,*)' ok_gradsfile = ', ok_gradsfile

  • LMDZ5/branches/testing/libf/dyn3dpar/convflu_p.F

    r764 r1864  
    1515c     nbniv   est le nombre de niveaux vert. de  xflu et de yflu .
    1616c
    17       USE parallel
     17      USE parallel_lmdz
    1818      IMPLICIT NONE
    1919c

  • LMDZ5/branches/testing/libf/dyn3dpar/convmas1_p.F

    r763 r1864  
    11      SUBROUTINE convmas1_p (pbaru, pbarv, convm )
    22c
    3       USE parallel
     3      USE parallel_lmdz
    44      IMPLICIT NONE
    55

  • LMDZ5/branches/testing/libf/dyn3dpar/convmas2_p.F

    r763 r1864  
    11      SUBROUTINE convmas2_p ( convm )
    22c
    3       USE parallel
     3      USE parallel_lmdz
    44      IMPLICIT NONE
    55

  • LMDZ5/branches/testing/libf/dyn3dpar/convmas_p.F

    r764 r1864  
    11      SUBROUTINE convmas_p (pbaru, pbarv, convm )
    22c
    3       USE parallel
     3      USE parallel_lmdz
    44      IMPLICIT NONE
    55

  • LMDZ5/branches/testing/libf/dyn3dpar/covcont_p.F

    r764 r1864  
    11      SUBROUTINE covcont_p (klevel,ucov, vcov, ucont, vcont )
    2       USE parallel
     2      USE parallel_lmdz
    33      IMPLICIT NONE
    44

  • LMDZ5/branches/testing/libf/dyn3dpar/covnat_p.F

    r1146 r1864  
    33!
    44      SUBROUTINE covnat_p(klevel,ucov, vcov, unat, vnat )
    5       USE parallel
     5      USE parallel_lmdz
    66      IMPLICIT NONE
    77

  • LMDZ5/branches/testing/libf/dyn3dpar/dissip_p.F

    r985 r1864  
    11      SUBROUTINE dissip_p( vcov,ucov,teta,p, dv,du,dh )
    22c
    3       USE parallel
     3      USE parallel_lmdz
    44      USE write_field_p
    55      IMPLICIT NONE

  • LMDZ5/branches/testing/libf/dyn3dpar/diverg_gam_p.F

    r764 r1864  
    99c              x et y  etant des composantes covariantes   ...
    1010c  *********************************************************************
    11       USE parallel
     11      USE parallel_lmdz
    1212      IMPLICIT NONE
    1313c

  • LMDZ5/branches/testing/libf/dyn3dpar/diverg_p.F

    r764 r1864  
    88c              x et y  etant des composantes covariantes   ...
    99c  *********************************************************************
    10       USE parallel
     10      USE parallel_lmdz
    1111      IMPLICIT NONE
    1212c

  • LMDZ5/branches/testing/libf/dyn3dpar/divergf_p.F

    r764 r1864  
    88c              x et y  etant des composantes covariantes   ...
    99c  *********************************************************************
    10       USE PARALLEL
     10      USE parallel_lmdz
    1111      IMPLICIT NONE
    1212c

  • LMDZ5/branches/testing/libf/dyn3dpar/divgrad2_p.F

    r985 r1864  
    1010c         divgra     est  un argument  de sortie pour le s-prg
    1111c
    12       USE parallel
     12      USE parallel_lmdz
    1313      USE times
    1414      USE mod_hallo

  • LMDZ5/branches/testing/libf/dyn3dpar/divgrad_p.F

    r764 r1864  
    11      SUBROUTINE divgrad_p (klevel,h, lh, divgra_out )
    2       USE parallel
     2      USE parallel_lmdz
    33      USE times
    44      IMPLICIT NONE

  • LMDZ5/branches/testing/libf/dyn3dpar/dteta1_p.F

    r764 r1864  
    11      SUBROUTINE dteta1_p ( teta, pbaru, pbarv, dteta)
    2       USE parallel
     2      USE parallel_lmdz
    33      USE write_field_p
    44      IMPLICIT NONE

  • LMDZ5/branches/testing/libf/dyn3dpar/dudv1_p.F

    r764 r1864  
    11      SUBROUTINE dudv1_p ( vorpot, pbaru, pbarv, du, dv )
    2       USE parallel
     2      USE parallel_lmdz
    33      IMPLICIT NONE
    44c

  • LMDZ5/branches/testing/libf/dyn3dpar/dudv2_p.F

    r764 r1864  
    11      SUBROUTINE dudv2_p ( teta, pkf, bern, du, dv  )
    2       USE parallel
     2      USE parallel_lmdz
    33      IMPLICIT NONE
    44c

  • LMDZ5/branches/testing/libf/dyn3dpar/dynredem_p.F

    r1669 r1864  
    77      USE IOIPSL
    88#endif
    9       USE parallel
     9      USE parallel_lmdz
    1010      USE infotrac
    1111      use netcdf95, only: NF95_PUT_VAR
    … …  
    467467      SUBROUTINE dynredem1_p(fichnom,time,
    468468     .                     vcov,ucov,teta,q,masse,ps)
    469       USE parallel
     469      USE parallel_lmdz
    470470      USE infotrac
    471471      USE control_mod

  • LMDZ5/branches/testing/libf/dyn3dpar/enercin_p.F

    r764 r1864  
    11      SUBROUTINE enercin_p ( vcov, ucov, vcont, ucont, ecin )
    2       USE parallel
     2      USE parallel_lmdz
    33      IMPLICIT NONE
    44

  • LMDZ5/branches/testing/libf/dyn3dpar/exner_hyb_p.F

    r1665 r1864  
    2929c
    3030c
    31       USE parallel
     31      USE parallel_lmdz
    3232      IMPLICIT NONE
    3333c

  • LMDZ5/branches/testing/libf/dyn3dpar/exner_milieu_p.F

    r1665 r1864  
    2626c    ( voir note de Fr.Hourdin )  ,
    2727c
    28       USE parallel
     28      USE parallel_lmdz
    2929      IMPLICIT NONE
    3030c

  • LMDZ5/branches/testing/libf/dyn3dpar/filtreg_p.F

    r1707 r1864  
    33      SUBROUTINE filtreg_p ( champ, ibeg, iend, nlat, nbniv,
    44     &     ifiltre, iaire, griscal ,iter)
    5       USE Parallel, only : OMP_CHUNK
     5      USE parallel_lmdz, only : OMP_CHUNK
    66      USE mod_filtre_fft
    77      USE timer_filtre

  • LMDZ5/branches/testing/libf/dyn3dpar/flumass_p.F

    r764 r1864  
    11      SUBROUTINE flumass_p(massebx,masseby, vcont, ucont, pbaru, pbarv)
    2       USE parallel
     2      USE parallel_lmdz
    33      IMPLICIT NONE
    44

  • LMDZ5/branches/testing/libf/dyn3dpar/fluxstokenc_p.F

    r1454 r1864  
    88
    99       USE IOIPSL
    10        USE parallel
     10       USE parallel_lmdz
    1111       USE misc_mod
    1212       USE mod_hallo

  • LMDZ5/branches/testing/libf/dyn3dpar/friction_p.F

    r1492 r1864  
    44c=======================================================================
    55      SUBROUTINE friction_p(ucov,vcov,pdt)
    6       USE parallel
     6      USE parallel_lmdz
    77      USE control_mod
    88#ifdef CPP_IOIPSL

  • LMDZ5/branches/testing/libf/dyn3dpar/gcm.F

    r1795 r1864  
    1010#endif
    1111
     12
    1213      USE mod_const_mpi, ONLY: init_const_mpi
    13       USE parallel
     14      USE parallel_lmdz
    1415      USE infotrac
    1516      USE mod_interface_dyn_phys
    … …  
    186187c   Initialisation partie parallele
    187188c------------------------------------
     189
    188190      CALL init_const_mpi
    189 
    190191      call init_parallel
    191192      call ini_getparam("out.def")
    … …  
    213214c$OMP END PARALLEL
    214215#endif
     216
     217!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     218! Initialisation de XIOS
     219!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     220
    215221
    216222c-----------------------------------------------------------------------

  • LMDZ5/branches/testing/libf/dyn3dpar/geopot_p.F

    r630 r1864  
    11      SUBROUTINE geopot_p ( ngrid, teta, pk, pks, phis, phi )
    2       USE parallel
     2      USE parallel_lmdz
    33      IMPLICIT NONE
    44     

  • LMDZ5/branches/testing/libf/dyn3dpar/getparam.F90

    r1279 r1864  
    1818CONTAINS
    1919  SUBROUTINE ini_getparam(fichier)
    20   USE parallel
     20  USE parallel_lmdz
    2121    !
    2222    IMPLICIT NONE
    … …  
    2828
    2929  SUBROUTINE fin_getparam
    30   USE parallel
     30  USE parallel_lmdz
    3131    !
    3232    IMPLICIT NONE
    … …  
    3737
    3838  SUBROUTINE getparamr(TARGET,def_val,ret_val,comment)
    39   USE parallel
     39  USE parallel_lmdz
    4040    !
    4141    IMPLICIT NONE
    … …  
    6363
    6464  SUBROUTINE getparami(TARGET,def_val,ret_val,comment)
    65   USE parallel
     65  USE parallel_lmdz
    6666    !
    6767    IMPLICIT NONE
    … …  
    9090
    9191  SUBROUTINE getparaml(TARGET,def_val,ret_val,comment)
    92   USE parallel
     92  USE parallel_lmdz
    9393    !
    9494    IMPLICIT NONE

  • LMDZ5/branches/testing/libf/dyn3dpar/gr_dyn_fi_p.F

    r1665 r1864  
    77      USE mod_interface_dyn_phys
    88      USE dimphy
    9       USE PARALLEL
     9      USE parallel_lmdz
    1010      IMPLICIT NONE
    1111c=======================================================================

  • LMDZ5/branches/testing/libf/dyn3dpar/gr_fi_dyn_p.F

    r1665 r1864  
    77      USE mod_interface_dyn_phys
    88      USE dimphy
    9       use parallel
     9      USE parallel_lmdz
    1010      IMPLICIT NONE
    1111c=======================================================================

  • LMDZ5/branches/testing/libf/dyn3dpar/gr_u_scal_p.F

    r1000 r1864  
    2525c
    2626c=======================================================================
    27       USE parallel
     27      USE parallel_lmdz
    2828      IMPLICIT NONE
    2929c-----------------------------------------------------------------------

  • LMDZ5/branches/testing/libf/dyn3dpar/gr_v_scal_p.F

    r985 r1864  
    2525c
    2626c=======================================================================
    27       USE parallel
     27      USE parallel_lmdz
    2828      IMPLICIT NONE
    2929c-----------------------------------------------------------------------

  • LMDZ5/branches/testing/libf/dyn3dpar/grad_p.F

    r764 r1864  
    1010c       pgx  et  pgy    sont des arguments de sortie pour le s-prog
    1111c
    12       USE parallel
     12      USE parallel_lmdz
    1313      IMPLICIT NONE
    1414c

  • LMDZ5/branches/testing/libf/dyn3dpar/gradiv2_p.F

    r985 r1864  
    1313c
    1414c
    15       USE parallel
     15      USE parallel_lmdz
    1616      USE times
    1717      USE Write_field_p

  • LMDZ5/branches/testing/libf/dyn3dpar/gradiv_p.F

    r764 r1864  
    1414c
    1515c     
    16       USE parallel
     16      USE parallel_lmdz
    1717      USE times
    1818      IMPLICIT NONE

  • LMDZ5/branches/testing/libf/dyn3dpar/groupe_p.F

    r1707 r1864  
    11      subroutine groupe_p(pext,pbaru,pbarv,pbarum,pbarvm,wm)
    2       USE parallel
     2      USE parallel_lmdz
    33      implicit none
    44

  • LMDZ5/branches/testing/libf/dyn3dpar/groupeun_p.F

    r1279 r1864  
    11      SUBROUTINE groupeun_p(jjmax,llmax,jjb,jje,q)
    2       USE parallel
     2      USE parallel_lmdz
    33      USE Write_Field_p
    44      IMPLICIT NONE
    … …  
    135135      SUBROUTINE INIT_GROUPEUN_P(airen_tab, aires_tab)
    136136
    137       USE parallel
     137      USE parallel_lmdz
    138138      IMPLICIT NONE
    139139

  • LMDZ5/branches/testing/libf/dyn3dpar/guide_p_mod.F90

    r1750 r1864  
    292292!=======================================================================
    293293  SUBROUTINE guide_main(itau,ucov,vcov,teta,q,masse,ps)
    294     use parallel
     294    USE parallel_lmdz
    295295    USE control_mod
    296296   
    … …  
    653653!=======================================================================
    654654  SUBROUTINE guide_interp(psi,teta)
    655   USE parallel
     655  USE parallel_lmdz
    656656  USE mod_hallo
    657657  USE Bands
    … …  
    16361636!=======================================================================
    16371637  SUBROUTINE guide_out(varname,hsize,vsize,field,factt)
    1638     USE parallel
     1638    USE parallel_lmdz
    16391639    IMPLICIT NONE
    16401640

  • LMDZ5/branches/testing/libf/dyn3dpar/initdynav_p.F

    r1279 r1864  
    88       USE IOIPSL
    99#endif
    10        use parallel
     10       USE parallel_lmdz
    1111       use Write_field
    1212       use misc_mod

  • LMDZ5/branches/testing/libf/dyn3dpar/initfluxsto_p.F

    r1454 r1864  
    1010       USE IOIPSL
    1111#endif
    12        use parallel
     12       USE parallel_lmdz
    1313       use Write_field
    1414       use misc_mod

  • LMDZ5/branches/testing/libf/dyn3dpar/inithist_p.F

    r1279 r1864  
    99       USE IOIPSL
    1010#endif
    11        use parallel
     11       USE parallel_lmdz
    1212       use Write_field
    1313       use misc_mod

  • LMDZ5/branches/testing/libf/dyn3dpar/integrd_p.F

    r1665 r1864  
    55     $  (  nq,vcovm1,ucovm1,tetam1,psm1,massem1,
    66     $     dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps0,masse,phis) !,finvmaold)
    7       USE parallel
     7      USE parallel_lmdz
    88      USE control_mod, only : planet_type
    99      IMPLICIT NONE

  • LMDZ5/branches/testing/libf/dyn3dpar/laplacien_gam_p.F

    r764 r1864  
    1111c      divgra     est  un argument  de sortie pour le s-prog
    1212c
    13       USE parallel
     13      USE parallel_lmdz
    1414      IMPLICIT NONE
    1515c

  • LMDZ5/branches/testing/libf/dyn3dpar/laplacien_p.F

    r764 r1864  
    99c      divgra     est  un argument  de sortie pour le s-prog
    1010c
    11       USE parallel
     11      USE parallel_lmdz
    1212      IMPLICIT NONE
    1313c

  • LMDZ5/branches/testing/libf/dyn3dpar/laplacien_rot_p.F

    r764 r1864  
    1010c      rotout           est  un argument  de sortie pour le s-prog
    1111c
    12       USE parallel
     12      USE parallel_lmdz
    1313      IMPLICIT NONE
    1414c

  • LMDZ5/branches/testing/libf/dyn3dpar/laplacien_rotgam_p.F

    r764 r1864  
    99c      divgra     est  un argument  de sortie pour le s-prog
    1010c
    11       USE parallel
     11      USE parallel_lmdz
    1212      IMPLICIT NONE
    1313c

  • LMDZ5/branches/testing/libf/dyn3dpar/leapfrog_p.F

    r1795 r1864  
    99
    1010       USE misc_mod
    11        USE parallel
     11       USE parallel_lmdz
    1212       USE times
    1313       USE mod_hallo
    … …  
    994994!   Academic case : Simple friction and Newtonan relaxation
    995995!   -------------------------------------------------------
     996c$OMP MASTER
     997         if (FirstPhysic) then
     998           ok_start_timer=.TRUE.
     999           FirstPhysic=.false.
     1000         endif
     1001c$OMP END MASTER
     1002
    9961003       ijb=ij_begin
    9971004       ije=ij_end

  • LMDZ5/branches/testing/libf/dyn3dpar/massbar_p.F

    r764 r1864  
    1313c     
    1414c
    15       USE parallel
     15      USE parallel_lmdz
    1616      IMPLICIT NONE
    1717c

  • LMDZ5/branches/testing/libf/dyn3dpar/massbarxy_p.F

    r764 r1864  
    11      SUBROUTINE massbarxy_p(  masse, massebxy )
    2       USE parallel
     2      USE parallel_lmdz
    33      implicit none
    44c **********************************************************************

  • LMDZ5/branches/testing/libf/dyn3dpar/massdair_p.F

    r764 r1864  
    11      SUBROUTINE massdair_p( p, masse )
    2       USE parallel
     2      USE parallel_lmdz
    33c
    44c *********************************************************************

  • LMDZ5/branches/testing/libf/dyn3dpar/mod_const_mpi.F90

    r1707 r1864  
    5151 
    5252  SUBROUTINE Init_mpi
     53#ifdef CPP_XIOS
     54    USE wxios
     55#endif
    5356  IMPLICIT NONE
    5457#ifdef CPP_MPI
    … …  
    7073      COMM_LMDZ=MPI_COMM_WORLD
    7174      MPI_REAL_LMDZ=MPI_REAL8
     75
     76    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     77    ! Initialisation de XIOS
     78    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     79#ifdef CPP_XIOS
     80      CALL wxios_init("LMDZ", outcom=COMM_LMDZ)
     81#endif
     82!$OMP END MASTER
     83#else
     84#ifdef CPP_XIOS
     85!$OMP MASTER
     86      CALL wxios_init("LMDZ")
    7287!$OMP END MASTER
    7388#endif
    74 
     89#endif
    7590   END SUBROUTINE Init_mpi
    7691   

  • LMDZ5/branches/testing/libf/dyn3dpar/mod_hallo.F90

    r1000 r1864  
    11module mod_Hallo
    2 USE parallel
     2USE parallel_lmdz
    33implicit none
    44  logical,save :: use_mpi_alloc

  • LMDZ5/branches/testing/libf/dyn3dpar/nxgrad_gam_p.F

    r764 r1864  
    99c       x  et y    sont des arguments de sortie pour le s-prog
    1010c
    11       USE parallel
     11      USE parallel_lmdz
    1212      IMPLICIT NONE
    1313c

  • LMDZ5/branches/testing/libf/dyn3dpar/nxgrad_p.F

    r764 r1864  
    99c       x  et y    sont des arguments de sortie pour le s-prog
    1010c
    11       USE parallel
     11      USE parallel_lmdz
    1212      IMPLICIT NONE
    1313c

  • LMDZ5/branches/testing/libf/dyn3dpar/nxgraro2_p.F

    r985 r1864  
    1313c
    1414      USE write_Field_p
    15       USE parallel
     15      USE parallel_lmdz
    1616      USE times
    1717      USE mod_hallo

  • LMDZ5/branches/testing/libf/dyn3dpar/nxgrarot_p.F

    r764 r1864  
    1313c
    1414c
    15       USE parallel
     15      USE parallel_lmdz
    1616      USE times
    1717      USE write_field_p

  • LMDZ5/branches/testing/libf/dyn3dpar/pression_p.F

    r764 r1864  
    11      SUBROUTINE pression_p( ngrid, ap, bp, ps, p )
    2       USE parallel
     2      USE parallel_lmdz
    33c
    44

  • LMDZ5/branches/testing/libf/dyn3dpar/qminimum_p.F

    r1146 r1864  
    11      SUBROUTINE qminimum_p( q,nq,deltap )
    2       USE parallel
     2      USE parallel_lmdz
    33      IMPLICIT none
    44c

  • LMDZ5/branches/testing/libf/dyn3dpar/rotat_nfil_p.F

    r764 r1864  
    1010c        rot          est  un argument  de sortie pour le s-prog
    1111c
    12       USE parallel
     12      USE parallel_lmdz
    1313      IMPLICIT NONE
    1414c

  • LMDZ5/branches/testing/libf/dyn3dpar/rotat_p.F

    r764 r1864  
    1010c        rot          est  un argument  de sortie pour le s-prog
    1111c
    12       USE parallel
     12      USE parallel_lmdz
    1313      IMPLICIT NONE
    1414c

  • LMDZ5/branches/testing/libf/dyn3dpar/rotatf_p.F

    r764 r1864  
    1010c        rot          est  un argument  de sortie pour le s-prog
    1111c
    12       USE parallel
     12      USE parallel_lmdz
    1313      IMPLICIT NONE
    1414c

  • LMDZ5/branches/testing/libf/dyn3dpar/times.F90

    r1146 r1864  
    2525 
    2626  subroutine init_timer
    27     use parallel
     27    USE parallel_lmdz
    2828    implicit none
    2929#include "dimensions.h"
    … …  
    101101
    102102  subroutine stop_timer(no_timer)
    103     use parallel
     103    USE parallel_lmdz
    104104    implicit none
    105105    integer :: no_timer
    … …  
    136136   
    137137  subroutine allgather_timer
    138     use parallel
     138    USE parallel_lmdz
    139139    implicit none
    140140#ifdef CPP_MPI   
    … …  
    171171 
    172172  subroutine allgather_timer_average
    173     use parallel
     173    USE parallel_lmdz
    174174    implicit none
    175175#ifdef CPP_MPI

  • LMDZ5/branches/testing/libf/dyn3dpar/top_bound_p.F

    r1795 r1864  
    33!
    44      SUBROUTINE top_bound_p(vcov,ucov,teta,masse,dt)
    5       USE parallel
     5      USE parallel_lmdz
    66      IMPLICIT NONE
    77c

  • LMDZ5/branches/testing/libf/dyn3dpar/tourpot_p.F

    r764 r1864  
    11      SUBROUTINE tourpot_p ( vcov, ucov, massebxy, vorpot )
    2       USE parallel
     2      USE parallel_lmdz
    33      IMPLICIT NONE
    44

  • LMDZ5/branches/testing/libf/dyn3dpar/vitvert_p.F

    r764 r1864  
    11      SUBROUTINE vitvert_p ( convm , w )
    22c
    3       USE parallel
     3      USE parallel_lmdz
    44      IMPLICIT NONE
    55

  • LMDZ5/branches/testing/libf/dyn3dpar/vlsplt_p.F

    r1520 r1864  
    1818c
    1919c   --------------------------------------------------------------------
    20       USE parallel
     20      USE parallel_lmdz
    2121      USE mod_hallo
    2222      USE Vampir
    … …  
    203203c
    204204c   --------------------------------------------------------------------
    205       USE Parallel
     205      USE parallel_lmdz
    206206      IMPLICIT NONE
    207207c
    … …  
    538538c
    539539c   --------------------------------------------------------------------
    540       USE parallel
     540      USE parallel_lmdz
    541541      IMPLICIT NONE
    542542c
    … …  
    927927c
    928928c   --------------------------------------------------------------------
    929       USE Parallel
     929      USE parallel_lmdz
    930930      IMPLICIT NONE
    931931c

  • LMDZ5/branches/testing/libf/dyn3dpar/vlspltgen_p.F

    r1146 r1864  
    2222c     pk exner au milieu des couches necessaire pour calculer Qsat
    2323c   --------------------------------------------------------------------
    24       USE parallel
     24      USE parallel_lmdz
    2525      USE mod_hallo
    2626      USE Write_Field_p

  • LMDZ5/branches/testing/libf/dyn3dpar/vlspltqs_p.F

    r1520 r1864  
    2222c     pk exner au milieu des couches necessaire pour calculer Qsat
    2323c   --------------------------------------------------------------------
    24       USE parallel
     24      USE parallel_lmdz
    2525      USE mod_hallo
    2626      USE VAMPIR
    … …  
    231231c
    232232c   --------------------------------------------------------------------
    233       USE parallel
     233      USE parallel_lmdz
    234234      IMPLICIT NONE
    235235c
    … …  
    583583c
    584584c   --------------------------------------------------------------------
    585       USE parallel
     585      USE parallel_lmdz
    586586      IMPLICIT NONE
    587587c

  • LMDZ5/branches/testing/libf/dyn3dpar/write_field_p.F90

    r763 r1864  
    99 
    1010  subroutine write_field1D_p(name,Field)
    11     USE parallel
     11    USE parallel_lmdz
    1212    USE write_field
    1313    implicit none
    … …  
    3030
    3131  subroutine write_field2D_p(name,Field)
    32     USE parallel
     32    USE parallel_lmdz
    3333    USE write_field
    3434    implicit none
    … …  
    5151 
    5252  subroutine write_field3D_p(name,Field)
    53     USE parallel
     53    USE parallel_lmdz
    5454    USE write_field
    5555    implicit none

  • LMDZ5/branches/testing/libf/dyn3dpar/writedynav_p.F

    r1279 r1864  
    99      USE ioipsl
    1010#endif
    11       USE parallel
     11      USE parallel_lmdz
    1212      USE misc_mod
    1313      USE infotrac

  • LMDZ5/branches/testing/libf/dyn3dpar/writehist_p.F

    r1279 r1864  
    99      USE ioipsl
    1010#endif
    11       USE parallel
     11      USE parallel_lmdz
    1212      USE misc_mod
    1313      USE infotrac
Note: See TracChangeset for help on using the changeset viewer.