Changeset 1598

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:

• LMDZ5/trunk/libf/phylmd/phys_output_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_mod.F90

@@ -1859 +1859 @@
     if ( type == 'day'.or.type == 'days'.or.type == 'jours'.or.type == 'jour' ) timestep = ttt * dayseconde
     if ( type == 'mounths'.or.type == 'mth'.or.type == 'mois' ) then
-       write(lunout,*)'annee_ref,day_ref mon_len',annee_ref,day_ref,ioget_mon_len(annee_ref,day_ref)
+       write(lunout,*)'annee_ref,day_ref mon_len',annee_ref,day_ref,mth_len
        timestep = ttt * dayseconde * mth_len
     endif