source: CPL/oasis3/trunk/src/lib/clim/src/CLIM_Start.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      SUBROUTINE CLIM_Start(kinfo)
2c
3c*    *** Start ***   CLIM 3.0
4c
5c     purpose:
6c     --------
7c        beginning of the coupled run
8c
9c     interface:
10c     ----------
11c        kinfo  : output status
12c
13c     lib mp:
14c     -------
15c        mpi-2
16c
17c     author:
18c     -------
19c        Eric Sevault   - METEO FRANCE
20c        Laurent Terray - CERFACS
21c        Jean Latour    - F.S.E.   (mpi-2)
22c        Arnaud Caubel  - FECIT - removed kmxtag as argument
23c
24c     ----------------------------------------------------------------
25#if defined use_comm_MPI1 || defined use_comm_MPI2 || !defined use_comm_MPI1 && !defined use_comm_MPI2 && !defined use_comm_SIPC && !defined use_comm_GMEM && !defined use_comm_PIPE && !defined use_comm_NONE
26      USE mod_kinds_oasis
27      USE mod_clim
28      USE mod_comclim
29c     ----------------------------------------------------------------
30      INTEGER (kind=ip_intwp_p) kinfo
31c     ----------------------------------------------------------------
32c
33c*    0. First Check
34c     --------------
35c
36      IF (nexit.ne.1) THEN
37          kinfo = CLIM_FastExit
38          WRITE(nulprt,FMT='(A)') 'Start - should not be called'
39          GO TO 1010
40      ENDIF
41      kinfo  = CLIM_Ok
42      nexit  = 0
43c
44      CALL CLIM_Start_MPI(kinfo)
45c
46c*    4. Get wall clock differences with other models
47c     -----------------------------------------------
48c
49c       4.1 Initilizations
50c       ------------------
51c
52      delta(0:ncplprocs-1)=0.
53      delte(0:ncplprocs-1)=0.
54c
55c*    correct execution
56c
57      nexit = 1
58c
59c     ----------------------------------------------------------------
60c
61 1010 CONTINUE
62      WRITE (nulprt,FMT='(A)') 'Returning from Start -- '
63      CALL FLUSH(nulprt)
64#endif
65      RETURN
66      END
Note: See TracBrowser for help on using the repository browser.