Ignore:
Timestamp:
Jul 22, 2024, 9:46:57 AM (4 months ago)
Author:
abarral
Message:

Revert cosp*/ from the trunk, as it's external code
Add missing bits from FCM2 source

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/math_lib.F90

    r5086 r5095  
    209209          exit
    210210       end if
    211     END DO
     211    end do
    212212   
    213213    if (lerror) then
    … …  
    244244       end if
    245245       ilo = ilo + 1
    246     END DO
     246    end do
    247247   
    248248    ilo = max ( 2, ilo )
    … …  
    254254       end if
    255255       ihi = ihi - 1
    256     END DO
     256    end do
    257257   
    258258    ihi = min ( ihi, ntab - 1 )
    … …  
    305305       syl = x2
    306306       
    307     END DO
     307    end do
    308308
    309309    result = sum1 + ca * ( b**3 - syl**3 ) / 3._wp &
Note: See TracChangeset for help on using the changeset viewer.