Parent Directory | Revision Log | Revision Graph | Patch
revision 1.4 by cnh, Wed Sep 26 18:09:16 2001 UTC | revision 1.5 by jmc, Sat Jun 15 03:28:39 2002 UTC | |
---|---|---|
# | Line 18 C \ev | Line 18 C \ev |
18 | C !CALLING SEQUENCE: | C !CALLING SEQUENCE: |
19 | C PACKAGES_INIT_FIXED | C PACKAGES_INIT_FIXED |
20 | C | | C | |
21 | C |-- GAD_INIT | |
22 | C | | |
23 | C |-- OBCS_INIT_FIXED | C |-- OBCS_INIT_FIXED |
24 | C | | C | |
25 | C |-- FLT_INIT | C |-- FLT_INIT |
# | Line 35 C myThid - Number of this instances | Line 37 C myThid - Number of this instances |
37 | INTEGER myThid | INTEGER myThid |
38 | CEOP | CEOP |
39 | ||
40 | C-- Initialize fixed params for GAD | |
41 | CALL GAD_INIT( myThid ) | |
42 | ||
43 | C-- Initialize fixed arrays for OBCS | C-- Initialize fixed arrays for OBCS |
44 | #ifdef ALLOW_OBCS | #ifdef ALLOW_OBCS |
45 | IF (useOBCS) THEN | IF (useOBCS) THEN |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |