Changeset 153 for trunk/src/tropflux.sh

Timestamp:

03/05/12 18:59:09 (12 years ago)

Author:

pinsard

Message:

pro oaflux_mask_30n30s is now a function

File:

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

trunk/src/tropflux.sh

@@ -1 @@
-#! /bin/sh -x
+#! /bin/sh
 #+
 #
@@ -43 +43 @@
 #        digraph tropflux {
 #
+#           file_oaflux [shape=ellipse,fontname=Courier,label="${PROJECT_ID}/lh_oaflux_2004.nc"];
+
 #           log [shape=ellipse,fontname=Courier,label="${PROJECT_LOG}/tropflux.log{YYYYMMDDTHHMMSSZ}"];
 #
@@ -51 +53 @@
 #           label="${PROJECT}/src/tropflux.sh"];
 #
-#           {++ mask} -> {tropflux} -> {log ++}
+#           {file_oaflux} -> {tropflux} -> {log fileout}
 #
 #         }
@@ -83 +85 @@
 #
 # Use :
-# :ref:`inter_erai_t2m_1989_2009.pro`, etc.
+# :func:`oaflux_mask_30n30s`, :ref:`inter_erai_t2m_1989_2009.pro`, etc.
 #
 # Next step : +validation ++ comparison
@@ -108 +110 @@
 #
 #   * creation (draft)
+#   * handling error of oaflux_mask_30n30s (now a function)
 #
 #-
@@ -265 +268 @@
 cat >> ${PROJECT}/src/tropflux_${$}.pro << EOF
 .compile file_interp
-;oaflux_mask_30n30s
+result = oaflux_mask_30n30s()
+if (result NE 0) THEN BEGIN
+   msg = 'eee : pb after oaflux_mask_30n30s'
+   err = report(msg)
+   exit
+ENDIF
 ;interp_erai_dewt_1989_2009
 ;interp_erai_lwr_1989_2009
@@ -273 +281 @@
 ;interp_erai_ws_1989_2009
 ;interp_olr_30n30s_1989_2009
-;d2m_to_q2m_erai
+d2m_to_q2m_erai 
+;++Program caused arithmetic error: Floating overflow
+;++ Program caused arithmetic error: Floating illegal operand
 .compile TropFlux_swr_DT_19890101_20071231
 tropflux_swr_dt_19890101_20071231
@@ -290 +300 @@
 .compile TropFlux_NRT_ncdf
 tropflux_nrt_ncdf
+exit
 EOF
-#
-more ${PROJECT}/src/tropflux_${$}.pro
-read a
 #
 # run IDL or equivalent