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

(WIP) Turn implicit into explicit declarations

Location:
LMDZ6/trunk/libf/phylmd
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • 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.