Ignore:
Timestamp:
Jul 24, 2024, 8:45:54 PM (4 months ago)
Author:
abarral
Message:

fix lmdz_fxy

Location:
LMDZ6/branches/Amaury_dev/libf/misc
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_libmath.f90

    r5116 r5122  
    33MODULE lmdz_libmath
    44  IMPLICIT NONE; PRIVATE
    5   PUBLIC ismin, ismax
     5  PUBLIC ismin, ismax, minmax
    66
    77CONTAINS

  • LMDZ6/branches/Amaury_dev/libf/misc/lmdz_readTracFiles.f90

    r5117 r5122  
    429429      IF(LEN_TRIM(str) == 0) CYCLE                                     !--- Empty line (probably end of file)
    430430      IF(str     == '') CYCLE                                          !--- Skip empty line (probably at the end of the file)
    431       IF(str(1:1)==
    432         '&') THEN                                           !=== SECTION HEADER LINE
     431      IF(str(1:1)=='&') THEN                                           !=== SECTION HEADER LINE
    433432        ndb = SIZE(dBase)                                             !--- Number of sections so far
    434433        secn = str(2:LEN_TRIM(str)) // ' '                               !--- Current section name
Note: See TracChangeset for help on using the changeset viewer.