Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (2 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/yamada4.F90

    r5116 r5117  
    357357        ! else
    358358        ! q2(ig,k)=(qpre/(1.-aa(ig,k)*qpre))**2
    359         ! endif
    360         ! endif
     359        ! END IF
     360        ! END IF
    361361        q2(ig, k) = min(max(q2(ig, k), 1.E-10), 1.E4)
    362362      END DO
Note: See TracChangeset for help on using the changeset viewer.