Changeset 1937


Ignore:
Timestamp:
Jan 20, 2014, 4:31:20 PM (11 years ago)
Author:
lguez
Message:

Added test on ipos. Program could crash because of a bad value of phys_out_filetimesteps, with an unclear message.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

    r1920 r1937  
    515515    ! 
    516516    il=len_trim(str)
    517     WRITE(lunout,*)ipos,il
     517    WRITE(lunout,*) "ipos = ", ipos
     518    WRITE(lunout,*) "il = ", il
     519    if (ipos == 0) call abort_gcm("convers_timesteps", "bad str", 1)
    518520    read(str(1:ipos),*) ttt
    519521    WRITE(lunout,*)ttt
Note: See TracChangeset for help on using the changeset viewer.