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/dynphy_lonlat
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/calfis.f90

    r5119 r5123  
    3535  USE comvert_mod, ONLY: preff, presnivs
    3636  USE lmdz_iniprint, ONLY: lunout, prt_level
    37   USE lmdz_ssum_scopy, ONLY: scopy
     37  USE lmdz_ssum_scopy, ONLY: scopy, ssum
    3838
    3939  IMPLICIT NONE
    … …  
    164164  REAL :: flxwfi(ngridmx, llm)  ! Flux de masse verticale sur la grille physiq
    165165  !
    166 
    167   REAL :: SSUM
    168 
    169166  LOGICAL, SAVE :: firstcal = .TRUE., debut = .TRUE.
    170167  ! REAL rdayvrai

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/lmdz_calfis_loc.F90

    r5118 r5123  
    5151    USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
    5252    USE lmdz_iniprint, ONLY: lunout, prt_level
     53    USE lmdz_ssum_scopy, ONLY: ssum
     54
    5355
    5456    !=======================================================================
    … …  
    216218  REAL :: zsinbis(iim),zcosbis(iim),z1bis(iim)
    217219  REAL :: unskap, pksurcp
    218 
    219   REAL :: SSUM
    220220
    221221  LOGICAL,SAVE :: firstcal=.TRUE., debut=.TRUE.

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r5118 r5123  
    460460    var3d(iml, :, :) = var3d(1, :, :)
    461461
    462     DO il = 1, lml
    463       CALL minmax(iml * jml, var3d(1, 1, il), chmin, chmax)
    464       WRITE(lunout, *)' ' // TRIM(var) // '  min max l ', il, chmin, chmax
    465     END DO
    466 
    467462  END SUBROUTINE start_inter_3d
    468463
Note: See TracChangeset for help on using the changeset viewer.