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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.