Ignore:
Timestamp:
Jul 24, 2024, 12:45:32 PM (3 months ago)
Author:
abarral
Message:

Rename modules in phy_common from *_mod > lmdz_*

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_ioipsl_getin_p.F90

    r5111 r5112  
    1 
    21! $Id$
    32
    4 MODULE ioipsl_getin_p_mod
    5 ! To use getin in a parallel context
    6 !---------------------------------------------------------------------
    7 USE ioipsl, ONLY: getin
    8 USE lmdz_phys_mpi_data, ONLY: is_mpi_root
    9 USE lmdz_phys_omp_data, ONLY: is_omp_root
    10 USE lmdz_phys_transfert_para, ONLY: bcast
    11 !-
    12 IMPLICIT NONE
    13 !-
    14 PRIVATE
    15 PUBLIC :: getin_p
    16 !-
    17 INTERFACE getin_p
     3MODULE lmdz_ioipsl_getin_p
     4  ! To use getin in a parallel context
     5  !---------------------------------------------------------------------
     6  USE ioipsl, ONLY: getin
     7  USE lmdz_phys_mpi_data, ONLY: is_mpi_root
     8  USE lmdz_phys_omp_data, ONLY: is_omp_root
     9  USE lmdz_phys_transfert_para, ONLY: bcast
     10  !-
     11  IMPLICIT NONE
     12  !-
     13  PRIVATE
     14  PUBLIC :: getin_p
     15  !-
     16  INTERFACE getin_p
    1817
    19   MODULE PROCEDURE getinrs_p, getinr1d_p, getinr2d_p, &
    20                    getinis_p, getini1d_p, getini2d_p, &
    21                    getincs_p,                        &
    22                    getinls_p, getinl1d_p, getinl2d_p
    23 END INTERFACE
    24 !-
     18    MODULE PROCEDURE getinrs_p, getinr1d_p, getinr2d_p, &
     19            getinis_p, getini1d_p, getini2d_p, &
     20            getincs_p, &
     21            getinls_p, getinl1d_p, getinl2d_p
     22  END INTERFACE
     23  !-
    2524CONTAINS
    2625
    2726
    28 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    29 !!   Definition des getin -> bcast      !!
    30 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     27  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     28  !!   Definition des getin -> bcast      !!
     29  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    3130
    32 !! -- Les chaines de caracteres -- !!
    33  
    34   SUBROUTINE getincs_p(VarIn,VarOut)
    35     IMPLICIT NONE   
    36     CHARACTER(LEN=*),INTENT(IN) :: VarIn
    37     CHARACTER(LEN=*),INTENT(INOUT) :: VarOut   
     31  !! -- Les chaines de caracteres -- !!
    3832
    39 !$OMP BARRIER
     33  SUBROUTINE getincs_p(VarIn, VarOut)
     34    IMPLICIT NONE
     35    CHARACTER(LEN = *), INTENT(IN) :: VarIn
     36    CHARACTER(LEN = *), INTENT(INOUT) :: VarOut
     37
     38    !$OMP BARRIER
    4039    IF (is_mpi_root .AND. is_omp_root) THEN
    41         CALL getin(VarIn,VarOut)
     40      CALL getin(VarIn, VarOut)
    4241    ENDIF
    4342    CALL bcast(VarOut)
    4443  END SUBROUTINE getincs_p
    4544
    46 !! -- Les entiers -- !!
    47  
    48   SUBROUTINE getinis_p(VarIn,VarOut)
    49     IMPLICIT NONE   
    50     CHARACTER(LEN=*),INTENT(IN) :: VarIn
    51     INTEGER,INTENT(INOUT) :: VarOut   
     45  !! -- Les entiers -- !!
    5246
    53 !$OMP BARRIER
     47  SUBROUTINE getinis_p(VarIn, VarOut)
     48    IMPLICIT NONE
     49    CHARACTER(LEN = *), INTENT(IN) :: VarIn
     50    INTEGER, INTENT(INOUT) :: VarOut
     51
     52    !$OMP BARRIER
    5453    IF (is_mpi_root .AND. is_omp_root) THEN
    55         CALL getin(VarIn,VarOut)
     54      CALL getin(VarIn, VarOut)
    5655    ENDIF
    5756    CALL bcast(VarOut)
    5857  END SUBROUTINE getinis_p
    5958
    60   SUBROUTINE getini1d_p(VarIn,VarOut)
    61     IMPLICIT NONE   
    62     CHARACTER(LEN=*),INTENT(IN) :: VarIn
    63     INTEGER,INTENT(INOUT) :: VarOut(:)
     59  SUBROUTINE getini1d_p(VarIn, VarOut)
     60    IMPLICIT NONE
     61    CHARACTER(LEN = *), INTENT(IN) :: VarIn
     62    INTEGER, INTENT(INOUT) :: VarOut(:)
    6463
    65 !$OMP BARRIER
     64    !$OMP BARRIER
    6665    IF (is_mpi_root .AND. is_omp_root) THEN
    67         CALL getin(VarIn,VarOut)
     66      CALL getin(VarIn, VarOut)
    6867    ENDIF
    6968    CALL bcast(VarOut)
    7069  END SUBROUTINE getini1d_p
    7170
    72   SUBROUTINE getini2d_p(VarIn,VarOut)
    73     IMPLICIT NONE   
    74     CHARACTER(LEN=*),INTENT(IN) :: VarIn
    75     INTEGER,INTENT(INOUT) :: VarOut(:,:)
     71  SUBROUTINE getini2d_p(VarIn, VarOut)
     72    IMPLICIT NONE
     73    CHARACTER(LEN = *), INTENT(IN) :: VarIn
     74    INTEGER, INTENT(INOUT) :: VarOut(:, :)
    7675
    77 !$OMP BARRIER
     76    !$OMP BARRIER
    7877    IF (is_mpi_root .AND. is_omp_root) THEN
    79         CALL getin(VarIn,VarOut)
     78      CALL getin(VarIn, VarOut)
    8079    ENDIF
    8180    CALL bcast(VarOut)
    8281  END SUBROUTINE getini2d_p
    8382
    84 !! -- Les flottants -- !!
    85  
    86   SUBROUTINE getinrs_p(VarIn,VarOut)
    87     IMPLICIT NONE   
    88     CHARACTER(LEN=*),INTENT(IN) :: VarIn
    89     REAL,INTENT(INOUT) :: VarOut
     83  !! -- Les flottants -- !!
    9084
    91 !$OMP BARRIER
     85  SUBROUTINE getinrs_p(VarIn, VarOut)
     86    IMPLICIT NONE
     87    CHARACTER(LEN = *), INTENT(IN) :: VarIn
     88    REAL, INTENT(INOUT) :: VarOut
     89
     90    !$OMP BARRIER
    9291    IF (is_mpi_root .AND. is_omp_root) THEN
    93         CALL getin(VarIn,VarOut)
     92      CALL getin(VarIn, VarOut)
    9493    ENDIF
    9594    CALL bcast(VarOut)
    9695  END SUBROUTINE getinrs_p
    9796
    98   SUBROUTINE getinr1d_p(VarIn,VarOut)
    99     IMPLICIT NONE   
    100     CHARACTER(LEN=*),INTENT(IN) :: VarIn
    101     REAL,INTENT(INOUT) :: VarOut(:)
     97  SUBROUTINE getinr1d_p(VarIn, VarOut)
     98    IMPLICIT NONE
     99    CHARACTER(LEN = *), INTENT(IN) :: VarIn
     100    REAL, INTENT(INOUT) :: VarOut(:)
    102101
    103 !$OMP BARRIER
     102    !$OMP BARRIER
    104103    IF (is_mpi_root .AND. is_omp_root) THEN
    105         CALL getin(VarIn,VarOut)
     104      CALL getin(VarIn, VarOut)
    106105    ENDIF
    107106    CALL bcast(VarOut)
    108107  END SUBROUTINE getinr1d_p
    109108
    110   SUBROUTINE getinr2d_p(VarIn,VarOut)
    111     IMPLICIT NONE   
    112     CHARACTER(LEN=*),INTENT(IN) :: VarIn
    113     REAL,INTENT(INOUT) :: VarOut(:,:)
     109  SUBROUTINE getinr2d_p(VarIn, VarOut)
     110    IMPLICIT NONE
     111    CHARACTER(LEN = *), INTENT(IN) :: VarIn
     112    REAL, INTENT(INOUT) :: VarOut(:, :)
    114113
    115 !$OMP BARRIER
     114    !$OMP BARRIER
    116115    IF (is_mpi_root .AND. is_omp_root) THEN
    117         CALL getin(VarIn,VarOut)
     116      CALL getin(VarIn, VarOut)
    118117    ENDIF
    119118    CALL bcast(VarOut)
    120119  END SUBROUTINE getinr2d_p
    121120
    122 !! -- Les Booleens -- !!
    123  
    124   SUBROUTINE getinls_p(VarIn,VarOut)
    125     IMPLICIT NONE   
    126     CHARACTER(LEN=*),INTENT(IN) :: VarIn
    127     LOGICAL,INTENT(INOUT) :: VarOut
     121  !! -- Les Booleens -- !!
    128122
    129 !$OMP BARRIER
     123  SUBROUTINE getinls_p(VarIn, VarOut)
     124    IMPLICIT NONE
     125    CHARACTER(LEN = *), INTENT(IN) :: VarIn
     126    LOGICAL, INTENT(INOUT) :: VarOut
     127
     128    !$OMP BARRIER
    130129    IF (is_mpi_root .AND. is_omp_root) THEN
    131         CALL getin(VarIn,VarOut)
     130      CALL getin(VarIn, VarOut)
    132131    ENDIF
    133132    CALL bcast(VarOut)
    134133  END SUBROUTINE getinls_p
    135134
    136   SUBROUTINE getinl1d_p(VarIn,VarOut)
    137     IMPLICIT NONE   
    138     CHARACTER(LEN=*),INTENT(IN) :: VarIn
    139     LOGICAL,INTENT(INOUT) :: VarOut(:)
     135  SUBROUTINE getinl1d_p(VarIn, VarOut)
     136    IMPLICIT NONE
     137    CHARACTER(LEN = *), INTENT(IN) :: VarIn
     138    LOGICAL, INTENT(INOUT) :: VarOut(:)
    140139
    141 !$OMP BARRIER
     140    !$OMP BARRIER
    142141    IF (is_mpi_root .AND. is_omp_root) THEN
    143         CALL getin(VarIn,VarOut)
     142      CALL getin(VarIn, VarOut)
    144143    ENDIF
    145144    CALL bcast(VarOut)
    146145  END SUBROUTINE getinl1d_p
    147146
    148   SUBROUTINE getinl2d_p(VarIn,VarOut)
    149     IMPLICIT NONE   
    150     CHARACTER(LEN=*),INTENT(IN) :: VarIn
    151     LOGICAL,INTENT(INOUT) :: VarOut(:,:)
     147  SUBROUTINE getinl2d_p(VarIn, VarOut)
     148    IMPLICIT NONE
     149    CHARACTER(LEN = *), INTENT(IN) :: VarIn
     150    LOGICAL, INTENT(INOUT) :: VarOut(:, :)
    152151
    153 !$OMP BARRIER
     152    !$OMP BARRIER
    154153    IF (is_mpi_root .AND. is_omp_root) THEN
    155         CALL getin(VarIn,VarOut)
     154      CALL getin(VarIn, VarOut)
    156155    ENDIF
    157156    CALL bcast(VarOut)
    158157  END SUBROUTINE getinl2d_p
    159 !-
    160 !-----------------------------
    161 !-----------------------------
    162 !-----------------------------
     158  !-
     159  !-----------------------------
     160  !-----------------------------
     161  !-----------------------------
    163162
    164 END MODULE ioipsl_getin_p_mod
     163END MODULE lmdz_ioipsl_getin_p
    165164
Note: See TracChangeset for help on using the changeset viewer.