File indexing completed on 2018-03-02 18:42:47 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
6bfee994e4 Jean*0001 #include "OCN_CPL_OPTIONS.h"
69e21e3ef0 Jean*0002
30541227a6 Jean*0003
0004
0005
0006
0007 SUBROUTINE CPL_INIT
0008
0009
69e21e3ef0 Jean*0010
30541227a6 Jean*0011
0012
0013
69e21e3ef0 Jean*0014
30541227a6 Jean*0015
0016
69e21e3ef0 Jean*0017
0018
30541227a6 Jean*0019
0020 IMPLICIT NONE
69e21e3ef0 Jean*0021
0022 #include "SIZE.h"
0023 #include "EEPARAMS.h"
0024 #include "EESUPPORT.h"
0025 #include "OCNIDS.h"
0026
30541227a6 Jean*0027
649e58ac02 Jean*0028
30541227a6 Jean*0029
0030
69e21e3ef0 Jean*0031
649e58ac02 Jean*0032 #ifdef COMPONENT_MODULE
30541227a6 Jean*0033
649e58ac02 Jean*0034
0035 INTEGER msgUnit
69e21e3ef0 Jean*0036
0037
649e58ac02 Jean*0038 CALL MITCOMPONENT_INIT(
0039 I ocnCompName,
0040 O MPI_COMM_MODEL, msgUnit )
69e21e3ef0 Jean*0041 #endif
0042
0043 RETURN
0044 END