Changeset 5185 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/print_matrix.F90

Timestamp:

Sep 11, 2024, 4:27:07 PM (2 months ago)

Author:

abarral

Message:

Replace REPROBUS CPP KEY by logical using handmade wonky wrapper

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/print_matrix.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/utilities/print_matrix.F90

@@ -47 +47 @@
           write(unit_local,'(f16.8,$)') mat(i,j)
        end do
-       if (present(name) .and. i == size(mat,1)) then
+       if (present(name) .AND. i == size(mat,1)) then
          write(unit_local,'(a)') ']'
        else