Ignore:
Timestamp:
Jul 24, 2024, 6:46:45 PM (4 months ago)
Author:
abarral
Message:

enforce PRIVATE by default in several modules, expose PUBLIC as needed
move eigen.f90 to obsolete/
(lint) aslong the way

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5117 r5119  
    890890  SUBROUTINE gr_fi_dyn(nfield, im, jm, pfi, pdyn)
    891891    ! Transfer a variable from 1D "physics" grid to 2D "dynamics" grid
     892    USE lmdz_ssum_scopy, ONLY: scopy
     893
    892894    IMPLICIT NONE
    893895
    … …  
    916918  SUBROUTINE gr_dyn_fi(nfield, im, jm, pdyn, pfi)
    917919    ! Transfer a variable from 2D "dynamics" grid to 1D "physics" grid
     920    USE lmdz_ssum_scopy, ONLY: scopy
    918921    IMPLICIT NONE
    919922
    … …  
    11001103    ! convert values from scalar points to U points on C-grid
    11011104    ! used to compute wind stress at U points
     1105    USE lmdz_ssum_scopy, ONLY: scopy
     1106
    11021107    IMPLICIT NONE
    11031108
Note: See TracChangeset for help on using the changeset viewer.