Changeset 5367


Ignore:
Timestamp:
Dec 3, 2024, 10:40:13 AM (5 weeks ago)
Author:
abarral
Message:

(WIP) Turn implicit into explicit declarations

Location:
LMDZ6/trunk/libf
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90

    r5285 r5367  
    44!
    55!
     6#ifdef CPP_PARA
     7
    68SUBROUTINE calfis_loc(lafin, &
    79        jD_cur, jH_cur, &
    … …  
    3739  USE lmdz_mpi
    3840
    39 #ifdef CPP_PARA
    4041  USE parallel_lmdz,ONLY:omp_chunk,using_mpi,jjb_u,jje_u,jjb_v,jje_v &
    4142        ,jj_begin_dyn=>jj_begin,jj_end_dyn=>jj_end
    … …  
    4344  Use Write_field_p
    4445  USE Times
    45 #endif
    4646  USE infotrac, ONLY: nqtot, tracers
    4747  USE control_mod, ONLY: planet_type, nsplit_phys
    … …  
    5050  USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
    5151  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
    52 #ifdef CPP_PARA
    5352  USE iniprint_mod_h
    5453  USE comgeom2_mod_h
    … …  
    12081207        "calfis_p: for now can only work with parallel physics", 1)
    12091208END IF
     1209END SUBROUTINE calfis_loc
    12101210#endif
    1211   ! of #ifdef CPP_PARA
    1212 END SUBROUTINE calfis_loc

  • LMDZ6/trunk/libf/dynphy_lonlat/gr_dyn_fi_p.F90

    r5246 r5367  
    22! $Id$
    33!
     4#ifdef CPP_PARA
    45SUBROUTINE gr_dyn_fi_p(nfield,im,jm,ngrid,pdyn,pfi)
    5 #ifdef CPP_PARA
    66  ! Interface with parallel physics,
    77  USE mod_interface_dyn_phys
    … …  
    3939  ENDDO
    4040!$OMP END DO NOWAIT
    41 #endif
    4241  ! of #ifdef CPP_PARA
    4342  RETURN
    4443END SUBROUTINE gr_dyn_fi_p
     44#endif

  • LMDZ6/trunk/libf/dynphy_lonlat/gr_fi_dyn_p.F90

    r5246 r5367  
    22! $Id$
    33!
     4
     5#ifdef CPP_PARA
    46SUBROUTINE gr_fi_dyn_p(nfield,ngrid,im,jm,pfi,pdyn)
    5 #ifdef CPP_PARA
    67  ! Interface with parallel physics,
    78  USE mod_interface_dyn_phys
    … …  
    5152  ENDDO
    5253!$OMP END DO NOWAIT
    53 #endif
    5454  ! of #ifdef CPP_PARA
    5555  RETURN
    5656END SUBROUTINE gr_fi_dyn_p
     57#endif

  • LMDZ6/trunk/libf/phylmd/Dust/minmaxqfi2.f90

    r5337 r5367  
    66   ! character*20 comment
    77  character(len=*) :: comment
    8   real :: qmin,qmax
     8  real :: qmin,qmax,zqmin,zqmax
    99  real :: zq(klon,klev)
    1010

  • LMDZ6/trunk/libf/phylmd/Dust/minmaxsource.f90

    r5337 r5367  
    66   ! character*20 comment
    77  character(len=*) :: comment
    8   real :: qmin,qmax
     8  real :: qmin,qmax,zqmin,zqmax
    99  real :: zq(klon,nbtr)
    1010
    1111  integer :: ijmin, lmin, ijlmin
    1212  integer :: ijmax, lmax, ijlmax
    13 
    1413  integer :: ismin,ismax
    1514

  • LMDZ6/trunk/libf/phylmd/StratAer/strataer_emiss_mod.f90

    r5285 r5367  
    11MODULE strataer_emiss_mod
    22  ! This module contains information about strato microphysic model emission parameters
    3 
     3   IMPLICIT NONE; PRIVATE
     4   PUBLIC strataer_emiss_init
    45CONTAINS
    56
    67  SUBROUTINE strataer_emiss_init()
    7 
    88    USE strataer_local_var_mod
    9     USE ioipsl_getin_p_mod, ONLY : getin_p
    10     USE print_control_mod, ONLY : lunout
     9    USE ioipsl_getin_p_mod, ONLY: getin_p
     10    USE print_control_mod, ONLY: lunout
    1111    USE mod_phys_lmdz_para, ONLY : is_master
    1212
    1313    ! Local variables
    1414    INTEGER                  :: ispec
     15    INTEGER :: klon  ! Amaury 12/24: cette déclaration était avant implicite (depuis longtemps !), mais c'est probablement un bug !? On devrait avoir `USE dimphy, ONLY: klon`. A corriger ultérieurement.. ?
    1516
    1617    WRITE(lunout,*) 'IN STRATAER_EMISS INIT WELCOME!'
    … …  
    215216
    216217    USE yomcst_mod_h
    217 USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
     218    USE regular_lonlat_mod, ONLY: lon_reg, lat_reg
    218219    USE dimphy, ONLY: klon
    219220    USE mod_grid_phy_lmdz, ONLY: nbp_lat, nbp_lon

  • LMDZ6/trunk/libf/phylmd/StratAer/traccoag_mod.f90

    r5268 r5367  
    44! considering coagulation and sedimentation.
    55!
     6  IMPLICIT NONE; PRIVATE
     7  PUBLIC traccoag
    68CONTAINS
    79

  • LMDZ6/trunk/libf/phylmd/dyn1d/1Dconv.h

    r5285 r5367  
    822822      ENDIF
    823823      END
     824
    824825      CHARACTER*(*) FUNCTION SPACES(STR,NSPACE)
    825826!
    … …  
    831832!-    replaced by NSPACE blanks inside the string STR
    832833!
    833       CHARACTER*(*) STR
     834      CHARACTER*(*), INTENT(OUT) :: str
     835      INTEGER, INTENT(INOUT) :: nspace
     836      INTEGER :: iblank, inonbl, ispace, lenspa, i, lens
    834837!
    835838      LENSPA = LEN(SPACES)
    … …  
    854857      IF (ISPACE.LE.LENSPA)                         GO TO 100
    855858  999 END
    856       FUNCTION INDEXC(STR,SSTR)
     859
     860      INTEGER FUNCTION INDEXC(STR,SSTR)
    857861!
    858862! CERN PROGLIB# M433    INDEXC          .VERSION KERNFOR  4.14  860211
    … …  
    862866!-    string STR scanning forward
    863867!
    864       CHARACTER*(*) STR,SSTR
     868      CHARACTER*(*), INTENT(IN) :: str, sstr
     869      INTEGER :: lens, lenss, i
    865870!
    866871      LENS   = LEN(STR)
Note: See TracChangeset for help on using the changeset viewer.