Changeset 154 in lmdz_wrf


Ignore:
Timestamp:
Aug 5, 2014, 5:38:31 PM (10 years ago)
Author:
lfita
Message:

Adding parenthesis on internal WRITE statement

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/physiq.F90

    r153 r154  
    13181318!
    13191319      CALL phys_cal_update(jD_cur,jH_cur)
    1320       WRITE(jDS,'f10.5')jD_cur
    1321       WRITE(jHS,'f10.5')jH_cur
     1320      WRITE(jDS,'(f10.5)')jD_cur
     1321      WRITE(jHS,'(f10.5)')jH_cur
    13221322
    13231323      fname = 'Entering in physic at day= '//TRIM(jDS)//' hour: '//TRIM(jHS)
    … …  
    18761876!
    18771877      itap   = itap + 1
    1878       WRITE(jDS,'I5')itap
     1878      WRITE(jDS,'(I5)')itap
    18791879      fname = 'After itap= '//TRIM(jDS)
    18801880      varnamechk = 'paprs'
Note: See TracChangeset for help on using the changeset viewer.