Ignore:
Timestamp:
2011-04-26T10:45:52+02:00 (10 years ago)
Author:
smasson
Message:

large update of IDL_scripts for Is-ENES

File:
1 moved

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_plot_bsf.pro

    r2733 r2751  
    1 pro plt_bsf, U1, U2, sEXP1, sEXP2, start_end, POSTSCRIPT = postscript, _extra = ex 
     1pro std_plot_bsf, U1, U2, POSTSCRIPT = postscript, _extra = ex 
    22 
    33  compile_opt idl2, strictarrsubs 
    44 
    5   @common 
     5@common   
     6@std_common 
    67 
    7   if KEYWORD_SET(POSTSCRIPT) then begin 
    8      openps, '005_bsf_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.ps',  portrait = 1 
    9   endif 
     8  cdti3 = string(cnt, format = '(i3.3)') 
     9  print, cdti3 + ') ' + blabla 
     10  filename = cdti3 + '_BSF_'+std_file1_U 
     11  if std_file1_U NE std_file2_U then filename = filename + '_'+std_file2_U 
     12  if KEYWORD_SET(postscript) then openps, filename+'.ps', portrait = 1 
     13   
    1014  domdef, 0, 6000 
    1115 
     16  bb1 = bsf(U1.arr, refvalue = 0., refpoint = [25, 0]) 
     17  title = 'Barotropic Stream Function!C'+std_file1_U 
     18  plt, bb1, min = -200., max = 200., int = 10., /portrait, FORMAT = '(I4)', STYLE = 'so0so' $ 
     19       , small = [1, 2, 1], COAST_THICK = 2, TITLE = title,  _extra = ex 
    1220 
    13   bb1 = bsf(U1.arr, refvalue = 0., refpoint = [25, 0] ) 
    14   bb2 = bsf(U2.arr, refvalue = 0., refpoint = [25, 0]) 
    15  
    16   title = sEXP1+' Barotropic Stream Function'+' / year '+start_end 
    17   plt, bb1, min =-200., max = 200., int = 10.,/portrait, FORMAT = '(I4)', STYLE= 'so0so' $ 
    18        , small = [1,2,1], COAST_THICK = 2, TITLE = title,  _extra = ex 
    19  
    20  
    21   if sEXP1 ne sEXP2 then begin 
    22  
    23      title = sEXP1+' - '+sEXP2+' Barotropic Stream Function'+' / year '+start_end 
    24      plt, bb1.arr - bb2.arr , min = -20., max = 20., int = 2.,  FORMAT = '(I2)', STYLE= 'so0so' $ 
    25           , small = [1,2,2], COAST_THICK = 2, TITLE = title, /NOERASE, _extra = ex 
    26     
     21  if std_file1_U NE std_file2_U then BEGIN 
     22    bb2 = bsf(U2.arr, refvalue = 0., refpoint = [25, 0]) 
     23    title = 'Barotropic Stream Function!C'+std_file1_U+' - '+std_file2_U 
     24    plt, bb1.arr - bb2.arr, min = -20., max = 20., int = 2.,  FORMAT = '(I2)', STYLE = 'so0so' $ 
     25         , small = [1, 2, 2], COAST_THICK = 2, TITLE = title, /NOERASE, _extra = ex 
    2726  endif 
    2827   
    29   title = 'Barotropic Stream Function' 
    30   text = [   title, '<img width="80%" src=/Users/sflod/TOOLS/my_IDL/PS/'+sEXP1+'_'+sEXP2+'/ps/005_bsf_'+sEXP1+'_'+sEXP2+'_y'+start_end+'.png  />  ' ] 
    31   putfile, '/tmp/prova.txt', text 
    32  
    33   if KEYWORD_SET(POSTSCRIPT) then begin 
    34      closeps 
    35   endif 
    36  
     28  htmltxt = [ htmltxt, '<hr>'+blabla, '<br><img width="80%" src='+filename+'.png  />  ' ] 
     29  if KEYWORD_SET(postscript) then closeps 
    3730 
    3831  return 
Note: See TracChangeset for help on using the changeset viewer.