Changeset 1010 for LMDZ4/trunk


Ignore:
Timestamp:
Oct 7, 2008, 12:38:25 PM (16 years ago)
Author:
lsce
Message:

Corrected bug due to merge.
JG

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/cpl_mod.F90

    r1001 r1010  
    311311       time_sec=(itime-1)*dtime
    312312#ifdef CPP_COUPLE
    313     il_time_secs=(itime-1)*dtime
     313    time_sec=(itime-1)*dtime
    314314!$OMP MASTER
    315     CALL fromcpl(il_time_secs, tab_read_flds)
     315    CALL fromcpl(time_sec, tab_read_flds)
    316316!$OMP END MASTER
    317317#endif
    … …  
    11651165    time_sec=(itime-1)*dtime
    11661166#ifdef CPP_COUPLE
    1167     il_time_secs=(itime-1)*dtime
     1167    time_sec=(itime-1)*dtime
    11681168!$OMP MASTER
    1169     CALL intocpl(il_time_secs, lafin, tab_flds(:,:,:))
     1169    CALL intocpl(time_sec, lafin, tab_flds(:,:,:))
    11701170!$OMP END MASTER
    11711171#endif
Note: See TracChangeset for help on using the changeset viewer.