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/conemav.F90

    r5116 r5117  
    120120  END DO
    121121  ! CALL dump2d(iim,jjm-1,rflag(2:klon-1),'FLAG CONVECTION   ')
    122   ! if (klon.eq.1) THEN
     122  ! if (klon.EQ.1) THEN
    123123  ! PRINT*,'IFLAG ',iflag
    124124  ! else
    125125  ! WRITE(*,'(96i1)') (iflag(i),i=2,klon-1)
    126   ! endif
     126  ! END IF
    127127  DO k = 1, klev
    128128    DO i = 1, klon
Note: See TracChangeset for help on using the changeset viewer.