Re: residual function

From: Takeshi Enomoto (eno AT XXXXXX)
Date: Thu May 13 2004 - 19:17:30 MDT

  • Next message: baoqing: "Read a fortran unformatted sequential file"

    Dear Osman,

    For Gregorian calendar, you could use isleapyear()
    rather than calculating simply a modulo with %.

    ncl 0> print(isleapyear(2004))
    (0) True
    ncl 1> print(isleapyear(2000))
    (0) True
    ncl 2> print(isleapyear(1900))
    (0) False

    if (isleapyear(year)) then

    On 2004/05/14, at 6:07, Adam Phillips wrote:

    > if (year%4.eq.0) then
    > print("Leap Year")
    > end if

    -----
    Dr. Takeshi Enomoto
    eno AT jamstec.go.jp
    Earth Simulator Center

    _______________________________________________
    ncl-talk mailing list
    ncl-talk AT ucar.edu
    http://mailman.ucar.edu/mailman/listinfo/ncl-talk



    This archive was generated by hypermail 2b29 : Fri May 14 2004 - 07:46:21 MDT