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

Correct various minor mistakes from previous commits

Location:
LMDZ6/branches/Amaury_dev/libf/dyn3d_common
Files:
17 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/advn.f90

    r5118 r5123  
    1515  !   --------------------------------------------------------------------
    1616  USE lmdz_iniprint, ONLY: lunout, prt_level
     17  USE lmdz_ssum_scopy, ONLY: ssum
     18
    1719  IMPLICIT NONE
    1820  !
    … …  
    4648  REAL :: zqh(ip1jmp1, llm), zqb(ip1jmp1, llm)
    4749  REAL :: temps0, temps1, temps2, temps3
    48   REAL :: ztemps1, ztemps2, ssum
     50  REAL :: ztemps1, ztemps2
    4951  save temps1, temps2, temps3
    5052  REAL :: zzpbar, zzw
    … …  
    726728  !   --------------------------------------------------------------------
    727729  USE lmdz_iniprint, ONLY: lunout, prt_level
     730  USE lmdz_ssum_scopy, ONLY: ssum
     731
    728732  IMPLICIT NONE
    729733  !
    … …  
    749753  REAL :: convpn, convps, convmpn, convmps, massen, masses
    750754  REAL :: zm, zq, zsigm, zsigp, zqm, zqp
    751   REAL :: ssum
    752755  REAL :: prec
    753756  save prec

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/advy.f90

    r5116 r5123  
    9292  REAL :: z1(iim), zcos(iim), zsin(iim)
    9393  REAL :: smpn,smps,s0pn,s0ps
    94   REAL :: SSUM
    95   EXTERNAL SSUM
    9694  !
    9795  REAL :: sqi,sqf

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/advyp.f90

    r5105 r5123  
    109109  REAL :: cy1(llm,ntra), cyLAT(llm,ntra)
    110110  REAL :: z1(iim), zcos(iim), zsin(iim)
    111   REAL :: SSUM
    112   EXTERNAL SSUM
    113111  !
    114112  REAL :: sqi,sqf

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/convflu.f90

    r5105 r5123  
    1818  ! nbniv   est le nombre de niveaux vert. de  xflu et de yflu .
    1919  !
     20  USE lmdz_ssum_scopy, ONLY: ssum
     21
     22
    2023  IMPLICIT NONE
    2124  !
    … …  
    2629  DIMENSION  xflu( ip1jmp1,nbniv ),yflu( ip1jm,nbniv ) , &
    2730        convfl( ip1jmp1,nbniv )
    28   !
    29   REAL :: SSUM
    30   !
    31   !
     31
     32
    3233  INCLUDE "comgeom.h"
    3334  !

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/disvert_noterre.f90

    r5118 r5123  
    3636  REAL :: x
    3737
    38   REAL :: SSUM
    39   EXTERNAL SSUM
    4038  REAL :: newsig
    4139  REAL :: dz0,dz1,nhaut,sig1,esig,csig,zz

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diverg.f90

    r5105 r5123  
    1111  !          x et y  etant des composantes covariantes   ...
    1212  !  *********************************************************************
     13  USE lmdz_ssum_scopy, ONLY: ssum
     14
    1315  IMPLICIT NONE
    1416  !
    … …  
    3739  REAL :: sumypn,sumyps
    3840  !    ...................................................................
    39   !
    40   REAL :: SSUM
    41   !
    42   !
     41
    4342  DO l = 1,klevel
    4443  !

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/diverg_gam.f90

    r5105 r5123  
    1212  !          x et y  etant des composantes covariantes   ...
    1313  !  *********************************************************************
     14  USE lmdz_ssum_scopy, ONLY: ssum
     15
    1416  IMPLICIT NONE
    1517  !
    … …  
    4042  INTEGER :: l,ij
    4143  !    ...................................................................
    42   !
    43   REAL :: SSUM
    44   !
     44
    4545  !
    4646  DO l = 1,klevel

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divergf.f90

    r5106 r5123  
    1212  !  *********************************************************************
    1313  USE lmdz_filtreg, ONLY: filtreg
     14  USE lmdz_ssum_scopy, ONLY: ssum
     15
    1416  IMPLICIT NONE
    1517  !
    … …  
    3840  REAL :: sumypn,sumyps
    3941  !    ...................................................................
    40   !
    41   REAL :: SSUM
    42   !
     42
    4343  !
    4444  DO l = 1,klevel

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/divergst.f90

    r5105 r5123  
    1 
    21! $Header$
    32
    4 SUBROUTINE divergst(klevel,x,y,div)
     3SUBROUTINE divergst(klevel, x, y, div)
     4  USE lmdz_ssum_scopy, ONLY: ssum
     5
    56  IMPLICIT NONE
    67  !
    … …  
    1718  !   -------------------------------------------------------------------
    1819  !
     20
    1921  INCLUDE "dimensions.h"
    2022  INCLUDE "paramet.h"
    … …  
    2224
    2325  INTEGER :: klevel
    24   REAL :: x( ip1jmp1,klevel ),y( ip1jm,klevel ),div( ip1jmp1,klevel )
    25   INTEGER :: ij,l,i
    26   REAL :: aiy1( iip1 ) , aiy2( iip1 )
    27   REAL :: sumypn,sumyps
    28 
    29   REAL :: SSUM
     26  REAL :: x(ip1jmp1, klevel), y(ip1jm, klevel), div(ip1jmp1, klevel)
     27  INTEGER :: ij, l, i
     28  REAL :: aiy1(iip1), aiy2(iip1)
     29  REAL :: sumypn, sumyps
    3030  !
    3131  !
    32   DO l = 1,klevel
    33   !
    34   DO ij = iip2, ip1jm - 1
    35   div( ij + 1, l ) = x(ij+1,l) - x(ij,l)+ y(ij-iim,l)-y(ij+1,l)
    36   END DO
    37   !
    38   ! ....  correction pour  div( 1,j,l)  ......
    39   ! ....   div(1,j,l)= div(iip1,j,l) ....
    40   !
    41   !DIR$ IVDEP
    42   DO ij = iip2,ip1jm,iip1
    43   div( ij,l ) = div( ij + iim,l )
    44   END DO
    45   !
    46   ! ....  calcul  aux poles  .....
    47   !
    48   !
    49   DO i  = 1,iim
    50   aiy1(i)= y(i,l)
    51   aiy2(i)= y(i+ip1jmi1,l)
    52   END DO
    53   sumypn = SSUM ( iim,aiy1,1 )
    54   sumyps = SSUM ( iim,aiy2,1 )
    55   DO i = 1,iip1
    56   div(     i    , l ) = - sumypn/iim
    57   div( i + ip1jm, l ) =   sumyps/iim
    58   END DO
    59   !
     32  DO l = 1, klevel
     33    !
     34    DO ij = iip2, ip1jm - 1
     35      div(ij + 1, l) = x(ij + 1, l) - x(ij, l) + y(ij - iim, l) - y(ij + 1, l)
     36    END DO
     37    !
     38    ! ....  correction pour  div( 1,j,l)  ......
     39    ! ....   div(1,j,l)= div(iip1,j,l) ....
     40    !
     41    !DIR$ IVDEP
     42    DO ij = iip2, ip1jm, iip1
     43      div(ij, l) = div(ij + iim, l)
     44    END DO
     45    !
     46    ! ....  calcul  aux poles  .....
     47    !
     48    !
     49    DO i = 1, iim
     50      aiy1(i) = y(i, l)
     51      aiy2(i) = y(i + ip1jmi1, l)
     52    END DO
     53    sumypn = SSUM (iim, aiy1, 1)
     54    sumyps = SSUM (iim, aiy2, 1)
     55    DO i = 1, iip1
     56      div(i, l) = - sumypn / iim
     57      div(i + ip1jm, l) = sumyps / iim
     58    END DO
     59    !
    6060  END DO
    6161  RETURN

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/inigeom.f90

    r5117 r5123  
    2222  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
    2323        alphax,alphay,taux,tauy,transx,transy,pxo,pyo
     24  USE lmdz_ssum_scopy, ONLY: ssum
    2425  IMPLICIT NONE
    2526  !
    … …  
    5051  SAVE rlatu1,yprimu1,rlatu2,yprimu2,yprimv,yprimu
    5152  SAVE rlonm025,xprimm025,rlonp025,xprimp025
    52 
    53   REAL :: SSUM
    5453  !
    5554  !

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/limx.f90

    r5117 r5123  
    4242  Logical :: extremum,first
    4343  save first
    44 
    45   REAL :: SSUM
    46   INTEGER :: ismax,ismin
    47   EXTERNAL  SSUM, ismin,ismax
    48 
    4944  data first/.TRUE./
    5045

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/limy.f90

    r5117 r5123  
    1616  USE comconst_mod, ONLY: pi
    1717  USE lmdz_libmath, ONLY: ismax, ismin
     18  USE lmdz_ssum_scopy, ONLY: ssum
     19
    1820  IMPLICIT NONE
    1921  !
    … …  
    4749  REAL :: coslon(iip1),coslondlon(iip1)
    4850  save sinlon,coslon,sinlondlon,coslondlon
    49   !
    50   !
    51   REAL :: SSUM
    52   EXTERNAL  SSUM
    5351
    5452  data first/.TRUE./

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/limz.f90

    r5117 r5123  
    4242  Logical :: extremum,first
    4343  save first
    44 
    45   REAL :: SSUM
    46   INTEGER :: ismax,ismin
    47   EXTERNAL  SSUM, ismin,ismax
    4844
    4945  data first/.TRUE./

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/massdair.f90

    r5105 r5123  
    3131  REAL :: massemoyn, massemoys
    3232
    33   REAL :: SSUM
    3433  !
    3534  !

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/pentes_ini.f90

    r5117 r5123  
    55
    66  USE comconst_mod, ONLY: pi, dtvr
     7  USE lmdz_ssum_scopy, ONLY: ssum
    78
    89  IMPLICIT NONE
    … …  
    5556  REAL :: qmin,zq,pente_max
    5657  !
    57   REAL :: SSUM
    58   INTEGER :: ismax,ismin,lati,latf
    59   EXTERNAL  SSUM, ismin,ismax
     58  INTEGER :: lati,latf
    6059  LOGICAL :: first
    6160  save first

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/prather.f90

    r5117 r5123  
    55
    66  USE comconst_mod, ONLY: pi
     7  USE lmdz_ssum_scopy, ONLY: ssum
    78
    89  IMPLICIT NONE
    … …  
    5859  REAL :: dyn1,dyn2,dys1,dys2,qpn,qps,dqzpn,dqzps
    5960  REAL :: masn,mass
    60   !
    61   REAL :: SSUM
    62   INTEGER :: ismax,ismin
    63   EXTERNAL  SSUM, ismin,ismax
     61
    6462  LOGICAL :: first
    6563  save first

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/sortvarc.f90

    r5119 r5123  
    1313  USE lmdz_filtreg, ONLY: filtreg
    1414  USE lmdz_iniprint, ONLY: lunout, prt_level
    15   USE lmdz_ssum_scopy, ONLY: scopy
     15  USE lmdz_ssum_scopy, ONLY: scopy, ssum
    1616
    1717  IMPLICIT NONE
    … …  
    6464  INTEGER :: l, ij, imjmp1
    6565
    66   REAL :: SSUM
    6766  LOGICAL, SAVE :: firstcal = .TRUE.
    6867  CHARACTER(LEN = *), PARAMETER :: modname = "sortvarc"
Note: See TracChangeset for help on using the changeset viewer.