Ignore:
Timestamp:
Jul 23, 2024, 8:22:55 AM (6 months ago)
Author:
abarral
Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

Location:
LMDZ6/branches/Amaury_dev/libf/phy_common
Files:
10 edited

Legend:

Unmodified
Added
Removed

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

    r5099 r5101  
    2626#ifdef CPP_IOIPSL
    2727!$OMP MASTER
    28       call histclo
    29       call restclo
     28      CALL histclo
     29      CALL restclo
    3030      if (mpi_rank .eq. 0) then
    31          call getin_dump
     31         CALL getin_dump
    3232      endif
    3333!$OMP END MASTER
    … …  
    4040        if (using_mpi) then
    4141          !$OMP CRITICAL (MPI_ABORT_PHYSIC)
    42           call MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi)
     42          CALL MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi)
    4343          !$OMP END CRITICAL (MPI_ABORT_PHYSIC)
    4444        else
    … …  
    4949        if (using_mpi) then
    5050          !$OMP CRITICAL (MPI_ABORT_PHYSIC)
    51           call MPI_ABORT(COMM_LMDZ_PHY, 1, ierror_mpi)
     51          CALL MPI_ABORT(COMM_LMDZ_PHY, 1, ierror_mpi)
    5252          !$OMP END CRITICAL (MPI_ABORT_PHYSIC)
    5353        else

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

    r3435 r5101  
    3939                           cell_area_,ind_cell_glo_,dx_,dy_)
    4040  USE mod_grid_phy_lmdz, ONLY: nvertex
    41   USE nrtype, ONLY : PI
     41  USE nrtype, ONLY: PI
    4242  IMPLICIT NONE
    4343    INTEGER,INTENT(IN) :: klon ! number of columns for this MPI/OpenMP domain

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

    r3435 r5101  
    77
    88  SUBROUTINE init_print_control
    9   USE print_control_mod, ONLY : set_print_control
    10   USE ioipsl_getin_p_mod, ONLY : getin_p
     9  USE print_control_mod, ONLY: set_print_control
     10  USE ioipsl_getin_p_mod, ONLY: getin_p
    1111  USE mod_phys_lmdz_para, ONLY: is_omp_root, is_master
    1212  IMPLICIT NONE

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

    r5099 r5101  
    1010USE ioipsl_getincom, ONLY: getin
    1111#endif
    12 USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
    13 USE mod_phys_lmdz_omp_data, ONLY :  is_omp_root
    14 USE mod_phys_lmdz_transfert_para, ONLY : bcast
     12USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
     13USE mod_phys_lmdz_omp_data, ONLY:  is_omp_root
     14USE mod_phys_lmdz_transfert_para, ONLY: bcast
    1515!-
    1616IMPLICIT NONE

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

    r5099 r5101  
    7878 
    7979  SUBROUTINE bcast_mpi_i(var)
    80   USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root
     80  USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
    8181  IMPLICIT NONE
    8282    INTEGER,INTENT(INOUT) :: Var
    … …  
    126126
    127127  SUBROUTINE bcast_mpi_r(var)
    128   USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root
     128  USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
    129129  IMPLICIT NONE
    130130    REAL,INTENT(INOUT) :: Var
    … …  
    172172
    173173  SUBROUTINE bcast_mpi_l(var)
    174   USE mod_phys_lmdz_mpi_data, ONLY : is_mpi_root
     174  USE mod_phys_lmdz_mpi_data, ONLY: is_mpi_root
    175175  IMPLICIT NONE
    176176    LOGICAL,INTENT(INOUT) :: Var
    … …  
    220220
    221221  SUBROUTINE scatter_mpi_i(VarIn, VarOut)
    222     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     222    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    223223    IMPLICIT NONE
    224224 
    … …  
    231231
    232232  SUBROUTINE scatter_mpi_i1(VarIn, VarOut)
    233     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     233    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    234234    IMPLICIT NONE
    235235 
    … …  
    242242 
    243243  SUBROUTINE scatter_mpi_i2(VarIn, VarOut)
    244     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     244    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    245245    IMPLICIT NONE
    246246 
    … …  
    253253
    254254  SUBROUTINE scatter_mpi_i3(VarIn, VarOut)
    255     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     255    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    256256    IMPLICIT NONE
    257257 
    … …  
    265265
    266266  SUBROUTINE scatter_mpi_r(VarIn, VarOut)
    267     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     267    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    268268    IMPLICIT NONE
    269269 
    … …  
    276276
    277277  SUBROUTINE scatter_mpi_r1(VarIn, VarOut)
    278   USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     278  USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    279279  IMPLICIT NONE
    280280 
    … …  
    287287 
    288288  SUBROUTINE scatter_mpi_r2(VarIn, VarOut)
    289     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     289    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    290290    IMPLICIT NONE
    291291 
    … …  
    298298
    299299  SUBROUTINE scatter_mpi_r3(VarIn, VarOut)
    300     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     300    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    301301    IMPLICIT NONE
    302302 
    … …  
    310310
    311311  SUBROUTINE scatter_mpi_l(VarIn, VarOut)
    312     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     312    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    313313    IMPLICIT NONE
    314314 
    … …  
    321321
    322322  SUBROUTINE scatter_mpi_l1(VarIn, VarOut)
    323     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     323    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    324324    IMPLICIT NONE
    325325 
    … …  
    332332 
    333333  SUBROUTINE scatter_mpi_l2(VarIn, VarOut)
    334     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     334    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    335335    IMPLICIT NONE
    336336 
    … …  
    343343
    344344  SUBROUTINE scatter_mpi_l3(VarIn, VarOut)
    345     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     345    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    346346    IMPLICIT NONE
    347347 
    … …  
    360360
    361361  SUBROUTINE gather_mpi_i(VarIn, VarOut)
    362     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     362    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    363363    IMPLICIT NONE
    364364 
    … …  
    374374
    375375  SUBROUTINE gather_mpi_i1(VarIn, VarOut)
    376     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     376    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    377377    IMPLICIT NONE
    378378 
    … …  
    387387 
    388388  SUBROUTINE gather_mpi_i2(VarIn, VarOut)
    389     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     389    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    390390    IMPLICIT NONE
    391391 
    … …  
    400400
    401401  SUBROUTINE gather_mpi_i3(VarIn, VarOut)
    402     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     402    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    403403    IMPLICIT NONE
    404404 
    … …  
    413413
    414414  SUBROUTINE gather_mpi_r(VarIn, VarOut)
    415     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     415    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    416416    IMPLICIT NONE
    417417 
    … …  
    426426
    427427  SUBROUTINE gather_mpi_r1(VarIn, VarOut)
    428     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     428    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    429429    IMPLICIT NONE
    430430 
    … …  
    439439 
    440440  SUBROUTINE gather_mpi_r2(VarIn, VarOut)
    441     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     441    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    442442    IMPLICIT NONE
    443443 
    … …  
    452452
    453453  SUBROUTINE gather_mpi_r3(VarIn, VarOut)
    454     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     454    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    455455    IMPLICIT NONE
    456456 
    … …  
    465465
    466466  SUBROUTINE gather_mpi_l(VarIn, VarOut)
    467     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     467    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    468468    IMPLICIT NONE
    469469 
    … …  
    478478
    479479  SUBROUTINE gather_mpi_l1(VarIn, VarOut)
    480     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     480    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    481481    IMPLICIT NONE
    482482 
    … …  
    491491 
    492492  SUBROUTINE gather_mpi_l2(VarIn, VarOut)
    493     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     493    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    494494    IMPLICIT NONE
    495495 
    … …  
    504504
    505505  SUBROUTINE gather_mpi_l3(VarIn, VarOut)
    506     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     506    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    507507    IMPLICIT NONE
    508508 
    … …  
    873873
    874874  SUBROUTINE reduce_sum_mpi_i(VarIn, VarOut)
    875     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     875    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    876876    IMPLICIT NONE
    877877 
    … …  
    888888
    889889  SUBROUTINE reduce_sum_mpi_i1(VarIn, VarOut)
    890     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     890    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    891891    IMPLICIT NONE
    892892 
    … …  
    899899
    900900  SUBROUTINE reduce_sum_mpi_i2(VarIn, VarOut)
    901     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     901    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    902902    IMPLICIT NONE
    903903 
    … …  
    910910
    911911  SUBROUTINE reduce_sum_mpi_i3(VarIn, VarOut)
    912     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     912    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    913913    IMPLICIT NONE
    914914 
    … …  
    921921
    922922  SUBROUTINE reduce_sum_mpi_i4(VarIn, VarOut)
    923     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     923    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    924924    IMPLICIT NONE
    925925 
    … …  
    933933 
    934934  SUBROUTINE reduce_sum_mpi_r(VarIn, VarOut)
    935     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     935    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    936936    IMPLICIT NONE
    937937 
    … …  
    948948
    949949  SUBROUTINE reduce_sum_mpi_r1(VarIn, VarOut)
    950     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     950    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    951951    IMPLICIT NONE
    952952 
    … …  
    959959
    960960  SUBROUTINE reduce_sum_mpi_r2(VarIn, VarOut)
    961     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     961    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    962962    IMPLICIT NONE
    963963 
    … …  
    970970
    971971  SUBROUTINE reduce_sum_mpi_r3(VarIn, VarOut)
    972     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     972    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    973973    IMPLICIT NONE
    974974 
    … …  
    981981
    982982  SUBROUTINE reduce_sum_mpi_r4(VarIn, VarOut)
    983     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     983    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    984984    IMPLICIT NONE
    985985 
    … …  
    997997
    998998  SUBROUTINE reduce_min_mpi_i(VarIn, VarOut)
    999     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     999    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    10001000    IMPLICIT NONE
    10011001 
    … …  
    10121012
    10131013  SUBROUTINE reduce_min_mpi_i1(VarIn, VarOut)
    1014     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     1014    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    10151015    IMPLICIT NONE
    10161016 
    … …  
    10231023
    10241024  SUBROUTINE reduce_min_mpi_i2(VarIn, VarOut)
    1025     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     1025    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    10261026    IMPLICIT NONE
    10271027 
    … …  
    10341034
    10351035  SUBROUTINE reduce_min_mpi_i3(VarIn, VarOut)
    1036     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     1036    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    10371037    IMPLICIT NONE
    10381038 
    … …  
    10451045
    10461046  SUBROUTINE reduce_min_mpi_i4(VarIn, VarOut)
    1047     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     1047    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    10481048    IMPLICIT NONE
    10491049 
    … …  
    10571057 
    10581058  SUBROUTINE reduce_min_mpi_r(VarIn, VarOut)
    1059     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     1059    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    10601060    IMPLICIT NONE
    10611061 
    … …  
    10721072
    10731073  SUBROUTINE reduce_min_mpi_r1(VarIn, VarOut)
    1074     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     1074    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    10751075    IMPLICIT NONE
    10761076 
    … …  
    10831083
    10841084  SUBROUTINE reduce_min_mpi_r2(VarIn, VarOut)
    1085     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     1085    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    10861086    IMPLICIT NONE
    10871087 
    … …  
    10941094
    10951095  SUBROUTINE reduce_min_mpi_r3(VarIn, VarOut)
    1096     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     1096    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    10971097    IMPLICIT NONE
    10981098 
    … …  
    11051105
    11061106  SUBROUTINE reduce_min_mpi_r4(VarIn, VarOut)
    1107     USE mod_phys_lmdz_mpi_data, ONLY :  is_mpi_root
     1107    USE mod_phys_lmdz_mpi_data, ONLY:  is_mpi_root
    11081108    IMPLICIT NONE
    11091109 

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

    r5099 r5101  
    2525  SUBROUTINE Init_phys_lmdz_omp_data(klon_mpi)
    2626    USE dimphy
    27     USE mod_phys_lmdz_mpi_data, ONLY : is_north_pole_dyn, is_south_pole_dyn
     27    USE mod_phys_lmdz_mpi_data, ONLY: is_north_pole_dyn, is_south_pole_dyn
    2828    IMPLICIT NONE
    2929    INTEGER, INTENT(in) :: klon_mpi

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

    r5099 r5101  
    934934  SUBROUTINE scatter_omp_igen(VarIn,VarOut,dimsize,Buff)
    935935    USE mod_phys_lmdz_omp_data
    936     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     936    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    937937    IMPLICIT NONE
    938938
    … …  
    965965  SUBROUTINE scatter_omp_rgen(VarIn,VarOut,dimsize,Buff)
    966966  USE mod_phys_lmdz_omp_data
    967   USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     967  USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    968968  IMPLICIT NONE
    969969
    … …  
    996996  SUBROUTINE scatter_omp_lgen(VarIn,VarOut,dimsize,Buff)
    997997  USE mod_phys_lmdz_omp_data
    998   USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     998  USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    999999  IMPLICIT NONE
    10001000
    … …  
    10301030  SUBROUTINE gather_omp_igen(VarIn,VarOut,dimsize,Buff)
    10311031  USE mod_phys_lmdz_omp_data
    1032   USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     1032  USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    10331033  IMPLICIT NONE
    10341034
    … …  
    10621062  SUBROUTINE gather_omp_rgen(VarIn,VarOut,dimsize)
    10631063  USE mod_phys_lmdz_omp_data
    1064   USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     1064  USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    10651065  IMPLICIT NONE
    10661066
    … …  
    10891089  SUBROUTINE gather_omp_lgen(VarIn,VarOut,dimsize,Buff)
    10901090  USE mod_phys_lmdz_omp_data
    1091   USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     1091  USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    10921092  IMPLICIT NONE
    10931093

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

    r5099 r5101  
    256256
    257257  SUBROUTINE scatter_i(VarIn, VarOut)
    258     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     258    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    259259    IMPLICIT NONE
    260260 
    … …  
    274274
    275275  SUBROUTINE scatter_i1(VarIn, VarOut)
    276     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     276    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    277277    IMPLICIT NONE
    278278 
    … …  
    291291
    292292  SUBROUTINE scatter_i2(VarIn, VarOut)
    293     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     293    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    294294    IMPLICIT NONE
    295295 
    … …  
    308308
    309309  SUBROUTINE scatter_i3(VarIn, VarOut)
    310     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     310    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    311311    IMPLICIT NONE
    312312 
    … …  
    325325
    326326  SUBROUTINE scatter_r(VarIn, VarOut)
    327     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     327    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    328328    IMPLICIT NONE
    329329 
    … …  
    343343
    344344  SUBROUTINE scatter_r1(VarIn, VarOut)
    345     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     345    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    346346    IMPLICIT NONE
    347347 
    … …  
    360360
    361361  SUBROUTINE scatter_r2(VarIn, VarOut)
    362     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     362    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    363363    IMPLICIT NONE
    364364 
    … …  
    377377
    378378  SUBROUTINE scatter_r3(VarIn, VarOut)
    379     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     379    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    380380    IMPLICIT NONE
    381381 
    … …  
    395395
    396396  SUBROUTINE scatter_l(VarIn, VarOut)
    397     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     397    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    398398    IMPLICIT NONE
    399399 
    … …  
    413413
    414414  SUBROUTINE scatter_l1(VarIn, VarOut)
    415     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     415    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    416416    IMPLICIT NONE
    417417 
    … …  
    430430
    431431  SUBROUTINE scatter_l2(VarIn, VarOut)
    432     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     432    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    433433    IMPLICIT NONE
    434434 
    … …  
    447447
    448448  SUBROUTINE scatter_l3(VarIn, VarOut)
    449     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     449    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    450450    IMPLICIT NONE
    451451 
    … …  
    471471
    472472  SUBROUTINE gather_i(VarIn, VarOut)
    473     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     473    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    474474    IMPLICIT NONE
    475475 
    … …  
    488488
    489489  SUBROUTINE gather_i1(VarIn, VarOut)
    490     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     490    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    491491    IMPLICIT NONE
    492492 
    … …  
    505505
    506506  SUBROUTINE gather_i2(VarIn, VarOut)
    507     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     507    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    508508    IMPLICIT NONE
    509509 
    … …  
    522522
    523523  SUBROUTINE gather_i3(VarIn, VarOut)
    524     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     524    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    525525    IMPLICIT NONE
    526526 
    … …  
    541541
    542542  SUBROUTINE gather_r(VarIn, VarOut)
    543     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     543    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    544544    IMPLICIT NONE
    545545 
    … …  
    558558
    559559  SUBROUTINE gather_r1(VarIn, VarOut)
    560     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     560    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    561561    IMPLICIT NONE
    562562 
    … …  
    575575
    576576  SUBROUTINE gather_r2(VarIn, VarOut)
    577     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     577    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    578578    IMPLICIT NONE
    579579 
    … …  
    592592
    593593  SUBROUTINE gather_r3(VarIn, VarOut)
    594     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     594    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    595595    IMPLICIT NONE
    596596 
    … …  
    611611
    612612  SUBROUTINE gather_l(VarIn, VarOut)
    613     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     613    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    614614    IMPLICIT NONE
    615615 
    … …  
    628628
    629629  SUBROUTINE gather_l1(VarIn, VarOut)
    630     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     630    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    631631    IMPLICIT NONE
    632632 
    … …  
    645645
    646646  SUBROUTINE gather_l2(VarIn, VarOut)
    647     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     647    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    648648    IMPLICIT NONE
    649649 
    … …  
    662662
    663663  SUBROUTINE gather_l3(VarIn, VarOut)
    664     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     664    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    665665    IMPLICIT NONE
    666666 
    … …  
    686686
    687687  SUBROUTINE scatter2D_i(VarIn, VarOut)
    688     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     688    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    689689    IMPLICIT NONE
    690690 
    … …  
    703703
    704704  SUBROUTINE scatter2D_i1(VarIn, VarOut)
    705     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     705    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    706706    IMPLICIT NONE
    707707 
    … …  
    720720
    721721  SUBROUTINE scatter2D_i2(VarIn, VarOut)
    722     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     722    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    723723    IMPLICIT NONE
    724724 
    … …  
    737737
    738738  SUBROUTINE scatter2D_i3(VarIn, VarOut)
    739     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     739    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    740740    IMPLICIT NONE
    741741 
    … …  
    756756
    757757  SUBROUTINE scatter2D_r(VarIn, VarOut)
    758     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     758    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    759759    IMPLICIT NONE
    760760 
    … …  
    773773
    774774  SUBROUTINE scatter2D_r1(VarIn, VarOut)
    775     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     775    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    776776    IMPLICIT NONE
    777777 
    … …  
    790790
    791791  SUBROUTINE scatter2D_r2(VarIn, VarOut)
    792     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     792    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    793793    IMPLICIT NONE
    794794 
    … …  
    807807
    808808  SUBROUTINE scatter2D_r3(VarIn, VarOut)
    809     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     809    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    810810    IMPLICIT NONE
    811811 
    … …  
    827827
    828828  SUBROUTINE scatter2D_l(VarIn, VarOut)
    829     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     829    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    830830    IMPLICIT NONE
    831831 
    … …  
    844844
    845845  SUBROUTINE scatter2D_l1(VarIn, VarOut)
    846     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     846    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    847847    IMPLICIT NONE
    848848 
    … …  
    861861
    862862  SUBROUTINE scatter2D_l2(VarIn, VarOut)
    863     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     863    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    864864    IMPLICIT NONE
    865865 
    … …  
    878878
    879879  SUBROUTINE scatter2D_l3(VarIn, VarOut)
    880     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     880    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    881881    IMPLICIT NONE
    882882 
    … …  
    901901
    902902  SUBROUTINE gather2D_i(VarIn, VarOut)
    903     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     903    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    904904    IMPLICIT NONE
    905905 
    … …  
    918918
    919919  SUBROUTINE gather2D_i1(VarIn, VarOut)
    920     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     920    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    921921    IMPLICIT NONE
    922922 
    … …  
    935935 
    936936  SUBROUTINE gather2D_i2(VarIn, VarOut)
    937     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     937    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    938938    IMPLICIT NONE
    939939 
    … …  
    952952
    953953  SUBROUTINE gather2D_i3(VarIn, VarOut)
    954     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     954    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    955955    IMPLICIT NONE
    956956 
    … …  
    971971
    972972  SUBROUTINE gather2D_r(VarIn, VarOut)
    973     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     973    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    974974    IMPLICIT NONE
    975975 
    … …  
    988988
    989989  SUBROUTINE gather2D_r1(VarIn, VarOut)
    990     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     990    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    991991    IMPLICIT NONE
    992992 
    … …  
    10051005 
    10061006  SUBROUTINE gather2D_r2(VarIn, VarOut)
    1007     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     1007    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    10081008    IMPLICIT NONE
    10091009 
    … …  
    10221022
    10231023  SUBROUTINE gather2D_r3(VarIn, VarOut)
    1024     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     1024    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    10251025    IMPLICIT NONE
    10261026 
    … …  
    10411041
    10421042  SUBROUTINE gather2D_l(VarIn, VarOut)
    1043     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     1043    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    10441044    IMPLICIT NONE
    10451045 
    … …  
    10581058
    10591059  SUBROUTINE gather2D_l1(VarIn, VarOut)
    1060     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     1060    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    10611061    IMPLICIT NONE
    10621062 
    … …  
    10751075 
    10761076  SUBROUTINE gather2D_l2(VarIn, VarOut)
    1077     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     1077    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    10781078    IMPLICIT NONE
    10791079 
    … …  
    10921092
    10931093  SUBROUTINE gather2D_l3(VarIn, VarOut)
    1094     USE mod_phys_lmdz_mpi_data, ONLY : klon_mpi
     1094    USE mod_phys_lmdz_mpi_data, ONLY: klon_mpi
    10951095    IMPLICIT NONE
    10961096 

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

    r5099 r5101  
    1212  USE mod_phys_lmdz_para, ONLY: init_phys_lmdz_para, klon_omp
    1313  USE mod_grid_phy_lmdz, ONLY: init_grid_phy_lmdz
    14   USE dimphy, ONLY : Init_dimphy
    15   USE infotrac_phy, ONLY : type_trac
     14  USE dimphy, ONLY: Init_dimphy
     15  USE infotrac_phy, ONLY: type_trac
    1616#ifdef REPROBUS
    17   USE CHEM_REP, ONLY : Init_chem_rep_phys
     17  USE CHEM_REP, ONLY: Init_chem_rep_phys
    1818#endif
    1919  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_INCA
    … …  
    4949!  USE mod_phys_lmdz_para, ONLY: Init_phys_lmdz_para!, klon_omp
    5050!  USE mod_grid_phy_lmdz, ONLY: Init_grid_phy_lmdz!, nbp_lev
    51 !  USE dimphy, ONLY : Init_dimphy
    52 !  USE infotrac_phy, ONLY : type_trac
     51!  USE dimphy, ONLY: Init_dimphy
     52!  USE infotrac_phy, ONLY: type_trac
    5353!#ifdef REPROBUS
    54 !  USE CHEM_REP, ONLY : Init_chem_rep_phys
     54!  USE CHEM_REP, ONLY: Init_chem_rep_phys
    5555!#endif
    5656

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

    r5082 r5101  
    55  INTEGER,SAVE :: prt_level ! debug output level
    66  LOGICAL,SAVE :: debug ! flag to specify if in "debug mode"
    7   LOGICAL,SAVE :: alert_first_call = .TRUE. ! for printing alerts on first call to routine only           
    8   LOGICAL,SAVE :: call_alert ! (combination of is_master and alert_first_call for easier use     
     7  LOGICAL,SAVE :: alert_first_CALL = .TRUE. ! for printing alerts on first CALL to routine only
     8  LOGICAL,SAVE :: call_alert ! (combination of is_master and alert_first_CALL for easier use
    99!$OMP THREADPRIVATE(lunout,prt_level,debug, alert_first_call, call_alert)
    1010
Note: See TracChangeset for help on using the changeset viewer.