Changeset 1598


Ignore:
Timestamp:
Dec 6, 2011, 11:55:11 AM (13 years ago)
Author:
jghattas
Message:

Bug in write : bad second argument in ioget_mon_len function.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

    r1575 r1598  
    18591859    if ( type == 'day'.or.type == 'days'.or.type == 'jours'.or.type == 'jour' ) timestep = ttt * dayseconde
    18601860    if ( type == 'mounths'.or.type == 'mth'.or.type == 'mois' ) then
    1861        write(lunout,*)'annee_ref,day_ref mon_len',annee_ref,day_ref,ioget_mon_len(annee_ref,day_ref)
     1861       write(lunout,*)'annee_ref,day_ref mon_len',annee_ref,day_ref,mth_len
    18621862       timestep = ttt * dayseconde * mth_len
    18631863    endif
Note: See TracChangeset for help on using the changeset viewer.