Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/iniradia.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/iniradia.F90 (modified) (1 diff)

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

@@ -24 +24 @@
   ! PRINT*,'Physiq: apres suphel '
 #if CPP_RRTM
-  if (iflag_rrtm == 1) then
+  if (iflag_rrtm == 1) THEN
      CALL suinit(klon, klev)
      PRINT *, 'iniradia: apres suinit '