Ignore:
Timestamp:
Jul 31, 2013, 12:38:37 PM (11 years ago)
Author:
Ehouarn Millour
Message:

Remplacement de parallel.F90 (en conflit avec orchidée) par parallel_lmdz.F90.
UG
.........................................
Renaming parallel.F90 (conflicting with orchidée) into parallel_lmdz.F90.
UG

Location:
LMDZ5/trunk/libf/dyn3dpar
Files:
1 added
1 deleted
81 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dpar/abort_gcm.F

    r1748 r1823  
    1212      USE ioipsl_getincom
    1313#endif
    14       USE parallel
     14      USE parallel_lmdz
    1515#include "iniprint.h"
    1616 

  • LMDZ5/trunk/libf/dyn3dpar/addfi_p.F

    r1454 r1823  
    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/trunk/libf/dyn3dpar/advect_new_p.F

    r774 r1823  
    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/trunk/libf/dyn3dpar/advect_p.F

    r774 r1823  
    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/trunk/libf/dyn3dpar/advtrac_p.F90

    r1549 r1823  
    1010  !            M.A Filiberti (04/2002)
    1111  !
    12   USE parallel
     12  USE parallel_lmdz
    1313  USE Write_Field_p
    1414  USE Bands

  • LMDZ5/trunk/libf/dyn3dpar/bands.F90

    r1615 r1823  
    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/trunk/libf/dyn3dpar/bernoui_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/bilan_dyn_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/caladvtrac_p.F

    r1454 r1823  
    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/trunk/libf/dyn3dpar/caldyn_p.F

    r764 r1823  
    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/trunk/libf/dyn3dpar/calfis_p.F

    r1676 r1823  
    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/trunk/libf/dyn3dpar/ce0l.F90

    r1785 r1823  
    2222  USE mod_const_mpi
    2323  USE infotrac
    24   USE parallel, ONLY: finalize_parallel
     24  USE parallel_lmdz
    2525  USE indice_sol_mod
    2626

  • LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F

    r1793 r1823  
    1616      use mod_filtre_fft, ONLY : use_filtre_fft
    1717      use mod_hallo, ONLY : use_mpi_alloc
    18       use parallel, ONLY : omp_chunk
     18      USE parallel_lmdz, ONLY : omp_chunk
    1919      USE infotrac, ONLY : type_trac
    2020      use assert_m, only: assert

  • LMDZ5/trunk/libf/dyn3dpar/convflu_p.F

    r764 r1823  
    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/trunk/libf/dyn3dpar/convmas1_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/convmas2_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/convmas_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/covcont_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/covnat_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/dissip_p.F

    r985 r1823  
    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/trunk/libf/dyn3dpar/diverg_gam_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/diverg_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/divergf_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/divgrad2_p.F

    r985 r1823  
    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/trunk/libf/dyn3dpar/divgrad_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/dteta1_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/dudv1_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/dudv2_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/dynredem_p.F

    r1635 r1823  
    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/trunk/libf/dyn3dpar/enercin_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/exner_hyb_p.F

    r1625 r1823  
    2929c
    3030c
    31       USE parallel
     31      USE parallel_lmdz
    3232      IMPLICIT NONE
    3333c

  • LMDZ5/trunk/libf/dyn3dpar/exner_milieu_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/filtreg_p.F

    r1680 r1823  
    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/trunk/libf/dyn3dpar/flumass_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/fluxstokenc_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/friction_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/gcm.F

    r1785 r1823  
    1111
    1212      USE mod_const_mpi, ONLY: init_const_mpi
    13       USE parallel
     13      USE parallel_lmdz
    1414      USE infotrac
    1515      USE mod_interface_dyn_phys

  • LMDZ5/trunk/libf/dyn3dpar/geopot_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/getparam.F90

    r1279 r1823  
    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/trunk/libf/dyn3dpar/gr_dyn_fi_p.F

    r1615 r1823  
    77      USE mod_interface_dyn_phys
    88      USE dimphy
    9       USE PARALLEL
     9      USE parallel_lmdz
    1010      IMPLICIT NONE
    1111c=======================================================================

  • LMDZ5/trunk/libf/dyn3dpar/gr_fi_dyn_p.F

    r1615 r1823  
    77      USE mod_interface_dyn_phys
    88      USE dimphy
    9       use parallel
     9      USE parallel_lmdz
    1010      IMPLICIT NONE
    1111c=======================================================================

  • LMDZ5/trunk/libf/dyn3dpar/gr_u_scal_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/gr_v_scal_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/grad_p.F

    r764 r1823  
    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/trunk/libf/dyn3dpar/gradiv2_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/gradiv_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/groupe_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/groupeun_p.F

    r1279 r1823  
    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/trunk/libf/dyn3dpar/guide_p_mod.F90

    r1716 r1823  
    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/trunk/libf/dyn3dpar/initdynav_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/initfluxsto_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/inithist_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/integrd_p.F

    r1616 r1823  
    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/trunk/libf/dyn3dpar/laplacien_gam_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/laplacien_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/laplacien_rot_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/laplacien_rotgam_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/leapfrog_p.F

    r1793 r1823  
    99
    1010       USE misc_mod
    11        USE parallel
     11       USE parallel_lmdz
    1212       USE times
    1313       USE mod_hallo

  • LMDZ5/trunk/libf/dyn3dpar/massbar_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/massbarxy_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/massdair_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/mod_hallo.F90

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

  • LMDZ5/trunk/libf/dyn3dpar/nxgrad_gam_p.F

    r764 r1823  
    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/trunk/libf/dyn3dpar/nxgrad_p.F

    r764 r1823  
    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/trunk/libf/dyn3dpar/nxgraro2_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/nxgrarot_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/pression_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/qminimum_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/rotat_nfil_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/rotat_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/rotatf_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/times.F90

    r1146 r1823  
    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/trunk/libf/dyn3dpar/top_bound_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/tourpot_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/vitvert_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/vlsplt_p.F

    r1520 r1823  
    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/trunk/libf/dyn3dpar/vlspltgen_p.F

    r1146 r1823  
    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/trunk/libf/dyn3dpar/vlspltqs_p.F

    r1520 r1823  
    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/trunk/libf/dyn3dpar/write_field_p.F90

    r763 r1823  
    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/trunk/libf/dyn3dpar/writedynav_p.F

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

  • LMDZ5/trunk/libf/dyn3dpar/writehist_p.F

    r1279 r1823  
    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.