Changeset 155 for trunk/src/tropflux.sh

Timestamp:

03/06/12 14:29:04 (12 years ago)

Author:

pinsard

Message:

interp_erai_t2m is now a function

File:

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

trunk/src/tropflux.sh

@@ -65 +65 @@
 #   $ tropflux.sh -b 20060801 -e 20060802
 #
+# A more global example::
+#
+#   $ tropflux.sh -b 19890101 -e 20091231
+#
 # And look at log file with ::
 #
@@ -106 +110 @@
 #
 # $URL$
+#
+# - pinsard 20120306
+#
+#   * create a pro IDL program to introduce LOGICAL_PREDICATE
+#     thanks to http://www.idlcoyote.com/code_tips/bitwiselogical.html
 #
 # - pinsard 20120305
@@ -267 +276 @@
 #
 cat >> ${PROJECT}/src/tropflux_${$}.pro << EOF
-.compile file_interp
+pro tropflux_${$}
+compile_opt idl2, strictarrsubs, logical_predicate
 result = oaflux_mask_30n30s()
-if (result NE 0) THEN BEGIN
-   msg = 'eee : pb after oaflux_mask_30n30s'
+IF result < 0 THEN BEGIN
+   msg = 'eee : pb after oaflux_mask_30n30s' + string(result)
    err = report(msg)
    exit
@@ -278 +288 @@
 ;interp_erai_msl_1989_2009
 ;interp_erai_sst_1989_2009
-;interp_erai_t2m_1989_2009
+result = interp_erai_t2m(${yyyymmddb}, ${yyyymmdde})
+IF result < 0 THEN BEGIN
+   msg = 'eee : pb after interp_erai_t2m' + string(result)
+   err = report(msg)
+   exit
+ENDIF
 ;interp_erai_ws_1989_2009
 ;interp_olr_30n30s_1989_2009
@@ -284 +299 @@
 ;++Program caused arithmetic error: Floating overflow
 ;++ Program caused arithmetic error: Floating illegal operand
-.compile TropFlux_swr_DT_19890101_20071231
-tropflux_swr_dt_19890101_20071231
-.compile TropFlux_swr_NRT_19890101_20091231
-tropflux_swr_nrt_19890101_20091231
-.compile TropFlux_swr_BLND_19890101_20091231
-tropflux_swr_blnd_19890101_20091231
-lwr_correction_ncdf
-q2m_correction_ncdf
-sst_correction_ncdf
-t2m_correction_ncdf
-ws_correction_ncdf
-cronin_gustiness_ncdf
-.compile TropFlux_19890101_20091231
-tropflux_19890101_20091231
-.compile TropFlux_NRT_ncdf
-tropflux_nrt_ncdf
-exit
+;.compile TropFlux_swr_DT_19890101_20071231
+;tropflux_swr_dt_19890101_20071231
+;.compile TropFlux_swr_NRT_19890101_20091231
+;tropflux_swr_nrt_19890101_20091231
+;.compile TropFlux_swr_BLND_19890101_20091231
+;tropflux_swr_blnd_19890101_20091231
+;lwr_correction_ncdf
+;q2m_correction_ncdf
+;sst_correction_ncdf
+;t2m_correction_ncdf
+;ws_correction_ncdf
+;cronin_gustiness_ncdf
+;.compile TropFlux_19890101_20091231
+;tropflux_19890101_20091231
+;.compile TropFlux_NRT_ncdf
+;tropflux_nrt_ncdf
+end
 EOF
 #
 # run IDL or equivalent
 ${IDL_CMD} << EOF >> ${log} 2>&1
-@tropflux_${$}
+.compile file_interp
+tropflux_${$}
 EOF
 status=${?}