/[MITgcm]/MITgcm/pkg/ptracers/ptracers_mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_mnc_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by edhill, Fri Sep 3 20:10:47 2004 UTC revision 1.2 by edhill, Sat Sep 4 03:08:03 2004 UTC
# Line 29  CEOP Line 29  CEOP
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))
# Line 48  C       Create the tracer Line 53  C       Create the tracer
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))
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22