/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_mnc_init.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_mnc_init.F

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

revision 1.1 by jahn, Wed Apr 13 18:56:24 2011 UTC revision 1.2 by benw, Mon Jul 2 09:40:58 2012 UTC
# Line 60  C     Functions Line 60  C     Functions
60       &     'dar_PP_ave','units','--', myThid)       &     'dar_PP_ave','units','--', myThid)
61        CALL MNC_CW_ADD_VATTR_TEXT('dar_PP_ave','description',        CALL MNC_CW_ADD_VATTR_TEXT('dar_PP_ave','description',
62       &     '', myThid)       &     '', myThid)
63    cbenw limitation diagnostics
64    #ifdef QUOTA_DIAG_LIMIT
65          do np=1,npmax
66    c nitrogen
67            DO jj = 1,MAX_LEN_FNAM
68              name(jj:jj) = ' '
69            ENDDO
70            WRITE(name,'(a,i3.3)') 'dar_Nlim_',np
71            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
72            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
73            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
74    c iron
75            DO jj = 1,MAX_LEN_FNAM
76               name(jj:jj) = ' '
77            ENDDO
78            WRITE(name,'(a,i3.3)') 'dar_Flim_',np
79            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
80            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
81            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
82    c light
83            DO jj = 1,MAX_LEN_FNAM
84               name(jj:jj) = ' '
85            ENDDO
86            WRITE(name,'(a,i3.3)') 'dar_Ilim_',np
87            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
88            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
89            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
90          enddo
91    c temperature
92          DO jj = 1,MAX_LEN_FNAM
93             name(jj:jj) = ' '
94          ENDDO
95          WRITE(name,'(a)') 'dar_Tlim_ave'
96          CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
97          CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
98          CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
99    #endif
100    cbenw limitation diagnostics
101  #ifndef ALLOW_QUOTA  #ifndef ALLOW_QUOTA
102        CALL MNC_CW_ADD_VNAME(        CALL MNC_CW_ADD_VNAME(
103       &     'dar_Chl_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)       &     'dar_Chl_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22