Ignore:
Timestamp:
Sep 19, 2014, 7:51:02 PM (10 years ago)
Author:
lguez
Message:

In guide_main, there is the line:

f_out=((MOD(itau,iguide_sav).EQ.0).AND.guide_sav)

The Fortran standard says that the result of mod(a, p) with p = 0 is
processor dependent. With ifort (on Ada at IDRIS), it produces a
run-time error. This is now fixed. The user must still choose
iguide_sav=0 in order to write only once.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/dyn3d/guide_mod.F90

    r2025 r2124  
    109109    ! frequences f>0: fx/jour; f<0: tous les f jours; f=0: 1 seule fois.
    110110    IF (iguide_sav.GT.0) THEN
    111         iguide_sav=day_step/iguide_sav
    112     ELSE
    113         iguide_sav=day_step*iguide_sav
     111       iguide_sav=day_step/iguide_sav
     112    ELSE if (iguide_sav == 0) then
     113       iguide_sav = huge(0)
     114    else
     115       iguide_sav=day_step*iguide_sav
    114116    ENDIF
    115117
Note: See TracChangeset for help on using the changeset viewer.