Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/dynetat0_loc.F90

    r5114 r5116  
    182182      iqParent = tracers(iq)%iqParent
    183183      IF(tracers(iq)%iso_iZone == 0) THEN
    184          if (tnat1) then
     184         if (tnat1) THEN
    185185                 tnat=1.0
    186186                 alpha_ideal=1.0
    187                  write(*,*) 'attention dans dynetat0: les alpha_ideal sont a 1'
     187                 WRITE(*,*) 'attention dans dynetat0: les alpha_ideal sont a 1'
    188188         else
    189189          IF(getKey('tnat', tnat, isoName(iName)) .OR. getKey('alpha', alpha_ideal, isoName(iName))) &
Note: See TracChangeset for help on using the changeset viewer.