Ignore:
Timestamp:
Aug 2, 2024, 2:12:03 PM (4 months ago)
Author:
abarral
Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

Location:
LMDZ6/branches/Amaury_dev/libf/misc
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_formcoord.f90

    r5117 r5158  
    3232    else
    3333      dxmin = abs(x(2) - x(1))
    34       do i = 2, n - 1
     34      DO i = 2, n - 1
    3535        dx = abs(x(i + 1) - x(i))
    3636        IF (dx<dxmin) dxmin = dx

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_interpolation.f90

    r5119 r5158  
    3434    jl = 0
    3535    ju = n + 1
    36     do while (ju - jl > 1)
     36    DO while (ju - jl > 1)
    3737      jm = (ju + jl) / 2 ! Compute a midpoint,
    3838      IF (ascnd .eqv. (x >= xx(jm))) THEN
    … …  
    120120    end if ! Done hunting, value bracketed.
    121121
    122     do ! Hunt is done, so begin the final bisection phase:
     122    DO ! Hunt is done, so begin the final bisection phase:
    123123      IF (jhi - jlo <= 1) THEN
    124124        IF (x == xx(n)) jlo = n - 1

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_libmath.f90

    r5122 r5158  
    1414    ismax = 1
    1515    sxmax = sx(1)
    16     do i = 1, n - 1
     16    DO i = 1, n - 1
    1717      ix = ix + incx
    1818      IF(sx(ix)>sxmax) THEN

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_q_sat.f90

    r5117 r5158  
    4545    ! ------------------------------------------------------------------
    4646
    47     do ip = 1, np
     47    DO ip = 1, np
    4848
    4949      ! WRITE(*,*)'kelvin,millibar=',kelvin,millibar

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_slopes.f90

    r5119 r5158  
    4040!-------------------------------------------------------------------------------
    4141! Local:
    42   INTEGER :: n, i, j, sta(2), sto(2)
     42  INTEGER :: n, i
    4343  REAL :: xc(SIZE(f,1))                             ! (n) cell centers
    4444  REAL :: h(2:SIZE(f,1)-1), delta_xc(2:SIZE(f,1)-1) ! (2:n-1)
    45   REAL :: fm, ff, fp, dx
     45  REAL :: fm, ff, fp
    4646!-------------------------------------------------------------------------------
    4747  n=SIZE(f,ix)

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_ssum_scopy.f90

    r5120 r5158  
    3232    ssum = 0.
    3333    ix = 1
    34     do i = 1, n
     34    DO i = 1, n
    3535      ssum = ssum + sx(ix)
    3636      ix = ix + incx

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_write_field.f90

    r5119 r5158  
    3232
    3333    GetFieldIndex = -1
    34     do i = 1, NbField
     34    DO i = 1, NbField
    3535      IF (TrueName==FieldName(i)) THEN
    3636        GetFieldIndex = i
    … …  
    152152    Nb = 0
    153153    Pos = 2
    154     do i = 1, Dim(1)
     154    DO i = 1, Dim(1)
    155155      nb = nb + 1
    156156
    … …  
    195195    spacing = '(t2,"' // repeat('-', ColumnSize * NbCol) // '")'
    196196
    197     do i = 1, Dim(2)
     197    DO i = 1, Dim(2)
    198198      nb = 0
    199199      Pos = 2
    200       do j = 1, Dim(1)
     200      DO j = 1, Dim(1)
    201201        nb = nb + 1
    202202
    … …  
    255255    spacing = '(t2,"' // repeat('-', ColumnSize * NbCol) // '")'
    256256
    257     do i = 1, Dim(3)
    258 
    259       do j = 1, Dim(2)
     257    DO i = 1, Dim(3)
     258
     259      DO j = 1, Dim(2)
    260260        nb = 0
    261261        Pos = 2
    262262
    263         do k = 1, Dim(1)
     263        DO k = 1, Dim(1)
    264264          nb = nb + 1
    265265
Note: See TracChangeset for help on using the changeset viewer.