pkg/pp81/pp81_init_fixed.F

a006ac8558 Mart*0001 #include "PP81_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: PP81_INIT_FIXED
                0005 C     !INTERFACE:
                0006       SUBROUTINE PP81_INIT_FIXED( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE PP81_INIT_FIXED
016b84c482 Mart*0011 C     | o Routine to initialize PP81 variables
a006ac8558 Mart*0012 C     |   that are kept fixed during the run.
                0013 C     *==========================================================*
                0014 C     \ev
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017
                0018 C     === Global variables ===
                0019 #include "EEPARAMS.h"
                0020 #include "SIZE.h"
                0021 #include "PARAMS.h"
                0022
                0023 C     !INPUT/OUTPUT PARAMETERS:
                0024 C     === Routine arguments ===
                0025 C     myThid ::  my Thread Id number
                0026       INTEGER myThid
                0027 CEOP
                0028
                0029 C     !LOCAL VARIABLES :
                0030 C     === Local variables ===
                0031
                0032 #ifdef ALLOW_DIAGNOSTICS
                0033       IF ( useDiagnostics ) THEN
                0034         CALL PP81_DIAGNOSTICS_INIT( myThid )
                0035       ENDIF
                0036 #endif
                0037
                0038       RETURN
                0039       END