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/dyn3d/qminimum.F90

    r5117 r5123  
    66  USE lmdz_strings, ONLY: strIdx
    77  USE lmdz_readTracFiles, ONLY: addPhase
     8  USE lmdz_ssum_scopy, ONLY: ssum
     9
    810  IMPLICIT none
    911  !
    … …  
    3537  REAL :: zx_defau_diag(ip1jmp1, llm, 2)
    3638  REAL :: q_follow(ip1jmp1, llm, 2)
    37   !
    38   REAL :: SSUM
    3939  !
    4040  INTEGER :: imprim
Note: See TracChangeset for help on using the changeset viewer.