Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/conemav.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/conemav.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/conemav.F90

@@ -120 +120 @@
   END DO
   ! CALL dump2d(iim,jjm-1,rflag(2:klon-1),'FLAG CONVECTION   ')
-  ! if (klon.eq.1) then
+  ! if (klon.eq.1) THEN
   ! PRINT*,'IFLAG ',iflag
   ! else
-  ! write(*,'(96i1)') (iflag(i),i=2,klon-1)
+  ! WRITE(*,'(96i1)') (iflag(i),i=2,klon-1)
   ! endif
   DO k = 1, klev