29 |
#ifdef ALLOW_MNC |
#ifdef ALLOW_MNC |
30 |
|
|
31 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
32 |
INTEGER ii, ilnb |
INTEGER ii, jj, ilnb |
33 |
|
character*(80) name |
34 |
character*(MAX_LEN_MBUF) msgbuf |
character*(MAX_LEN_MBUF) msgbuf |
35 |
|
|
36 |
C Functions |
C Functions |
37 |
integer ILNBLNK |
integer ILNBLNK |
38 |
|
|
39 |
DO ii=1,PTRACERS_numInUse |
DO ii = 1,PTRACERS_numInUse |
40 |
|
|
41 |
|
DO jj = 1,80 |
42 |
|
name(jj:jj) = ' ' |
43 |
|
ENDDO |
44 |
|
|
45 |
C Create the tracer |
C Create the tracer |
46 |
ilnb = ILNBLNK(PTRACERS_names(ii)) |
ilnb = ILNBLNK(PTRACERS_names(ii)) |
53 |
ENDIF |
ENDIF |
54 |
CALL MNC_CW_ADD_VNAME( |
CALL MNC_CW_ADD_VNAME( |
55 |
& PTRACERS_names(ii),'Cen_xy_Hn__C__t',4,5,myThid) |
& PTRACERS_names(ii),'Cen_xy_Hn__C__t',4,5,myThid) |
56 |
|
WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb) |
57 |
|
CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__-__t',3,4,myThid) |
58 |
|
|
59 |
C Add the long_name attribute if its defined |
C Add the long_name attribute if its defined |
60 |
ilnb = ILNBLNK(PTRACERS_long_names(ii)) |
ilnb = ILNBLNK(PTRACERS_long_names(ii)) |