Changeset 1823 for LMDZ5/trunk


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
Files:
2 added
2 deleted
183 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/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/dyn3dmem/addfi_loc.F

    r1673 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/dyn3dmem/advect_new_loc.F

    r1632 r1823  
    44      SUBROUTINE advect_new_loc(ucov,vcov,teta,w,massebx,masseby,
    55     &                        du,dv,dteta)
    6       USE parallel
     6      USE parallel_lmdz
    77      USE write_field_loc
    88      USE advect_new_mod

  • LMDZ5/trunk/libf/dyn3dmem/advect_new_mod.F90

    r1810 r1823  
    1616  USE bands
    1717  USE allocate_field_mod
    18   USE parallel
     18  USE parallel_lmdz
    1919  USE dimensions_mod
    2020  IMPLICIT NONE
    … …  
    3838  USE allocate_field_mod
    3939  USE bands
    40   USE parallel
     40  USE parallel_lmdz
    4141  IMPLICIT NONE
    4242    TYPE(distrib),INTENT(IN) :: dist

  • LMDZ5/trunk/libf/dyn3dmem/advtrac_loc.F

    r1673 r1823  
    1717c            M.A Filiberti (04/2002)
    1818c
    19       USE parallel
     19      USE parallel_lmdz
    2020      USE Write_Field_loc
    2121      USE Write_Field

  • LMDZ5/trunk/libf/dyn3dmem/advtrac_mod.F90

    r1810 r1823  
    88  USE bands
    99  USE allocate_field_mod
    10   USE parallel
     10  USE parallel_lmdz
    1111  USE infotrac
    1212  USE vlspltgen_mod
    … …  
    2424  USE allocate_field_mod
    2525  USE bands
    26   USE parallel
     26  USE parallel_lmdz
    2727  USE vlspltgen_mod
    2828  IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/allocate_field_mod.F90

    r1810 r1823  
    5151
    5252  SUBROUTINE allocate1d_u1d(field,d)
    53   USE parallel
     53  USE parallel_lmdz
    5454  IMPLICIT NONE
    5555  REAL,POINTER :: field(:)
    … …  
    6767
    6868  SUBROUTINE allocate2d_u1d(field,dim1,d)
    69   USE parallel
     69  USE parallel_lmdz
    7070  IMPLICIT NONE
    7171  REAL,POINTER :: field(:,:)
    … …  
    8383
    8484  SUBROUTINE allocate3d_u1d(field,dim1,dim2,d)
    85   USE parallel
     85  USE parallel_lmdz
    8686  IMPLICIT NONE
    8787  REAL,POINTER :: field(:,:,:)
    … …  
    101101
    102102  SUBROUTINE allocate1d_v1d(field,d)
    103   USE parallel
     103  USE parallel_lmdz
    104104  IMPLICIT NONE
    105105  REAL,POINTER :: field(:)
    … …  
    117117
    118118  SUBROUTINE allocate2d_v1d(field,dim1,d)
    119   USE parallel
     119  USE parallel_lmdz
    120120  IMPLICIT NONE
    121121  REAL,POINTER :: field(:,:)
    … …  
    133133
    134134  SUBROUTINE allocate3d_v1d(field,dim1,dim2,d)
    135   USE parallel
     135  USE parallel_lmdz
    136136  IMPLICIT NONE
    137137  REAL,POINTER :: field(:,:,:)
    … …  
    157157
    158158  SUBROUTINE allocate1d_u2d(field,d)
    159   USE parallel
     159  USE parallel_lmdz
    160160  USE dimensions_mod
    161161  IMPLICIT NONE
    … …  
    174174
    175175  SUBROUTINE allocate2d_u2d(field,dim1,d)
    176   USE parallel
     176  USE parallel_lmdz
    177177  USE dimensions_mod
    178178  IMPLICIT NONE
    … …  
    191191
    192192  SUBROUTINE allocate3d_u2d(field,dim1,dim2,d)
    193   USE parallel
     193  USE parallel_lmdz
    194194  USE dimensions_mod
    195195  IMPLICIT NONE
    … …  
    210210
    211211  SUBROUTINE allocate1d_v2d(field,d)
    212   USE parallel
     212  USE parallel_lmdz
    213213  USE dimensions_mod
    214214  IMPLICIT NONE
    … …  
    227227
    228228  SUBROUTINE allocate2d_v2d(field,dim1,d)
    229   USE parallel
     229  USE parallel_lmdz
    230230  USE dimensions_mod
    231231  IMPLICIT NONE
    … …  
    244244
    245245  SUBROUTINE allocate3d_v2d(field,dim1,dim2,d)
    246   USE parallel
     246  USE parallel_lmdz
    247247  USE dimensions_mod
    248248  IMPLICIT NONE
    … …  
    279279
    280280  SUBROUTINE switch1d_u1d(field,old_dist,new_dist,up,down)
    281   USE parallel
     281  USE parallel_lmdz
    282282  USE mod_hallo
    283283  IMPLICIT NONE
    … …  
    315315 
    316316  SUBROUTINE switch2d_u1d(field,old_dist,new_dist,up,down)
    317   USE parallel
     317  USE parallel_lmdz
    318318  USE mod_hallo
    319319  IMPLICIT NONE
    … …  
    351351
    352352  SUBROUTINE switch3d_u1d(field,old_dist,new_dist,up,down)
    353   USE parallel
     353  USE parallel_lmdz
    354354  USE mod_hallo
    355355  IMPLICIT NONE
    … …  
    390390
    391391  SUBROUTINE switch1d_v1d(field,old_dist,new_dist,up,down)
    392   USE parallel
     392  USE parallel_lmdz
    393393  USE mod_hallo
    394394  IMPLICIT NONE
    … …  
    426426 
    427427  SUBROUTINE switch2d_v1d(field,old_dist,new_dist,up,down)
    428   USE parallel
     428  USE parallel_lmdz
    429429  USE mod_hallo
    430430  IMPLICIT NONE
    … …  
    462462
    463463  SUBROUTINE switch3d_v1d(field,old_dist,new_dist,up,down)
    464   USE parallel
     464  USE parallel_lmdz
    465465  USE mod_hallo
    466466  IMPLICIT NONE
    … …  
    509509
    510510  SUBROUTINE switch1d_u2d(field,old_dist,new_dist,up,down)
    511   USE parallel
     511  USE parallel_lmdz
    512512  USE mod_hallo
    513513  USE dimensions_mod
    … …  
    546546 
    547547  SUBROUTINE switch2d_u2d(field,old_dist,new_dist,up,down)
    548   USE parallel
     548  USE parallel_lmdz
    549549  USE mod_hallo
    550550  USE dimensions_mod
    … …  
    583583
    584584  SUBROUTINE switch3d_u2d(field,old_dist,new_dist,up,down)
    585   USE parallel
     585  USE parallel_lmdz
    586586  USE mod_hallo
    587587  USE dimensions_mod
    … …  
    623623
    624624  SUBROUTINE switch1d_v2d(field,old_dist,new_dist,up,down)
    625   USE parallel
     625  USE parallel_lmdz
    626626  USE mod_hallo
    627627  USE dimensions_mod
    … …  
    660660 
    661661  SUBROUTINE switch2d_v2d(field,old_dist,new_dist,up,down)
    662   USE parallel
     662  USE parallel_lmdz
    663663  USE mod_hallo
    664664  USE dimensions_mod
    … …  
    697697
    698698  SUBROUTINE switch3d_v2d(field,old_dist,new_dist,up,down)
    699   USE parallel
     699  USE parallel_lmdz
    700700  USE mod_hallo
    701701  USE dimensions_mod

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

    r1673 r1823  
    33!
    44  module Bands
    5   USE parallel
     5  USE parallel_lmdz
    66    integer, parameter :: bands_caldyn=1
    77    integer, parameter :: bands_vanleer=2
    … …  
    2727 
    2828  subroutine AllocateBands
    29     use parallel
     29    USE parallel_lmdz
    3030    implicit none
    3131   
    … …  
    4141 
    4242  subroutine Read_distrib
    43     use parallel
     43    USE parallel_lmdz
    4444    implicit none
    4545
    … …  
    104104   
    105105   SUBROUTINE  Set_Bands
    106      USE parallel
     106     USE parallel_lmdz
    107107#ifdef CPP_PHYS
    108108! Ehouarn: what follows is only related to // physics
    … …  
    168168    subroutine AdjustBands_caldyn(new_dist)
    169169      use times
    170       use parallel
     170      USE parallel_lmdz
    171171      implicit none
    172172      TYPE(distrib),INTENT(INOUT) :: new_dist
    … …  
    235235    subroutine AdjustBands_vanleer(new_dist)
    236236      use times
    237       use parallel
     237      USE parallel_lmdz
    238238      implicit none
    239239      TYPE(distrib),INTENT(INOUT) :: new_dist
    … …  
    304304    subroutine AdjustBands_dissip(new_dist)
    305305      use times
    306       use parallel
     306      USE parallel_lmdz
    307307      implicit none
    308308      TYPE(distrib),INTENT(INOUT) :: new_dist
    … …  
    377377      USE mod_phys_lmdz_para, only : klon_mpi_para_nb
    378378#endif
    379       USE parallel
     379      USE parallel_lmdz
    380380      implicit none
    381381
    … …  
    428428
    429429    subroutine WriteBands
    430     USE parallel
     430    USE parallel_lmdz
    431431    implicit none
    432432    include "dimensions.h"

  • LMDZ5/trunk/libf/dyn3dmem/bernoui_loc.F

    r1632 r1823  
    11      SUBROUTINE bernoui_loc (ngrid,nlay,pphi,pecin,pbern)
    2       USE parallel
     2      USE parallel_lmdz
    33      USE mod_filtreg_p
    44      IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/bilan_dyn_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/caladvtrac_loc.F

    r1804 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/dyn3dmem/caladvtrac_mod.F90

    r1810 r1823  
    2222  USE bands
    2323  USE allocate_field_mod
    24   USE parallel
     24  USE parallel_lmdz
    2525  USE infotrac
    2626  USE advtrac_mod, ONLY : advtrac_allocate
    … …  
    5757  USE allocate_field_mod
    5858  USE bands
    59   USE parallel
     59  USE parallel_lmdz
    6060  USE groupe_mod
    6161  IMPLICIT NONE
    … …  
    7676  USE allocate_field_mod
    7777  USE bands
    78   USE parallel
     78  USE parallel_lmdz
    7979  USE advtrac_mod, ONLY : advtrac_switch_vanleer
    8080  IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/caldyn_loc.F

    r1632 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_loc
    1414      USE caldyn_mod

  • LMDZ5/trunk/libf/dyn3dmem/caldyn_mod.F90

    r1810 r1823  
    2121  USE bands
    2222  USE allocate_field_mod
    23   USE parallel
     23  USE parallel_lmdz
    2424  USE dimensions_mod
    2525  USE advect_new_mod,ONLY : advect_new_allocate
    … …  
    4949  USE allocate_field_mod
    5050  USE bands
    51   USE parallel
     51  USE parallel_lmdz
    5252  USE advect_new_mod,ONLY : advect_new_switch_caldyn
    5353  IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/calfis_loc.F

    r1749 r1823  
    3737      USE IOPHY
    3838#endif
    39       USE parallel, ONLY : omp_chunk, using_mpi,jjb_u,jje_u,jjb_v,jje_v
     39      USE parallel_lmdz,ONLY:omp_chunk,using_mpi,jjb_u,jje_u,jjb_v,jje_v
    4040      USE Write_Field
    4141      Use Write_field_p

  • LMDZ5/trunk/libf/dyn3dmem/call_calfis_mod.F90

    r1810 r1823  
    3737  USE bands
    3838  USE allocate_field_mod
    39   USE parallel
     39  USE parallel_lmdz
    4040  USE dimensions_mod
    4141  USE infotrac
    … …  
    7575                         phis_dyn,q_dyn,flxw_dyn)
    7676  USE dimensions_mod
    77   USE parallel
     77  USE parallel_lmdz
    7878  USE times
    7979  USE mod_hallo

  • LMDZ5/trunk/libf/dyn3dmem/call_dissip_mod.F90

    r1810 r1823  
    2323  USE bands
    2424  USE allocate_field_mod
    25   USE parallel
     25  USE parallel_lmdz
    2626  USE dimensions_mod
    2727  USE dissip_mod, ONLY : dissip_allocate
    … …  
    5252  USE allocate_field_mod
    5353  USE bands
    54   USE parallel
     54  USE parallel_lmdz
    5555  USE dissip_mod, ONLY : dissip_switch_dissip
    5656  IMPLICIT NONE
    … …  
    7979  SUBROUTINE call_dissip(ucov_dyn,vcov_dyn,teta_dyn,p_dyn,pk_dyn,ps_dyn)
    8080  USE dimensions_mod
    81   USE parallel
     81  USE parallel_lmdz
    8282  USE times
    8383  USE mod_hallo

  • LMDZ5/trunk/libf/dyn3dmem/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/dyn3dmem/conf_gcm.F

    r1793 r1823  
    1717      use mod_filtre_fft_loc, ONLY : use_filtre_fft_loc=>use_filtre_fft
    1818      use mod_hallo, ONLY : use_mpi_alloc
    19       use parallel, ONLY : omp_chunk
     19      USE parallel_lmdz, ONLY : omp_chunk
    2020      USE infotrac, ONLY : type_trac
    2121      use assert_m, only: assert

  • LMDZ5/trunk/libf/dyn3dmem/convflu_loc.F

    r1632 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/dyn3dmem/convmas1_loc.F

    r1632 r1823  
    11      SUBROUTINE convmas1_loc (pbaru, pbarv, convm )
    22c
    3       USE parallel
     3      USE parallel_lmdz
    44      USE mod_filtreg_p
    55      IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/convmas2_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/convmas_loc.F

    r1632 r1823  
    11      SUBROUTINE convmas_loc (pbaru, pbarv, convm )
    22c
    3       USE parallel
     3      USE parallel_lmdz
    44      USE mod_filtreg_p
    55      IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/covcont_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/covnat_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/dissip_loc.F

    r1632 r1823  
    11      SUBROUTINE dissip_loc( vcov,ucov,teta,p, dv,du,dh )
    22c
    3       USE parallel
     3      USE parallel_lmdz
    44      USE write_field_loc
    55      USE dissip_mod

  • LMDZ5/trunk/libf/dyn3dmem/dissip_mod.F90

    r1810 r1823  
    88  USE bands
    99  USE allocate_field_mod
    10   USE parallel
     10  USE parallel_lmdz
    1111  USE dimensions_mod
    1212  USE gradiv2_mod, ONLY : gradiv2_allocate
    … …  
    2525  USE allocate_field_mod
    2626  USE bands
    27   USE parallel
     27  USE parallel_lmdz
    2828  USE gradiv2_mod,ONLY : gradiv2_switch_dissip
    2929  USE nxgraro2_mod,ONLY : nxgraro2_switch_dissip

  • LMDZ5/trunk/libf/dyn3dmem/diverg_gam_loc.F

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

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

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

  • LMDZ5/trunk/libf/dyn3dmem/divergf_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/divgrad2_loc.F

    r1632 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/dyn3dmem/divgrad2_mod.F90

    r1810 r1823  
    88  USE bands
    99  USE allocate_field_mod
    10   USE parallel
     10  USE parallel_lmdz
    1111  USE dimensions_mod
    1212  IMPLICIT NONE
    … …  
    2222  USE allocate_field_mod
    2323  USE bands
    24   USE parallel
     24  USE parallel_lmdz
    2525  IMPLICIT NONE
    2626    TYPE(distrib),INTENT(IN) :: dist

  • LMDZ5/trunk/libf/dyn3dmem/dteta1_loc.F

    r1632 r1823  
    11      SUBROUTINE dteta1_loc ( teta, pbaru, pbarv, dteta)
    2       USE parallel
     2      USE parallel_lmdz
    33      USE write_field_p
    44      USE mod_filtreg_p

  • LMDZ5/trunk/libf/dyn3dmem/dudv1_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/dudv2_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/dynetat0_loc.F

    r1673 r1823  
    66      USE infotrac
    77      use control_mod, only : planet_type
    8       USE parallel
     8      USE parallel_lmdz
    99      IMPLICIT NONE
    1010

  • LMDZ5/trunk/libf/dyn3dmem/dynredem_loc.F

    r1673 r1823  
    77      USE IOIPSL
    88#endif
    9       USE parallel
     9      USE parallel_lmdz
    1010      USE mod_hallo
    1111      USE infotrac
    … …  
    528528      SUBROUTINE dynredem1_loc(fichnom,time,
    529529     .                     vcov,ucov,teta,q,masse,ps)
    530       USE parallel
     530      USE parallel_lmdz
    531531      USE mod_hallo
    532532      USE infotrac

  • LMDZ5/trunk/libf/dyn3dmem/dynredem_mod.F90

    r1810 r1823  
    88  SUBROUTINE dynredem_write_u(ncid,id,var,ll)
    99  USE dimensions_mod
    10   USE parallel
     10  USE parallel_lmdz
    1111  USE mod_hallo
    1212  IMPLICIT NONE
    … …  
    7373  SUBROUTINE dynredem_write_v(ncid,id,var,ll)
    7474  USE dimensions_mod
    75   USE parallel
     75  USE parallel_lmdz
    7676  USE mod_hallo
    7777  IMPLICIT NONE
    … …  
    138138  SUBROUTINE dynredem_read_u(ncid,id,var,ll)
    139139  USE dimensions_mod
    140   USE parallel
     140  USE parallel_lmdz
    141141  USE mod_hallo
    142142  IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/enercin_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/exner_hyb_loc.F

    r1673 r1823  
    2929c
    3030c
    31       USE parallel
     31      USE parallel_lmdz
    3232      USE mod_filtreg_p
    3333      USE write_field_loc

  • LMDZ5/trunk/libf/dyn3dmem/exner_milieu_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/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/dyn3dmem/flumass_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/friction_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/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/dyn3dmem/geopot_loc.F

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

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

    r1632 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/dyn3dmem/gr_dyn_fi_p.F

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

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

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

  • LMDZ5/trunk/libf/dyn3dmem/gr_u_scal_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/gr_v_scal_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/grad_loc.F

    r1632 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/dyn3dmem/grad_p.F

    r1632 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/dyn3dmem/gradiv2_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/gradiv2_mod.F90

    r1810 r1823  
    1010  USE bands
    1111  USE allocate_field_mod
    12   USE parallel
     12  USE parallel_lmdz
    1313  USE dimensions_mod
    1414  IMPLICIT NONE
    … …  
    2626  USE allocate_field_mod
    2727  USE bands
    28   USE parallel
     28  USE parallel_lmdz
    2929  IMPLICIT NONE
    3030    TYPE(distrib),INTENT(IN) :: dist

  • LMDZ5/trunk/libf/dyn3dmem/groupe_loc.F

    r1632 r1823  
    11      subroutine groupe_loc(pext,pbaru,pbarv,pbarum,pbarvm,wm)
    2       USE parallel
     2      USE parallel_lmdz
    33      USE Write_field_loc
    44      USE groupe_mod

  • LMDZ5/trunk/libf/dyn3dmem/groupe_mod.F90

    r1810 r1823  
    99  USE bands
    1010  USE allocate_field_mod
    11   USE parallel
     11  USE parallel_lmdz
    1212  USE infotrac
    1313  USE advtrac_mod, ONLY : advtrac_allocate
    … …  
    2727  USE allocate_field_mod
    2828  USE bands
    29   USE parallel
     29  USE parallel_lmdz
    3030  IMPLICIT NONE
    3131    TYPE(distrib),INTENT(IN) :: dist

  • LMDZ5/trunk/libf/dyn3dmem/groupeun_loc.F

    r1632 r1823  
    11      SUBROUTINE groupeun_loc(jjmax,llmax,sb,se,jjb,jje,q)
    2       USE parallel
     2      USE parallel_lmdz
    33      USE Write_Field_p
    44      IMPLICIT NONE
    … …  
    135135      SUBROUTINE init_groupeun_loc(airen_tab, aires_tab)
    136136
    137       USE parallel
     137      USE parallel_lmdz
    138138      IMPLICIT NONE
    139139

  • LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90

    r1806 r1823  
    1212  USE Write_Field_loc
    1313  use netcdf, only: nf90_nowrite, nf90_open, nf90_inq_varid, nf90_close
    14   USE parallel
     14  USE parallel_lmdz
    1515  USE pres2lev_mod
    1616
    … …  
    293293!=======================================================================
    294294  SUBROUTINE guide_main(itau,ucov,vcov,teta,q,masse,ps)
    295     use parallel
     295    USE parallel_lmdz
    296296    USE control_mod
    297297    USE write_field_loc
    … …  
    858858!=======================================================================
    859859  SUBROUTINE guide_interp(psi,teta)
    860   USE parallel
     860  USE parallel_lmdz
    861861  USE mod_hallo
    862862  USE Bands
    … …  
    19751975!=======================================================================
    19761976  SUBROUTINE guide_out(varname,hsize,vsize,field,factt)
    1977     USE parallel
     1977    USE parallel_lmdz
    19781978    IMPLICIT NONE
    19791979

  • LMDZ5/trunk/libf/dyn3dmem/iniacademic_loc.F90

    r1749 r1823  
    77  USE infotrac, ONLY : nqtot
    88  USE control_mod, ONLY: day_step,planet_type
    9   USE parallel
     9  USE parallel_lmdz
    1010#ifdef CPP_IOIPSL
    1111  USE IOIPSL

  • LMDZ5/trunk/libf/dyn3dmem/initdynav_loc.F

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

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

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

  • LMDZ5/trunk/libf/dyn3dmem/inithist_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F

    r1705 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
    99      USE mod_filtreg_p

  • LMDZ5/trunk/libf/dyn3dmem/integrd_mod.F90

    r1810 r1823  
    1212  USE bands
    1313  USE allocate_field_mod
    14   USE parallel
     14  USE parallel_lmdz
    1515  USE dimensions_mod
    1616  USE advect_new_mod,ONLY : advect_new_allocate
    … …  
    3030  USE allocate_field_mod
    3131  USE bands
    32   USE parallel
     32  USE parallel_lmdz
    3333  IMPLICIT NONE
    3434    TYPE(distrib),INTENT(IN) :: dist

  • LMDZ5/trunk/libf/dyn3dmem/laplacien_gam_loc.F

    r1632 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/dyn3dmem/laplacien_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/laplacien_rot_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/laplacien_rotgam_loc.F

    r1632 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/dyn3dmem/leapfrog_loc.F

    r1810 r1823  
    1313
    1414       USE misc_mod
    15        USE parallel
     15       USE parallel_lmdz
    1616       USE times
    1717       USE mod_hallo

  • LMDZ5/trunk/libf/dyn3dmem/leapfrog_mod.F90

    r1810 r1823  
    4040  USE bands
    4141  USE allocate_field_mod
    42   USE parallel
     42  USE parallel_lmdz
    4343  USE dimensions_mod
    4444  USE infotrac
    … …  
    9696  USE allocate_field_mod
    9797  USE bands
    98   USE parallel
     98  USE parallel_lmdz
    9999  USE caldyn_mod,ONLY : caldyn_switch_caldyn
    100100  USE integrd_mod,ONLY : integrd_switch_caldyn
    … …  
    145145  USE allocate_field_mod
    146146  USE bands
    147   USE parallel
     147  USE parallel_lmdz
    148148  USE call_dissip_mod,ONLY : call_dissip_switch_dissip
    149149  IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/massbar_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/massbarxy_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/massdair_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/mod_filtreg_p.F

    r1805 r1823  
    55      SUBROUTINE filtreg_p ( champ,jjb,jje, ibeg, iend, nlat, nbniv,
    66     &     ifiltre, iaire, griscal ,iter)
    7       USE Parallel, only : OMP_CHUNK
     7      USE parallel_lmdz, only : OMP_CHUNK
    88      USE mod_filtre_fft_loc
    99      USE timer_filtre

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

    r1810 r1823  
    11module mod_Hallo
    2 USE parallel
     2USE parallel_lmdz
    33implicit none
    44  logical,save :: use_mpi_alloc
    … …  
    340340
    341341  SUBROUTINE Register_SwapField1d_u(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    342   USE parallel
     342  USE parallel_lmdz
    343343  USE dimensions_mod
    344344      IMPLICIT NONE
    … …  
    371371
    372372  SUBROUTINE Register_SwapField2d_u1d(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    373   USE parallel
     373  USE parallel_lmdz
    374374  USE dimensions_mod
    375375    IMPLICIT NONE
    … …  
    405405
    406406  SUBROUTINE Register_SwapField3d_u(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    407   USE parallel
     407  USE parallel_lmdz
    408408  USE dimensions_mod
    409409      IMPLICIT NONE
    … …  
    440440
    441441 SUBROUTINE Register_SwapField1d_u2d(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    442   USE parallel
     442  USE parallel_lmdz
    443443  USE dimensions_mod
    444444
    … …  
    472472
    473473  SUBROUTINE Register_SwapField2d_u2d(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    474   USE parallel
     474  USE parallel_lmdz
    475475  USE dimensions_mod
    476476
    … …  
    507507
    508508  SUBROUTINE Register_SwapField3d_u2d(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    509   USE parallel
     509  USE parallel_lmdz
    510510  USE dimensions_mod
    511511      IMPLICIT NONE
    … …  
    546546
    547547  SUBROUTINE Register_SwapField1d_v(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    548   USE parallel
     548  USE parallel_lmdz
    549549  USE dimensions_mod
    550550      IMPLICIT NONE
    … …  
    577577
    578578  SUBROUTINE Register_SwapField2d_v1d(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    579   USE parallel
     579  USE parallel_lmdz
    580580  USE dimensions_mod
    581581      IMPLICIT NONE
    … …  
    611611
    612612  SUBROUTINE Register_SwapField3d_v(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    613   USE parallel
     613  USE parallel_lmdz
    614614  USE dimensions_mod
    615615      IMPLICIT NONE
    … …  
    647647
    648648  SUBROUTINE Register_SwapField1d_v2d(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    649   USE parallel
     649  USE parallel_lmdz
    650650  USE dimensions_mod
    651651      IMPLICIT NONE
    … …  
    678678
    679679  SUBROUTINE Register_SwapField2d_v2d(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    680   USE parallel
     680  USE parallel_lmdz
    681681  USE dimensions_mod
    682682      IMPLICIT NONE
    … …  
    712712
    713713  SUBROUTINE Register_SwapField3d_v2d(FieldS,FieldR,new_dist,a_request,old_dist,up,down)
    714   USE parallel
     714  USE parallel_lmdz
    715715  USE dimensions_mod
    716716      IMPLICIT NONE
    … …  
    747747
    748748  SUBROUTINE Register_SwapField_gen_u(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request)
    749   USE parallel
     749  USE parallel_lmdz
    750750  USE dimensions_mod
    751751      IMPLICIT NONE
    … …  
    800800
    801801  SUBROUTINE Register_SwapField_gen_v(FieldS,FieldR,ll,old_dist,new_dist,Up,Down,a_request)
    802   USE parallel
     802  USE parallel_lmdz
    803803  USE dimensions_mod
    804804    IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/nxgrad_gam_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/nxgrad_loc.F

    r1632 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/dyn3dmem/nxgraro2_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/nxgraro2_mod.F90

    r1810 r1823  
    1010  USE bands
    1111  USE allocate_field_mod
    12   USE parallel
     12  USE parallel_lmdz
    1313  USE dimensions_mod
    1414  IMPLICIT NONE
    … …  
    2626  USE allocate_field_mod
    2727  USE bands
    28   USE parallel
     28  USE parallel_lmdz
    2929  IMPLICIT NONE
    3030    TYPE(distrib),INTENT(IN) :: dist

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

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

  • LMDZ5/trunk/libf/dyn3dmem/pression_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/qminimum_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/rotat_nfil_loc.F

    r1632 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/dyn3dmem/rotat_p.F

    r1632 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/dyn3dmem/rotatf_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/sw_case_williamson91_6_loc.F

    r1749 r1823  
    2626c
    2727c=======================================================================
    28       USE parallel
     28      USE parallel_lmdz
    2929
    3030      IMPLICIT NONE

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

    r1632 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/dyn3dmem/top_bound_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/tourpot_loc.F

    r1632 r1823  
    11      SUBROUTINE tourpot_loc ( vcov, ucov, massebxy, vorpot )
    2       USE parallel
     2      USE parallel_lmdz
    33      USE mod_filtreg_p
    44      IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/vitvert_loc.F

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

  • LMDZ5/trunk/libf/dyn3dmem/vlsplt_loc.F

    r1673 r1823  
    1313c
    1414c   --------------------------------------------------------------------
    15       USE Parallel
     15      USE parallel_lmdz
    1616      IMPLICIT NONE
    1717c
    … …  
    348348c
    349349c   --------------------------------------------------------------------
    350       USE parallel
     350      USE parallel_lmdz
    351351      IMPLICIT NONE
    352352c
    … …  
    737737c
    738738c   --------------------------------------------------------------------
    739       USE Parallel
     739      USE parallel_lmdz
    740740      USE vlz_mod
    741741      IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/vlspltgen_loc.F

    r1632 r1823  
    2323c     pk exner au milieu des couches necessaire pour calculer Qsat
    2424c   --------------------------------------------------------------------
    25       USE parallel
     25      USE parallel_lmdz
    2626      USE mod_hallo
    2727      USE Write_Field_loc

  • LMDZ5/trunk/libf/dyn3dmem/vlspltgen_mod.F90

    r1810 r1823  
    1313  USE bands
    1414  USE allocate_field_mod
    15   USE parallel
     15  USE parallel_lmdz
    1616  USE infotrac
    1717  USE vlz_mod,ONLY : vlz_allocate
    … …  
    3636  USE allocate_field_mod
    3737  USE bands
    38   USE parallel
     38  USE parallel_lmdz
    3939  USE vlz_mod,ONLY : vlz_switch_vanleer
    4040  IMPLICIT NONE

  • LMDZ5/trunk/libf/dyn3dmem/vlspltqs_loc.F

    r1673 r1823  
    88c
    99c   --------------------------------------------------------------------
    10       USE parallel
     10      USE parallel_lmdz
    1111      IMPLICIT NONE
    1212c
    … …  
    360360c
    361361c   --------------------------------------------------------------------
    362       USE parallel
     362      USE parallel_lmdz
    363363      IMPLICIT NONE
    364364c

  • LMDZ5/trunk/libf/dyn3dmem/vlz_mod.F90

    r1810 r1823  
    1111  USE bands
    1212  USE allocate_field_mod
    13   USE parallel
     13  USE parallel_lmdz
    1414  USE infotrac
    1515  USE dimensions_mod
    … …  
    2828  USE allocate_field_mod
    2929  USE bands
    30   USE parallel
     30  USE parallel_lmdz
    3131  IMPLICIT NONE
    3232    TYPE(distrib),INTENT(IN) :: dist

  • LMDZ5/trunk/libf/dyn3dmem/write_field_loc.F90

    r1632 r1823  
    3434
    3535   SUBROUTINE write_field_u_gen(name,Field,ll)
    36     USE parallel
     36    USE parallel_lmdz
    3737    USE write_field
    3838    USE mod_hallo
    … …  
    9898
    9999   SUBROUTINE write_field_v_gen(name,Field,ll)
    100     USE parallel
     100    USE parallel_lmdz
    101101    USE write_field
    102102    USE mod_hallo

  • LMDZ5/trunk/libf/dyn3dmem/write_field_p.F90

    r1632 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/dyn3dmem/writedynav_loc.F

    r1632 r1823  
    99      USE ioipsl
    1010#endif
    11       USE parallel
     11      USE parallel_lmdz
    1212      USE misc_mod
    1313      USE infotrac, ONLY : nqtot, ttext

  • LMDZ5/trunk/libf/dyn3dmem/writehist_loc.F

    r1632 r1823  
    99      USE ioipsl
    1010#endif
    11       USE parallel
     11      USE parallel_lmdz
    1212      USE misc_mod
    1313      USE infotrac, ONLY : nqtot, ttext

  • 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

  • LMDZ5/trunk/libf/filtrez/mod_filtre_fft.F90

    r1403 r1823  
    118118    USE mod_fft
    119119#ifdef CPP_PARA
    120     USE parallel,ONLY : OMP_CHUNK
     120    USE parallel_lmdz,ONLY : OMP_CHUNK
    121121#endif
    122122    IMPLICIT NONE
    … …  
    179179    USE mod_fft
    180180#ifdef CPP_PARA
    181     USE parallel,ONLY : OMP_CHUNK
     181    USE parallel_lmdz,ONLY : OMP_CHUNK
    182182#endif
    183183    IMPLICIT NONE
    … …  
    241241    USE mod_fft
    242242#ifdef CPP_PARA
    243     USE parallel,ONLY : OMP_CHUNK
     243    USE parallel_lmdz,ONLY : OMP_CHUNK
    244244#endif
    245245    IMPLICIT NONE

  • LMDZ5/trunk/libf/filtrez/mod_filtre_fft_loc.F90

    r1701 r1823  
    107107    USE mod_fft
    108108#ifdef CPP_PARA
    109     USE parallel,ONLY : OMP_CHUNK
     109    USE parallel_lmdz,ONLY : OMP_CHUNK
    110110#endif
    111111    IMPLICIT NONE
    … …  
    187187    USE mod_fft
    188188#ifdef CPP_PARA
    189     USE parallel,ONLY : OMP_CHUNK
     189    USE parallel_lmdz,ONLY : OMP_CHUNK
    190190#endif
    191191    IMPLICIT NONE
    … …  
    250250    USE mod_fft
    251251#ifdef CPP_PARA
    252     USE parallel,ONLY : OMP_CHUNK
     252    USE parallel_lmdz,ONLY : OMP_CHUNK
    253253#endif
    254254    IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.