Ignore:
Timestamp:
Jul 24, 2024, 11:19:08 AM (4 months ago)
Author:
abarral
Message:

Rename modules properly (mod_* -> lmdz_*) in phy_common

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/mod_surf_para.F90

    r4600 r5110  
    4949
    5050  SUBROUTINE Init_surf_para(knon)
    51   USE mod_phys_lmdz_para
     51  USE lmdz_phys_para
    5252  USE lmdz_mpi
    5353
    … …  
    116116 
    117117  SUBROUTINE Finalize_surf_para
    118   USE mod_phys_lmdz_para
     118  USE lmdz_phys_para
    119119
    120120!$OMP BARRIER   
    … …  
    135135 
    136136  SUBROUTINE gather_surf_i(FieldIn, FieldOut)
    137   USE mod_phys_lmdz_para
     137  USE lmdz_phys_para
    138138    INTEGER :: FieldIn(:)
    139139    INTEGER :: FieldOut(:)
    … …  
    147147
    148148  SUBROUTINE gather_surf_omp_i(FieldIn,FieldOut)
    149   USE mod_phys_lmdz_para
     149  USE lmdz_phys_para
    150150    INTEGER :: FieldIn(:)
    151151    INTEGER :: FieldOut(:)
    … …  
    165165     
    166166  SUBROUTINE gather_surf_mpi_i(FieldIn,FieldOut)
    167   USE mod_phys_lmdz_para
     167  USE lmdz_phys_para
    168168  USE lmdz_mpi
    169169
    … …  
    187187
    188188  SUBROUTINE gather_surf_r(FieldIn, FieldOut)
    189   USE mod_phys_lmdz_para
     189  USE lmdz_phys_para
    190190    REAL :: FieldIn(:)
    191191    REAL :: FieldOut(:)
    … …  
    199199
    200200  SUBROUTINE gather_surf_omp_r(FieldIn,FieldOut)
    201   USE mod_phys_lmdz_para
     201  USE lmdz_phys_para
    202202    REAL :: FieldIn(:)
    203203    REAL :: FieldOut(:)
    … …  
    217217     
    218218  SUBROUTINE gather_surf_mpi_r(FieldIn,FieldOut)
    219   USE mod_phys_lmdz_para
     219  USE lmdz_phys_para
    220220  USE lmdz_mpi
    221221
    … …  
    238238
    239239  SUBROUTINE scatter_surf_i(FieldIn, FieldOut)
    240   USE mod_phys_lmdz_para
     240  USE lmdz_phys_para
    241241    INTEGER :: FieldIn(:)
    242242    INTEGER :: FieldOut(:)
    … …  
    250250
    251251  SUBROUTINE scatter_surf_omp_i(FieldIn,FieldOut)
    252   USE mod_phys_lmdz_para
     252  USE lmdz_phys_para
    253253    INTEGER :: FieldIn(:)
    254254    INTEGER :: FieldOut(:)
    … …  
    267267     
    268268  SUBROUTINE scatter_surf_mpi_i(FieldIn,FieldOut)
    269   USE mod_phys_lmdz_para
     269  USE lmdz_phys_para
    270270  USE lmdz_mpi
    271271
    … …  
    287287
    288288  SUBROUTINE scatter_surf_r(FieldIn, FieldOut)
    289   USE mod_phys_lmdz_para
     289  USE lmdz_phys_para
    290290    REAL :: FieldIn(:)
    291291    REAL :: FieldOut(:)
    … …  
    299299
    300300  SUBROUTINE scatter_surf_omp_r(FieldIn,FieldOut)
    301   USE mod_phys_lmdz_para
     301  USE lmdz_phys_para
    302302    REAL :: FieldIn(:)
    303303    REAL :: FieldOut(:)
    … …  
    316316     
    317317  SUBROUTINE scatter_surf_mpi_r(FieldIn,FieldOut)
    318   USE mod_phys_lmdz_para
     318  USE lmdz_phys_para
    319319  USE lmdz_mpi
    320320
Note: See TracChangeset for help on using the changeset viewer.