source: CPL/oasis3/trunk/src/mod/oasis3/src/icoor.f @ 1677

Last change on this file since 1677 was 1677, checked in by aclsce, 12 years ago

Imported oasis3 (tag ipslcm5a) from cvs server to svn server (igcmg project).

File size: 1.7 KB
Line 
1      FUNCTION icoor (kind, kimax)
2C****
3C               ******************************
4C               * OASIS FUNCTION  -  LEVEL T *
5C               * --------------     ------- *
6C               ******************************
7C
8C**** *icoor*  - Search function
9C
10C     Purpose:
11C     -------
12C     Given an index value, kind, for a 2D array which has kimax rows, 
13C     this function returns the row number
14C
15C**   Interface:
16C     ---------
17C       *ii =*  *icoor (kind, kimax)*
18C
19C     Input:
20C     -----
21C                kind   : index (integer)
22C                kimax  : number of rows (integer)
23C
24C     Output:
25C     ------
26C     None
27C
28C     Workspace:
29C     ---------
30C     None
31C
32C     Externals:
33C     ---------
34C     None
35C
36C     Reference:
37C     ---------
38C     See OASIS manual (1995)
39C
40C     History:
41C     -------
42C       Version   Programmer     Date      Description
43C       -------   ----------     ----      ----------- 
44C       1.1       R. Sutton      95/11/25  Created
45C       2.0       L. Terray      95/12/26  Modified: to suit OASIS 2.0
46C
47C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
48C
49C* ---------------------------- Include files ---------------------------
50C
51      USE mod_kinds_oasis
52      USE mod_unit
53C
54C* ---------------------------- Argument declarations -------------------
55C
56      INTEGER (kind=ip_intwp_p) icoor
57C
58C* ---------------------------- Poema verses ----------------------------
59C
60C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
61C
62C*    1. Find the row number 
63C        -------------------
64C     
65      icoor = kind - ((kind-1) / kimax) * kimax
66C
67C* End of function
68C
69      RETURN
70      END
Note: See TracBrowser for help on using the repository browser.