Changeset 4275


Ignore:
Timestamp:
Sep 21, 2022, 3:12:15 PM (20 months ago)
Author:
lguez
Message:

Bug fix: remove comma before i/o item list

This was accepted by compilers as a legacy extension.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_1D_read_forc_cases.h

    r3780 r4275  
    843843      if (forcing_case) then
    844844
    845          write(*,*),'avant call read_1D_cas'
     845         write(*,*) 'avant call read_1D_cas'
    846846         call read_1D_cas
    847847         write(*,*) 'Forcing read'
    … …  
    918918      if (forcing_case2) then
    919919
    920          write(*,*),'avant call read2_1D_cas'
     920         write(*,*) 'avant call read2_1D_cas'
    921921         call read2_1D_cas
    922922         write(*,*) 'Forcing read'
    … …  
    10171017      if (forcing_SCM) then
    10181018
    1019          write(*,*),'avant call old_read_SCM_cas'
     1019         write(*,*) 'avant call old_read_SCM_cas'
    10201020         call old_read_SCM_cas
    10211021         write(*,*) 'Forcing read'
Note: See TracChangeset for help on using the changeset viewer.