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

Correct various minor mistakes from previous commits

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/slab_heat_transp_mod.F90

    r5119 r5123  
    986986    ! computes the divergence of a vector field of components
    987987    ! x,y. x and y being covariant components
     988    USE lmdz_ssum_scopy, ONLY: ssum
     989
    988990    IMPLICIT NONE
    989991
    … …  
    9981000    REAL :: aiy1(nbp_lon + 1), aiy2(nbp_lon + 1)
    9991001    REAL :: sumypn, sumyps
    1000     REAL, EXTERNAL :: SSUM
    10011002
    10021003    iim = nbp_lon
Note: See TracChangeset for help on using the changeset viewer.