Changeset 4004 for branches/2013/dev_r3918_CNRS_idl_plots/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_AMOC.pro
- Timestamp:
- 2013-08-07T16:32:18+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3918_CNRS_idl_plots/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_AMOC.pro
r4000 r4004 17 17 trans = strlowcase(var_name) EQ 'vomeeftr' 18 18 19 ; ADD definition of mask_atl_nomed to compute AMOC (with no Mediterranean Sea) 20 msk_atl_nomed = read_ncdf( 'atlmsk_nomed', filename = std_file_msksub, /nostruct, _extra = ex ) 19 21 FOR i = 0, nfiles-1 DO BEGIN 20 22 var = read_ncdf(var_name, allrecords = allrec, filename = list[i], /nostruct) … … 22 24 ; 23 25 FOR t = 0, jpt-1 DO BEGIN 26 msfatl = msf(var[*, *, *, t], msk_atl_nomed, TRANSPORT = trans, /nostruct, indexboxzoom = ind) 24 27 msftot = msf(var[*, *, *, t], TRANSPORT = trans, /nostruct, indexboxzoom = ind) 25 28 yaxis = gphit[ind[0], ind[2]:ind[3]] … … 28 31 indy = where(yaxis gt 40 and yaxis le 50) 29 32 domdef, 0, 3500 30 t45 = [t45, max(msftot[indy, firstzw:lastzw], /NaN)] 33 ;SF commented because we've to compute msftot starting from msf atlantic; i.e. without mediterranean sea. 34 ;SF t45 = [t45, max(msftot[indy, firstzw:lastzw], /NaN)] 35 t45 = [t45, max(msfatl[indy, firstzw:lastzw], /NaN)] 31 36 32 37 ; computation of max atlantic Antarctic Bottom Water between 80°S and 65°S … … 79 84 80 85 ; compute the MSF 81 86 ; 82 87 std_ts_read_AMOC, vV1, date1, date2, prefix, suffix, t45, t70, t50 83 88 if prefix NE prefix2 then begin … … 115 120 if KEYWORD_SET(postscript) then openps, filename+'_3.ps', portrait = 1 116 121 117 title = prefix+' '+d1_d2+'!C '+'Max AntArctic Bottom Cell between 65S and 30N '+d1_d2122 title = prefix+' '+d1_d2+'!C '+'Max AntArctic Bottom Cell between 65S and 30N '+d1_d2 118 123 pltt, -t50, 't', 5., 30., date1, date2, /REMPLI, /PORTRAIT, window = 3 $ 119 124 , small = [1, 2, 1], TITLE = title, YTITLE = varunit, _extra = ex
Note: See TracChangeset
for help on using the changeset viewer.