Ignore:
Timestamp:
Jul 25, 2024, 8:45:50 AM (2 months ago)
Author:
abarral
Message:

Correct various minor mistakes from previous commits

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/filtrez/lmdz_filtreg.F90

    r5120 r5123  
    330330    !
    331331    USE lmdz_coefils, ONLY: sddv, sddu, unsddu, unsddv, eignfnv, eignfnu
     332    USE lmdz_ssum_scopy, ONLY: ssum
    332333    IMPLICIT NONE
    333334    !
    … …  
    341342    REAL :: pi
    342343    INTEGER :: i, j, k, imm1, nrot
    343     EXTERNAL SSUM
    344     REAL :: SSUM
    345344    !
    346345
    … …  
    557556
    558557  SUBROUTINE acc(vec, d, im)
     558    USE lmdz_ssum_scopy, ONLY: ssum
    559559    IMPLICIT NONE
    560560    INTEGER :: im
    … …  
    562562    INTEGER :: i, j
    563563    REAL :: sum
    564     REAL, external :: ssum
    565564    do j = 1, im
    566565      do i = 1, im
Note: See TracChangeset for help on using the changeset viewer.