Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/init_be.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/init_be.F90 (modified) (2 diffs)

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

@@ -125 +125 @@
 !!!  Cas 19 niveaux verticaux
 !!!===========================
-!!  IF (klev.eq.19) then
+!!  IF (klev.eq.19) THEN
 !!     DO k = 1,klev
 !!        DO i = 1,klon
@@ -280 +280 @@
 !!  END IF ! fin de 19 niveaux verticaux
 !!
-!!!!!!  IF (klev .ge. 39) then
+!!!!!!  IF (klev .ge. 39) THEN
      DO k = 1,klev
         DO i = 1,klon