Changeset 175 for trunk/src/tropflux.sh

Timestamp:

03/22/12 14:40:17 (12 years ago)

Author:

pinsard

Message:

an other bunch of new functions

File:

• trunk/src/tropflux.sh (modified) (3 diffs)

trunk/src/tropflux.sh

@@ -89 +89 @@
 #
 # Use :
-# :func:`oaflux_mask_30n30s`, :func:`interp_erai_t2m`, 
+# :func:`oaflux_mask_30n30s`, :func:`interp_erai_t2m`,
 # :func:`interp_erai_msl`, :func:`interp_erai_dewt`, :func:`interp_erai_lwr`,
-# :func:`interp_erai_sst`, :func:`interp_erai_ws`, :func:`interp_olr_30n30s`, 
-# :func:`d2m_to_q2m_erai`,
+# :func:`interp_erai_sst`, :func:`interp_erai_ws`, :func:`interp_olr_30n30s`,
+# :func:`d2m_to_q2m_erai`, :func:`sst_correction_ncdf`,
+# :func:`lwr_correction_ncdf`, :func:`q2m_correction_ncdf`,
+# :func:`t2m_correction_ncdf`, :func:`ws_correction_ncdf`,
+# :func:`tropflux_swr_dt`, :func:`tropflux_swr_nrt`, :func:`tropflux_swr_blnd`,
 # etc.
 #
@@ -114 +117 @@
 #
 # $URL$
+#
+# - pinsard 20120322
+#
+#   * handling error of sst_correction_ncdf (now function)
+#   * handling error of lwr_correction_ncdf (now function)
+#   * handling error of q2m_correction_ncdf (now function)
+#   * handling error of t2m_correction_ncdf (now function)
+#   * handling error of ws_correction_ncdf (now function)
 #
 # - pinsard 20120321
@@ -382 +393 @@
    exit
 ENDIF
-;sst_correction_ncdf
+result = sst_correction_ncdf(${yyyymmddb}, ${yyyymmdde})
+IF result < 0 THEN BEGIN
+   msg = 'eee : pb after sst_correction_ncdf ' + string(result)
+   err = report(msg)
+   exit
+ENDIF
 result = cronin_gustiness_ncdf(${yyyymmddb}, ${yyyymmdde})
 IF result < 0 THEN BEGIN
    msg = 'eee : pb after cronin_gustiness_ncdf ' + string(result)
-  err = report(msg)
-exit
+   err = report(msg)
+   exit
+ENDIF
 result = tropflux_swr_blnd(${yyyymmddb}, ${yyyymmdde})
 IF result < 0 THEN BEGIN
    msg = 'eee : pb after tropflux_swr_blnd ' + string(result)
-  err = report(msg)
-exit
-;lwr_correction_ncdf
-;q2m_correction_ncdf
-;t2m_correction_ncdf
-;ws_correction_ncdf
+   err = report(msg)
+   exit
+ENDIF
+result = lwr_correction_ncdf(${yyyymmddb}, ${yyyymmdde})
+IF result < 0 THEN BEGIN
+   msg = 'eee : pb after lwr_correction_ncdf ' + string(result)
+   err = report(msg)
+   exit
+ENDIF
+result = q2m_correction_ncdf(${yyyymmddb}, ${yyyymmdde})
+IF result < 0 THEN BEGIN
+   msg = 'eee : pb after q2m_correction_ncdf ' + string(result)
+   err = report(msg)
+   exit
+ENDIF
+result = t2m_correction_ncdf(${yyyymmddb}, ${yyyymmdde})
+IF result < 0 THEN BEGIN
+   msg = 'eee : pb after t2m_correction_ncdf ' + string(result)
+   err = report(msg)
+   exit
+ENDIF
+result = ws_correction_ncdf(${yyyymmddb}, ${yyyymmdde})
+IF result < 0 THEN BEGIN
+   msg = 'eee : pb after ws_correction_ncdf ' + string(result)
+   err = report(msg)
+   exit
+ENDIF
 ;.compile TropFlux_19890101_20091231
-;tropflux_19890101_20091231
+result = tropflux(${yyyymmddb}, ${yyyymmdde})
+IF result < 0 THEN BEGIN
+   msg = 'eee : pb after tropflux' + string(result)
+   err = report(msg)
+   exit
+ENDIF
 ;.compile TropFlux_NRT_ncdf
 ;tropflux_nrt_ncdf