pkg/salt_plume/salt_plume_mnc_init.F

e4775240e5 Dimi*0001 #include "SALT_PLUME_OPTIONS.h"
                0002
                0003 CBOP 0
                0004 C     !ROUTINE: SALT_PLUME_MNC_INIT
                0005 C     !INTERFACE:
                0006       SUBROUTINE SALT_PLUME_MNC_INIT( myThid )
                0007
                0008 C     !DESCRIPTION:
                0009 C     Initialize MNC lookup tables for Mypackage.
                0010
                0011 C     !USES:
                0012       IMPLICIT NONE
                0013 #include "SIZE.h"
                0014 #include "EEPARAMS.h"
                0015 #include "PARAMS.h"
                0016 #include "SALT_PLUME.h"
                0017
                0018 C     !INPUT PARAMETERS:
                0019       INTEGER myThid
                0020 CEOP
                0021
762bde3a3e Dimi*0022 #ifdef ALLOW_SALT_PLUME
e4775240e5 Dimi*0023 #ifdef ALLOW_MNC
                0024
                0025       IF (useMNC) THEN
                0026
                0027        CALL MNC_CW_ADD_VNAME('saltPlumeFlux', 'Cen_xy_Hn__-__t', 3,4,
                0028      &                       myThid)
ba0b047096 Mart*0029        CALL MNC_CW_ADD_VATTR_TEXT('saltPlumeFlux','units','g/m^2/s',
                0030      &                            myThid)
e4775240e5 Dimi*0031        CALL MNC_CW_ADD_VATTR_TEXT('saltPlumeFlux','description',
                0032      &     'Net downward salt flux rejected during freezing', myThid)
                0033
                0034       ENDIF
                0035
                0036 #endif /* ALLOW_MNC */
762bde3a3e Dimi*0037 #endif /* ALLOW_SALT_PLUME */
e4775240e5 Dimi*0038
                0039       RETURN
                0040       END