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

Correct various minor mistakes from previous commits

Location:
LMDZ6/branches/Amaury_dev/libf/dyn3d
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/addfi.F90

    r5117 r5123  
    77  USE infotrac, ONLY: nqtot
    88  USE control_mod, ONLY: planet_type
     9  USE lmdz_ssum_scopy, ONLY: ssum
    910  IMPLICIT NONE
    1011  !
    … …  
    7677  REAL, PARAMETER :: qtestw = 1.0e-15
    7778  REAL, PARAMETER :: qtestt = 1.0e-40
    78 
    79   REAL :: SSUM
    8079  !
    8180  !-----------------------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/advect.F90

    r5105 r5123  
    66  USE logic_mod, ONLY: conser
    77  USE ener_mod, ONLY: gtot
     8  USE lmdz_ssum_scopy, ONLY: ssum
    89
    910  IMPLICIT NONE
    … …  
    4647
    4748  INTEGER :: ij, l
    48 
    49   REAL :: SSUM
    5049
    5150  !-----------------------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/dissip.F90

    r5113 r5123  
    5353
    5454  INTEGER :: l, ij
    55 
    56   REAL :: SSUM
    5755
    5856  !-----------------------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/integrd.F90

    r5119 r5123  
    1212  USE temps_mod, ONLY: dt
    1313  USE lmdz_iniprint, ONLY: lunout, prt_level
    14   USE lmdz_ssum_scopy, ONLY: scopy
     14  USE lmdz_ssum_scopy, ONLY: scopy, ssum
    1515
    1616  IMPLICIT NONE
    … …  
    7373
    7474  INTEGER :: l, ij, iq, i, j
    75 
    76   REAL :: SSUM
    7775
    7876  !-----------------------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/leapfrog.F90

    r5119 r5123  
    2727  USE lmdz_description, ONLY: descript
    2828  USE lmdz_iniprint, ONLY: lunout, prt_level
    29   USE lmdz_ssum_scopy, ONLY: scopy
     29  USE lmdz_ssum_scopy, ONLY: scopy, ssum
    3030
    3131  IMPLICIT NONE
    … …  
    117117  REAL :: time
    118118
    119   REAL :: SSUM
    120119  ! REAL finvmaold(ip1jmp1,llm)
    121120

  • 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

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/vlsplt.F90

    r5119 r5123  
    421421  USE infotrac, ONLY: nqtot, tracers, & ! CRisi
    422422          min_qParent, min_qMass, min_ratio ! MVals et CRisi
    423   !
     423  USE lmdz_ssum_scopy, ONLY: ssum
     424
     425 !
    424426  ! Auteurs:   P.Le Van, F.Hourdin, F.Forget
    425427  !
    … …  
    469471  REAL :: masseq(ip1jmp1, llm, nqtot), Ratio(ip1jmp1, llm, nqtot) ! CRisi
    470472  INTEGER :: ifils, iq2 ! CRisi
    471 
    472   !
    473   !
    474   REAL :: SSUM
    475473
    476474  DATA first/.TRUE./

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/vlspltqs.F90

    r5119 r5123  
    219219  SAVE first
    220220
    221   REAL :: SSUM
    222221  REAL :: temps0, temps1, temps2, temps3, temps4, temps5
    223222  SAVE temps0, temps1, temps2, temps3, temps4, temps5
    … …  
    522521
    523522  USE comconst_mod, ONLY: pi
     523  USE lmdz_ssum_scopy, ONLY: ssum
    524524
    525525  IMPLICIT NONE
    … …  
    563563  REAL :: masseq(ip1jmp1, llm, nqtot), Ratio(ip1jmp1, llm, nqtot) ! CRisi
    564564  INTEGER :: ifils, iq2 ! CRisi
    565   !
    566   !
    567   REAL :: SSUM
    568565
    569566  DATA first/.TRUE./
Note: See TracChangeset for help on using the changeset viewer.