/[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.5 by jahn, Thu Aug 23 21:48:24 2012 UTC revision 1.6 by stephd, Tue Oct 23 17:55:30 2012 UTC
# Line 129  cbenw limitation diagnostics Line 129  cbenw limitation diagnostics
129       &     '', myThid)       &     '', myThid)
130  #endif  #endif
131    
132    #ifdef DAR_DIAG_PARW
133          do ii=1,tlam
134              DO jj = 1,MAX_LEN_FNAM
135                 name(jj:jj) = ' '
136              ENDDO
137              WRITE(name,'(a,i2.2)') 'dar_PARw',ii
138              CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
139              CALL MNC_CW_ADD_VATTR_TEXT(name,'units','uEin/m2/s', myThid)
140              CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
141         &     'par at centre grid cell', myThid)
142          enddo
143          do np=1,npmax
144              DO jj = 1,MAX_LEN_FNAM
145                 name(jj:jj) = ' '
146              ENDDO
147              WRITE(name,'(a,i2.2)') 'dar_chl2c',np
148              CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
149              CALL MNC_CW_ADD_VATTR_TEXT(name,'units','mg/mmol', myThid)
150              CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
151         &              'local chl to carbon ratio', myThid)
152          enddo
153    #endif
154    
155  #ifdef DAR_DIAG_IRR  #ifdef DAR_DIAG_IRR
156        do ii=1,tlam        do ii=1,tlam
157            DO jj = 1,MAX_LEN_FNAM            DO jj = 1,MAX_LEN_FNAM
# Line 241  cbenw limitation diagnostics Line 264  cbenw limitation diagnostics
264        CALL MNC_CW_ADD_VATTR_TEXT(name,'description',        CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
265       & 'inverse cosine of under-water solar zenith angle', myThid)       & 'inverse cosine of under-water solar zenith angle', myThid)
266  #endif  #endif
267    #ifdef DAR_DIAG_EK
268          do np=1,npmax
269              DO jj = 1,MAX_LEN_FNAM
270                 name(jj:jj) = ' '
271              ENDDO
272              WRITE(name,'(a,i2.2)') 'dar_Ek',np
273              CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
274              CALL MNC_CW_ADD_VATTR_TEXT(name,'units','uEin/m2/s', myThid)
275              CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
276         &              'Ek', myThid)
277              WRITE(name,'(a,i2.2)') 'dar_EkoverE',np
278              CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
279              CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
280              CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
281         &              'Ek over E', myThid)
282              WRITE(name,'(a,i2.2)') 'dar_acclim',np
283              CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
284              CALL MNC_CW_ADD_VATTR_TEXT(name,'units','mg/mmol', myThid)
285              CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
286         &              'acclimated Chl to C ratio', myThid)
287              do ii=1,tlam
288                DO jj = 1,MAX_LEN_FNAM
289                   name(jj:jj) = ' '
290                ENDDO
291                WRITE(name,'(a,i2.2,a,i2.2)') 'dar_Ek_nl',np,'_',ii
292                CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
293                CALL MNC_CW_ADD_VATTR_TEXT(name,'units','uEin/m2/s', myThid)
294                CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
295         &       'spectral Ek', myThid)
296                WRITE(name,'(a,i2.2,a,i2.2)') 'dar_EkoverE_nl',np,'_',ii
297                CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
298                CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
299                CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
300         &       'spectral Ek over E', myThid)
301             enddo
302          enddo
303    #endif
304  c ANNA_TAVE  c ANNA_TAVE
305  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
306        do np=1,npmax        do np=1,npmax
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22