Changeset 238 for IOIPSL/trunk


Ignore:
Timestamp:
01/23/08 16:53:27 (16 years ago)
Author:
bellier
Message:

JB : move one instruction for stupid compilers !

File:
1 edited

Legend:

Unmodified
Added
Removed

  • IOIPSL/trunk/src/calendar.f90

    r236 r238  
    248248  INTEGER :: l,n,i,jd,j,d,m,y,ml 
    249249  INTEGER :: add_day 
    250   REAL :: eps_day = SPACING(one_day) 
    251 !--------------------------------------------------------------------- 
     250  REAL :: eps_day 
     251!--------------------------------------------------------------------- 
     252  eps_day = SPACING(one_day) 
    252253  lock_one_year = .TRUE. 
    253254!- 
Note: See TracChangeset for help on using the changeset viewer.