source: CPL/oasis3/trunk/src/mod/oasis3/src/reset.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: 2.3 KB
Line 
1      SUBROUTINE reset
2C****
3C               *****************************
4C               * OASIS ROUTINE  -  LEVEL 1 *
5C               * -------------     ------- *
6C               *****************************
7C
8C**** *reset*  - Reinitialize field macro arrays
9C
10C     Purpose:
11C     -------
12C     Zero field macro array
13C
14C**   Interface:
15C     ---------
16C       *CALL*  *reset*
17C
18C     Input:
19C     -----
20C     None
21C
22C     Output:
23C     ------
24C     None
25C
26C     Workspace:
27C     ---------
28C     none
29C
30C     Externals:
31C     ---------
32C     None
33C
34C     Reference:
35C     ---------
36C     See OASIS manual (1995) 
37C
38C     History:
39C     -------
40C       Version   Programmer     Date      Description
41C       -------   ----------     ----      ----------- 
42C       2.0       L. Terray      95/08/23  created 
43C       2.3       S. Valcke      99/04/30  added: printing levels
44C
45C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
46C
47C* --------------- Include files and USE of modules ---------------------------
48C
49      USE mod_parameter
50      USE mod_memory
51      USE mod_unit
52      USE mod_printing
53C
54C* ---------------------------- Poema verses ----------------------------
55C
56C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
57C
58C*    1. Set up memory dynamic allocation
59C        --------------------------------
60C
61      IF (nlogprt .GE. 1) THEN
62          WRITE (UNIT = nulou,FMT = *) ' '
63          WRITE (UNIT = nulou,FMT = *) ' '
64          WRITE (UNIT = nulou,FMT = *) 
65     $    '           ROUTINE reset  -  Level 1'
66          WRITE (UNIT = nulou,FMT = *) 
67     $    '           *************     *******'
68          WRITE (UNIT = nulou,FMT = *) ' '
69          WRITE (UNIT = nulou,FMT = *) 
70     $    ' reinitialize field macro arrays'
71          WRITE (UNIT = nulou,FMT = *) ' '
72          WRITE (UNIT = nulou,FMT = *) ' '
73      ENDIF
74C
75C* Zero main storage area
76C
77C* - Real arrays: field macro array
78C
79      CALL szero (fldold, ig_maxold)
80      CALL szero (fldnew, ig_maxnew)
81C
82C
83C*    2. End of routine
84C        --------------
85C
86      IF (nlogprt .GE. 1) THEN
87          WRITE (UNIT = nulou,FMT = *) ' '
88          WRITE (UNIT = nulou,FMT = *) 
89     $    '          --------- End of routine reset ---------'
90          CALL FLUSH (nulou)
91      ENDIF
92      RETURN
93      END
94
95
Note: See TracBrowser for help on using the repository browser.