File indexing completed on 2018-03-02 18:37:35 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
3fd4b811ee Jean*0001 #include "ATM_CPL_OPTIONS.h"
6c5a9380b0 Ed H*0002
0003
0004
0005
0006
0007
0008 SUBROUTINE CPL_INIT_FIXED( myThid )
0009
0010
0011
9af33e3167 Jean*0012
6c5a9380b0 Ed H*0013
0014 IMPLICIT NONE
0015 #include "SIZE.h"
0016 #include "EEPARAMS.h"
0017 #include "PARAMS.h"
0018
0019
0020 INTEGER myThid
0021
0022
0023 #ifdef ALLOW_MNC
0024
0025
0026 #endif /* ALLOW_MNC */
0027
9a4f5fc78a Jean*0028 #ifdef ALLOW_DIAGNOSTICS
0029 IF ( useDiagnostics ) THEN
0030 CALL CPL_DIAGNOSTICS_INIT( myThid )
0031 ENDIF
0032 #endif
0033
6c5a9380b0 Ed H*0034 RETURN
0035 END