/[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.4 by jahn, Thu Aug 23 21:47:27 2012 UTC revision 1.5 by jahn, Thu Aug 23 21:48:24 2012 UTC
# Line 149  cbenw limitation diagnostics Line 149  cbenw limitation diagnostics
149            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
150            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
151       &     'upwelling irradiance just above top of layer', myThid)       &     'upwelling irradiance just above top of layer', myThid)
152              WRITE(name,'(a,i2.2)') 'dar_Estop',ii
153              CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__C__t',4,5,myThid)
154              CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
155              CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
156         &     'diffuse downwelling irradiance just below top of layer',
157         &     myThid)
158            WRITE(name,'(a,i2.2)') 'dar_Eutop',ii            WRITE(name,'(a,i2.2)') 'dar_Eutop',ii
159            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)
160            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
# Line 162  cbenw limitation diagnostics Line 168  cbenw limitation diagnostics
168            DO jj = 1,MAX_LEN_FNAM            DO jj = 1,MAX_LEN_FNAM
169               name(jj:jj) = ' '               name(jj:jj) = ' '
170            ENDDO            ENDDO
171            WRITE(name,'(a,i2.2)') 'dar_c1_',ii            WRITE(name,'(a,i2.2)') 'dar_amp1_',ii
172            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)
173            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
174            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
175       &     'amplitude of downward increasing mode', myThid)       &     'amplitude of downward increasing mode', myThid)
176            WRITE(name,'(a,i2.2)') 'dar_c2_',ii            WRITE(name,'(a,i2.2)') 'dar_amp2_',ii
177            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)
178            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)            CALL MNC_CW_ADD_VATTR_TEXT(name,'units','W/m^2', myThid)
179            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',            CALL MNC_CW_ADD_VATTR_TEXT(name,'description',
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22