Changeset 1598


Ignore:
Timestamp:
12/06/11 11:55:11 (6 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.