/[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.2 by benw, Mon Jul 2 09:40:58 2012 UTC revision 1.3 by jahn, Mon Jul 30 15:21:51 2012 UTC
# Line 153  cbenw limitation diagnostics Line 153  cbenw limitation diagnostics
153        enddo        enddo
154  #endif  #endif
155    
156    #ifdef DAR_DIAG_IRR_AMPS
157          do ii=1,tlam
158              DO jj = 1,MAX_LEN_FNAM
159                 name(jj:jj) = ' '
160              ENDDO
161              WRITE(name,'(a,i2.2)') 'dar_c1_',ii
162              CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
163              CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
164              CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
165              WRITE(name,'(a,i2.2)') 'dar_c2_',ii
166              CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
167              CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
168              CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
169          enddo
170    #endif
171  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
172        do ii=1,tlam        do ii=1,tlam
173            DO jj = 1,MAX_LEN_FNAM            DO jj = 1,MAX_LEN_FNAM
# Line 198  cbenw limitation diagnostics Line 213  cbenw limitation diagnostics
213            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
214        enddo        enddo
215  #endif  #endif
216    #ifdef DAR_RADTRANS
217          DO jj = 1,MAX_LEN_FNAM
218             name(jj:jj) = ' '
219          ENDDO
220          WRITE(name,'(a)') 'dar_rmud'
221          CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__-__t',3,4,myThid)
222          CALL MNC_CW_ADD_VATTR_TEXT(name,'units','--', myThid)
223          CALL MNC_CW_ADD_VATTR_TEXT(name,'description','', myThid)
224    #endif
225    
226  c ANNA_TAVE  c ANNA_TAVE
227  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22