/[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.6 by stephd, Tue Oct 23 17:55:30 2012 UTC revision 1.7 by benw, Tue May 19 14:30:15 2015 UTC
# Line 63  C     Functions Line 63  C     Functions
63  cbenw limitation diagnostics  cbenw limitation diagnostics
64  #ifdef QUOTA_DIAG_LIMIT  #ifdef QUOTA_DIAG_LIMIT
65        do np=1,npmax        do np=1,npmax
66  c nitrogen  c carbon
67          DO jj = 1,MAX_LEN_FNAM          DO jj = 1,MAX_LEN_FNAM
68            name(jj:jj) = ' '             name(jj:jj) = ' '
69          ENDDO          ENDDO
70            WRITE(name,'(a,i3.3)') 'dar_AP_C_',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            WRITE(name,'(a,i3.3)') 'dar_HP_C_',np
75            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
76            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
77            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
78    c nitrogen
79            WRITE(name,'(a,i3.3)') 'dar_AP_N_',np
80            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
81            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
82            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
83            WRITE(name,'(a,i3.3)') 'dar_HP_N_',np
84            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
85            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
86            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
87          WRITE(name,'(a,i3.3)') 'dar_Nlim_',np          WRITE(name,'(a,i3.3)') 'dar_Nlim_',np
88          CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)          CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
89          CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)          CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
90          CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)          CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
91    c phosphorus
92    #ifdef PQUOTA
93            WRITE(name,'(a,i3.3)') 'dar_AP_P_',np
94            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
95            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
96            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
97            WRITE(name,'(a,i3.3)') 'dar_HP_P_',np
98            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
99            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
100            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
101            WRITE(name,'(a,i3.3)') 'dar_Plim_',np
102            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
103            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
104            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
105    #endif
106  c iron  c iron
107          DO jj = 1,MAX_LEN_FNAM  #ifdef FQUOTA
108             name(jj:jj) = ' '          WRITE(name,'(a,i3.3)') 'dar_AP_F_',np
109          ENDDO          CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
110            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
111            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
112            WRITE(name,'(a,i3.3)') 'dar_HP_F_',np
113            CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
114            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
115            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
116          WRITE(name,'(a,i3.3)') 'dar_Flim_',np          WRITE(name,'(a,i3.3)') 'dar_Flim_',np
117          CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)          CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
118          CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)          CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
119          CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)          CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
120    #endif
121  c light  c light
         DO jj = 1,MAX_LEN_FNAM  
            name(jj:jj) = ' '  
         ENDDO  
122          WRITE(name,'(a,i3.3)') 'dar_Ilim_',np          WRITE(name,'(a,i3.3)') 'dar_Ilim_',np
123          CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)          CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
124          CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)          CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
125          CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)          CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
126    !
127        enddo        enddo
128  c temperature  c temperature
       DO jj = 1,MAX_LEN_FNAM  
          name(jj:jj) = ' '  
       ENDDO  
129        WRITE(name,'(a)') 'dar_Tlim_ave'        WRITE(name,'(a)') 'dar_Tlim_ave'
130        CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)        CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
131        CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)        CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22