pkg/ptracers/ptracers_mnc_init.F

d2825c6d08 Ed H*0001 #include "PTRACERS_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
0a278985fd Jean*0005 C     !ROUTINE:
                0006
d2825c6d08 Ed H*0007 C     !INTERFACE:
                0008       SUBROUTINE PTRACERS_MNC_INIT( myThid )
0a278985fd Jean*0009
d2825c6d08 Ed H*0010 C     !DESCRIPTION:
                0011 C     Initialize PTRACERS parameters, read in data.ptracers
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PTRACERS_SIZE.h"
0a278985fd Jean*0018 #include "PTRACERS_PARAMS.h"
d2825c6d08 Ed H*0019 #include "PARAMS.h"
                0020
                0021 C     !INPUT PARAMETERS:
                0022       INTEGER myThid
                0023 CEOP
                0024
                0025 #ifdef ALLOW_PTRACERS
                0026 #ifdef ALLOW_MNC
                0027
                0028 C     !LOCAL VARIABLES:
e20211aa9b Ed H*0029       INTEGER ii, jj, ilnb
                0030       character*(80) name
d2825c6d08 Ed H*0031       character*(MAX_LEN_MBUF) msgbuf
                0032
                0033 C     Functions
                0034       integer ILNBLNK
                0035
580dd6560d Ed H*0036       IF (useMNC) THEN
                0037         DO ii = 1,PTRACERS_numInUse
                0038
                0039           DO jj = 1,80
                0040             name(jj:jj) = ' '
                0041           ENDDO
                0042
                0043 C         Create the tracer
                0044           ilnb = ILNBLNK(PTRACERS_names(ii))
                0045           IF (ilnb .LT. 1) THEN
                0046             write(msgbuf,'(2a,i3,2a)') 'PTRACERS_MNC_INIT ERROR: ',
                0047      &           'PTRACERS_names(',ii,') is blank--please name it in',
                0048      &           ' ''data.ptracers'''
                0049             CALL print_error(msgbuf, mythid)
                0050             stop 'ABNORMAL END: S/R PTRACERS_MNC_INIT'
                0051           ENDIF
                0052           CALL MNC_CW_ADD_VNAME(
                0053      &         PTRACERS_names(ii),'Cen_xy_Hn__C__t',4,5,myThid)
                0054           WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb)
                0055           CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__-__t',3,4,myThid)
                0056
                0057 C         Add the long_name attribute if its defined
                0058           ilnb = ILNBLNK(PTRACERS_long_names(ii))
                0059           IF (ilnb .GT. 0) THEN
                0060             CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii),
                0061      &           'long_name',PTRACERS_long_names(ii),myThid)
                0062           ENDIF
                0063
                0064 C         Add the units attribute if its defined
                0065           ilnb = ILNBLNK(PTRACERS_units(ii))
                0066           IF (ilnb .GT. 0) THEN
                0067             CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii),'units',
                0068      &           PTRACERS_units(ii),myThid)
                0069           ENDIF
0a278985fd Jean*0070
e20211aa9b Ed H*0071         ENDDO
0a278985fd Jean*0072
580dd6560d Ed H*0073       ENDIF
d2825c6d08 Ed H*0074 #endif /*  ALLOW_MNC  */
                0075 #endif /* ALLOW_PTRACERS */
                0076
                0077       RETURN
                0078       END
                0079