pkg/salt_plume/salt_plume_init_fixed.F

e4775240e5 Dimi*0001 #include "SALT_PLUME_OPTIONS.h"
                0002
                0003 CBOP 0
762bde3a3e Dimi*0004 C     !ROUTINE: SALT_PLUME_INIT_FIXED
                0005 C     !INTERFACE:
e4775240e5 Dimi*0006       SUBROUTINE SALT_PLUME_INIT_FIXED( myThid )
                0007
                0008 C     !DESCRIPTION:
                0009 C     Initialize SALT_PLUME variables that are kept fixed during the run.
                0010
                0011 C     !USES:
                0012       IMPLICIT NONE
                0013 #include "EEPARAMS.h"
                0014 #include "SIZE.h"
                0015 #include "PARAMS.h"
                0016
                0017 C     !INPUT/OUTPUT PARAMETERS:
                0018 C     myThid ::  my Thread Id number
                0019       INTEGER myThid
                0020 CEOP
                0021
762bde3a3e Dimi*0022 #ifdef ALLOW_SALT_PLUME
e4775240e5 Dimi*0023
                0024 #ifdef ALLOW_MNC
                0025       IF (useMNC) THEN
                0026         CALL SALT_PLUME_MNC_INIT( myThid )
                0027       ENDIF
                0028 #endif /* ALLOW_MNC */
                0029
                0030 #ifdef ALLOW_DIAGNOSTICS
                0031       IF ( useDiagnostics ) THEN
                0032         CALL SALT_PLUME_DIAGNOSTICS_INIT( myThid )
                0033       ENDIF
                0034 #endif /* ALLOW_DIAGNOSTICS */
                0035
762bde3a3e Dimi*0036 #endif /* ALLOW_SALT_PLUME */
                0037
e4775240e5 Dimi*0038       RETURN
                0039       END