Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynetat0_loc.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (2 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/dyn3dmem/dynetat0_loc.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynetat0_loc.F90

@@ -182 +182 @@
       iqParent = tracers(iq)%iqParent
       IF(tracers(iq)%iso_iZone == 0) THEN
-         if (tnat1) then
+         if (tnat1) THEN
                  tnat=1.0
                  alpha_ideal=1.0
-                 write(*,*) 'attention dans dynetat0: les alpha_ideal sont a 1'
+                 WRITE(*,*) 'attention dans dynetat0: les alpha_ideal sont a 1'
          else
           IF(getKey('tnat', tnat, isoName(iName)) .OR. getKey('alpha', alpha_ideal, isoName(iName))) &