Changeset 4320 for branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_AMOC.pro

Timestamp:

2013-11-28T12:41:27+01:00 (10 years ago)

Author:

flavoni

Message:

update IDL_scripts for ORCA2_LIM and ORCA2_LIM3, add plot of max_mld output 5days, see ticket: #724

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_AMOC.pro (modified) (5 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/CONFIG/ORCA2_LIM/IDL_scripts/std_ts_AMOC.pro

@@ -14 +14 @@
   ts_Time = 0.
 
-  trans = strlowcase(var_name) EQ 'vocetr_eff'
+  ;SF trans = strlowcase(var_name) EQ 'vocetr_eff'
+  trans = strlowcase(var_name) EQ 'vomeeftr'
 
+  ; ADD definition of mask_atl_nomed to compute AMOC (with no Mediterranean Sea)
+  msk_atl_nomed = read_ncdf( 'atlmsk_nomed', filename = std_file_msksub, /nostruct, _extra = ex )
   FOR i = 0, nfiles-1 DO BEGIN
     var = read_ncdf(var_name, allrecords = allrec, filename = list[i], /nostruct)
@@ -21 +24 @@
 ;
     FOR t = 0, jpt-1 DO BEGIN
+      msfatl = msf(var[*, *, *, t], msk_atl_nomed, TRANSPORT = trans, /nostruct, indexboxzoom = ind)
       msftot = msf(var[*, *, *, t], TRANSPORT = trans, /nostruct, indexboxzoom = ind)
       yaxis = gphit[ind[0], ind[2]:ind[3]]
@@ -27 +31 @@
       indy = where(yaxis gt 40 and yaxis le 50)
       domdef, 0, 3500
-      t45 = [t45, max(msftot[indy, firstzw:lastzw], /NaN)]
+      ;SF commented because we've to compute msftot starting from msf atlantic; i.e. without mediterranean sea.
+      ;SF t45 = [t45, max(msftot[indy, firstzw:lastzw], /NaN)]
+      t45 = [t45, max(msfatl[indy, firstzw:lastzw], /NaN)]
       
 ; computation of max atlantic Antarctic Bottom Water between 80°S and 65°S
@@ -78 +84 @@
 
 ; compute the MSF
-
+;  
   std_ts_read_AMOC, vV1, date1, date2, prefix, suffix, t45, t70, t50
   if prefix NE prefix2 then begin
@@ -114 +120 @@
   if KEYWORD_SET(postscript) then openps, filename+'_3.ps', portrait = 1
 
-  title = prefix+' '+d1_d2+'!C'+'Max AntArctic Bottom Cell between 65S and 30N '+d1_d2
+  title = prefix+' '+d1_d2+'!C '+'Max AntArctic Bottom Cell between 65S and 30N '+d1_d2
   pltt, -t50, 't', 5., 30., date1, date2, /REMPLI, /PORTRAIT, window = 3 $
         ,  small = [1, 2, 1],  TITLE = title, YTITLE = varunit, _extra = ex