Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (4 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/cv_routines.F90

    r5116 r5117  
    592592        ! PRINT*,tp(i,k),ah0(i),cl,cpd,qnk(i),t(i,k),gz(i,k),alv,qg,cpd
    593593        tp(i, k) = (ah0(i)-(cl-cpd)*qnk(i)*t(i,k)-gz(i,k)-alv*qg)/cpd
    594         ! if (.not.cpd.gt.1000.) THEN
     594        ! if (.NOT.cpd.gt.1000.) THEN
    595595        ! PRINT*,'CPD=',cpd
    596596        ! stop
    597         ! endif
     597        ! END IF
    598598        clw(i, k) = qnk(i) - qg
    599599        clw(i, k) = max(0.0, clw(i,k))
    … …  
    671671  ! inb(i)=k+1
    672672  ! capem(i)=cape(i)
    673   ! endif
    674   ! endif
     673  ! END IF
     674  ! END IF
    675675  ! 520    continue
    676676  ! 530  continue
    … …  
    698698  ! capem(i)=cape(i)
    699699  ! byp(i)=(tvp(i,k+1)-tv(i,k+1))*dph(i,k+1)/p(i,k+1)
    700   ! endif
    701   ! endif
     700  ! END IF
     701  ! END IF
    702702  ! 520    continue
    703703  ! 530  continue
Note: See TracChangeset for help on using the changeset viewer.