Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (20 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

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

Legend:

Unmodified
Added
Removed

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

    r5116 r5117  
    1818    !         ierr    = severity of situation ( = 0 normal )
    1919
    20     CHARACTER(LEN = *), intent(in) :: modname
    21     integer ierr, ierror_mpi
    22     CHARACTER(LEN = *), intent(in) :: message
     20    CHARACTER(LEN = *), INTENT(IN) :: modname
     21    INTEGER ierr, ierror_mpi
     22    CHARACTER(LEN = *), INTENT(IN) :: message
    2323
    2424    WRITE(lunout, *) 'in abort_physic'
    … …  
    2626    CALL histclo
    2727    CALL restclo
    28     if (mpi_rank == 0) THEN
     28    IF (mpi_rank == 0) THEN
    2929      CALL getin_dump
    3030    endif
    … …  
    3333    WRITE(lunout, *) 'Stopping in ', modname
    3434    WRITE(lunout, *) 'Reason = ', message
    35     if (ierr == 0) THEN
     35    IF (ierr == 0) THEN
    3636      WRITE(lunout, *) 'Everything is cool'
    37       if (using_mpi) THEN
     37      IF (using_mpi) THEN
    3838        !$OMP CRITICAL (MPI_ABORT_PHYSIC)
    3939        CALL MPI_ABORT(COMM_LMDZ_PHY, 0, ierror_mpi)
    … …  
    4444    else
    4545      WRITE(lunout, *) 'Houston, we have a problem, ierr = ', ierr
    46       if (using_mpi) THEN
     46      IF (using_mpi) THEN
    4747        !$OMP CRITICAL (MPI_ABORT_PHYSIC)
    4848        CALL MPI_ABORT(COMM_LMDZ_PHY, 1, ierror_mpi)

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

    r5112 r5117  
    3838          cell_area_, ind_cell_glo_, dx_, dy_)
    3939    USE lmdz_grid_phy, ONLY: nvertex
    40     USE nrtype, ONLY: PI
     40    USE lmdz_physical_constants, ONLY: PI
    4141    IMPLICIT NONE
    4242    INTEGER, INTENT(IN) :: klon ! number of columns for this MPI/OpenMP domain

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

    r5112 r5117  
    3535
    3636    IF (is_omp_root) THEN
    37       IF (lunout /= 5 .and. lunout /= 6) THEN
     37      IF (lunout /= 5 .AND. lunout /= 6) THEN
    3838        INQUIRE(FILE = 'lmdz.out_0000', OPENED = opened, NUMBER = number)
    3939        IF (opened) THEN

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

    r5112 r5117  
    6666    is_using_mpi = using_mpi
    6767   
    68     if ((nbp_lon==1).and.(nbp_lat==1)) then ! running 1D column model
     68    IF ((nbp_lon==1).AND.(nbp_lat==1)) then ! running 1D column model
    6969       klon_glo=1
    7070    else

  • LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_mpi_transfert.f90

    r5110 r5117  
    13751375    INTEGER :: ierr
    13761376
    1377     IF (.not.is_using_mpi) RETURN
     1377    IF (.NOT.is_using_mpi) RETURN
    13781378   
    13791379    CALL MPI_BCAST(Var,nb,MPI_CHARACTER,mpi_master,COMM_LMDZ_PHY,ierr)
    … …  
    13931393    INTEGER :: ierr
    13941394
    1395     IF (.not.is_using_mpi) RETURN
     1395    IF (.NOT.is_using_mpi) RETURN
    13961396
    13971397    CALL MPI_BCAST(Var,nb,MPI_INTEGER,mpi_master,COMM_LMDZ_PHY,ierr)
    … …  
    14121412    INTEGER :: ierr
    14131413
    1414     IF (.not.is_using_mpi) RETURN
     1414    IF (.NOT.is_using_mpi) RETURN
    14151415
    14161416    CALL MPI_BCAST(Var,nb,MPI_REAL_LMDZ,mpi_master,COMM_LMDZ_PHY,ierr)
    … …  
    14311431    INTEGER :: ierr
    14321432
    1433     IF (.not.is_using_mpi) RETURN
     1433    IF (.NOT.is_using_mpi) RETURN
    14341434
    14351435    CALL MPI_BCAST(Var,nb,MPI_LOGICAL,mpi_master,COMM_LMDZ_PHY,ierr)
    … …  
    14561456
    14571457
    1458     IF (.not.is_using_mpi) THEN
     1458    IF (.NOT.is_using_mpi) THEN
    14591459      VarOut(:,:)=VarIn(:,:)
    14601460      RETURN
    … …  
    14961496    INTEGER :: ierr
    14971497
    1498     IF (.not.is_using_mpi) THEN
     1498    IF (.NOT.is_using_mpi) THEN
    14991499      VarOut(:,:)=VarIn(:,:)
    15001500      RETURN
    … …  
    15371537    INTEGER :: ierr
    15381538
    1539     IF (.not.is_using_mpi) THEN
     1539    IF (.NOT.is_using_mpi) THEN
    15401540      VarOut(:,:)=VarIn(:,:)
    15411541      RETURN
    … …  
    15791579    INTEGER :: ierr
    15801580
    1581     IF (.not.is_using_mpi) THEN
     1581    IF (.NOT.is_using_mpi) THEN
    15821582      VarOut(:,:)=VarIn(:,:)
    15831583      RETURN
    … …  
    16381638    ENDIF
    16391639   
    1640     IF (.not.is_using_mpi) THEN
     1640    IF (.NOT.is_using_mpi) THEN
    16411641      VarOut(:,:)=VarIn(:,:)
    16421642      RETURN
    … …  
    16751675    INTEGER :: ierr
    16761676   
    1677     IF (.not.is_using_mpi) THEN
     1677    IF (.NOT.is_using_mpi) THEN
    16781678      VarOut(:,:)=VarIn(:,:)
    16791679      RETURN
    … …  
    17201720    INTEGER :: ierr
    17211721   
    1722     IF (.not.is_using_mpi) THEN
     1722    IF (.NOT.is_using_mpi) THEN
    17231723      VarOut(:)=VarIn(:)
    17241724      RETURN
    … …  
    17411741    INTEGER :: ierr
    17421742 
    1743     IF (.not.is_using_mpi) THEN
     1743    IF (.NOT.is_using_mpi) THEN
    17441744      VarOut(:)=VarIn(:)
    17451745      RETURN
    … …  
    17631763    INTEGER :: ierr
    17641764   
    1765     IF (.not.is_using_mpi) THEN
     1765    IF (.NOT.is_using_mpi) THEN
    17661766      VarOut(:)=VarIn(:)
    17671767      RETURN
    … …  
    17851785    INTEGER :: ierr
    17861786 
    1787     IF (.not.is_using_mpi) THEN
     1787    IF (.NOT.is_using_mpi) THEN
    17881788      VarOut(:)=VarIn(:)
    17891789      RETURN

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

    r5116 r5117  
    2828    USE lmdz_abort_physic, ONLY: abort_physic
    2929    IMPLICIT NONE
    30     INTEGER, INTENT(in) :: klon_mpi
     30    INTEGER, INTENT(IN) :: klon_mpi
    3131
    3232    INTEGER :: i
    … …  
    8888!$OMP BARRIER
    8989
    90    if ((is_north_pole_dyn) .AND. (omp_rank == 0 )) THEN
     90   IF ((is_north_pole_dyn) .AND. (omp_rank == 0 )) THEN
    9191      is_north_pole_phy = .TRUE.
    9292    else
    9393      is_north_pole_phy = .FALSE.
    9494    endif
    95     if ((is_south_pole_dyn) .AND. (omp_rank == omp_size-1)) THEN
     95    IF ((is_south_pole_dyn) .AND. (omp_rank == omp_size-1)) THEN
    9696      is_south_pole_phy = .TRUE.
    9797    else

  • LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_phys_para.f90

    r5112 r5117  
    1919  SUBROUTINE Init_phys_lmdz_para(nbp,nbp_lon,nbp_lat,nbp_lev,grid_type, nvertex,communicator)
    2020  IMPLICIT NONE
    21     INTEGER,INTENT(in) :: nbp
    22     INTEGER,INTENT(in) :: nbp_lon
    23     INTEGER,INTENT(in) :: nbp_lat
    24     INTEGER,INTENT(in) :: nbp_lev
    25     INTEGER,INTENT(in) :: communicator
     21    INTEGER,INTENT(IN) :: nbp
     22    INTEGER,INTENT(IN) :: nbp_lon
     23    INTEGER,INTENT(IN) :: nbp_lat
     24    INTEGER,INTENT(IN) :: nbp_lev
     25    INTEGER,INTENT(IN) :: communicator
    2626    INTEGER,INTENT(IN) :: grid_type
    2727    INTEGER,INTENT(IN) :: nvertex

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

    r5112 r5117  
    5555  !  IMPLICIT NONE
    5656
    57   !    INTEGER,INTENT(in) :: iim
    58   !    INTEGER,INTENT(in) :: jjp1
    59   !    INTEGER,INTENT(in) :: llm
    60   !    INTEGER,INTENT(in) :: nb_proc
    61   !    INTEGER,INTENT(in) :: distrib(0:nb_proc-1)
     57  !    INTEGER,INTENT(IN) :: iim
     58  !    INTEGER,INTENT(IN) :: jjp1
     59  !    INTEGER,INTENT(IN) :: llm
     60  !    INTEGER,INTENT(IN) :: nb_proc
     61  !    INTEGER,INTENT(IN) :: distrib(0:nb_proc-1)
    6262
    6363

  • LMDZ6/branches/Amaury_dev/libf/phy_common/lmdz_write_field_phy.f90

    r5112 r5117  
    1212    USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat, klon_glo, &
    1313            Grid1Dto2D_glo
    14     USE Write_Field, ONLY: WriteField
     14    USE lmdz_write_field, ONLY: WriteField
    1515
    1616    IMPLICIT NONE
    … …  
    2020    REAL, INTENT(IN) :: Field(klon_omp, ll)
    2121
    22     real, dimension(klon_glo, ll) :: New_Field
    23     real, dimension(nbp_lon, nbp_lat, ll) :: Field_2d
     22    REAL, DIMENSION(klon_glo, ll) :: New_Field
     23    REAL, DIMENSION(nbp_lon, nbp_lat, ll) :: Field_2d
    2424
    2525    CALL Gather(Field, New_Field)
Note: See TracChangeset for help on using the changeset viewer.