Muhtarjan,
I believe you can use the % symbol to do what you want:
ncl 0> print(9%3)
(0) 0
ncl 1> print(9%4)
(0) 1
ncl 2> print(15%6)
(0) 3
thus
if (year%4.eq.0) then
print("Leap Year")
end if
Adam
>Delivered-To: asphilli AT ucar.edu
>Delivered-To: ncl-talk AT ucar.edu
>X-Originating-IP: [169.237.35.184]
>X-Originating-Email: [muhterjan AT hotmail.com]
>X-Sender: muhterjan AT hotmail.com
>From: "MUHTARJAN osman" <muhterjan AT hotmail.com>
>To: ncl-talk AT ucar.edu
>Date: Thu, 13 May 2004 14:02:00 -0700
>Mime-Version: 1.0
>X-OriginalArrivalTime: 13 May 2004 21:02:01.0257 (UTC)
FILETIME=[8945A190:01C4392D]
>Subject: residual function
>X-BeenThere: ncl-talk AT ucar.edu
>X-Mailman-Version: 2.1.1
>List-Id: NCAR Command Language User Group <ncl-talk.ucar.edu>
>List-Unsubscribe: <http://mailman.ucar.edu/mailman/listinfo/ncl-talk>,
<mailto:ncl-talk-request AT ucar.edu?subject=unsubscribe>
>List-Post: <mailto:ncl-talk AT ucar.edu>
>List-Help: <mailto:ncl-talk-request AT ucar.edu?subject=help>
>List-Subscribe: <http://mailman.ucar.edu/mailman/listinfo/ncl-talk>,
<mailto:ncl-talk-request AT ucar.edu?subject=subscribe>
>X-Spam-Status: No, hits=-2.2 required=5.0 tests=AWL,BAYES_20 version=2.55
>X-Spam-Level:
>X-Spam-Checker-Version: SpamAssassin 2.55 (1.174.2.19-2003-05-19-exp)
>
>I have a Fortran code like this:
>if(mod(CurrentYear,4)==0)then......................
>
>Now I want to know how to do the same thing in NCL, I cant find any built-in
>function can caculate the residual.
>
>Thank you very much!
>
>
>Muhtarjan Osman
>ASGG
>LAWR
>UC Davis
>
>_________________________________________________________________
>Stop worrying about overloading your inbox - get MSN Hotmail Extra Storage!
>http://join.msn.com/?pgmarket=en-us&page=hotmail/es2&ST=1/go/onm00200362ave/dir
ect/01/
>
>_______________________________________________
>ncl-talk mailing list
>ncl-talk AT ucar.edu
>http://mailman.ucar.edu/mailman/listinfo/ncl-talk
-------------------------------------------------------------
Adam Phillips email: asphilli AT ucar.edu
Climate and Global Dynamics Division tel: (303) 497-1726
National Center for Atmospheric Research fax: (303) 497-1333
P.O. Box 3000
Boulder, CO 80307-3000 http://www.cgd.ucar.edu/~asphilli
_______________________________________________
ncl-talk mailing list
ncl-talk AT ucar.edu
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
This archive was generated by hypermail 2b29 : Thu May 13 2004 - 16:44:17 MDT