Changeset 1316 for CONFIG/IPSLCM/IPSLCM5A/Chistorical/COMP/lmdz_analyse_stomate_out.awk

Timestamp:

02/22/11 10:36:38 (13 years ago)

Author:

cetlod

Message:

Improvment of interactive scripts for IPSLCM5A_C configuration

File:

• CONFIG/IPSLCM/IPSLCM5A/Chistorical/COMP/lmdz_analyse_stomate_out.awk (modified) (5 diffs)

CONFIG/IPSLCM/IPSLCM5A/Chistorical/COMP/lmdz_analyse_stomate_out.awk

@@ -25 +25 @@
 #==========================
 BEGIN {
-#  print "traitement de " ARGV[1]
+ # print "traitement de " ARGV[1]
 
   nbarg=ARGC
@@ -54 +54 @@
   counterLU=0
 
+  fluxNBP_found=0
+  counterNBP=0
+
   CO2file[1]=""
   LUfile[1]=""
+  NBPfile[1]=""
 }
 
@@ -79 +83 @@
     CO2file[counterCO2]=felts[2]
   }
-  else if (match($0, ".*GLOBAL net cflux_prod_total_sum.*")) {
+  else if (match($0, ".*GLOBAL net_cflux_prod_monthly.*")) {
     myprint("fluxLU_found = 1")
     fluxLU_found=1
@@ -87 +91 @@
     myprint("nb  :" nb)
     for (elt in felts) {
+        myprint(elt "- elt  :" felts[elt])
+    }
+    myprint("elts_co2  :" felts[2])
+
+    LUfile[counterLU]=felts[2]
+  }
+
+  else if (match($0, ".*GLOBAL net_biosp_prod_monthly.*")) {
+    myprint("fluxNBP_found = 1")
+    fluxNBP_found=1
+    counterNBP=counterNBP+1
+
+    nb=split($0,felts, "=")
+    myprint("nb  :" nb)
+    for (elt in felts) {
         myprint(elt "- elt  :" felts[elt])
     }
-    myprint("elts_lu  :" felts[2])
+    myprint("elts_nbp  :" felts[2])
 
-    LUfile[counterLU]=felts[2]
+    NBPfile[counterNBP]=felts[2]
   }
 }
@@ -106 +125 @@
             myprint("value  :" CO2file[i])
         }
-        
-        if ( fluxLU_found == 1 ) {
-            myprint("LU value for " file)
-            myprint("counterLU  :" counterLU)
-            for (i=1; i<=counterLU; i++) {  
-                print LUfile[i]
-                myprint("value  :" LUfile[i])
+
+        if ( fluxLU_found == 1 ) {
+            myprint("LU value for " file)
+            myprint("counterLU  :" counterLU)
+            for (i=1; i<=counterLU; i++) {
+                print LUfile[i]
+                myprint("value  :" LUfile[i])
+            }
+
+            if ( fluxNBP_found == 1 ) {
+               myprint("NBP value for " file)
+               myprint("counterNBP  :" counterNBP)
+               for (i=1; i<=counterNBP; i++) {  
+                    print NBPfile[i]
+                    myprint("value  :" NBPfile[i])
+               }
+            
+               exit_value=0
+               exit 0
             }
-            
+            else {
+                 myprint("ERROR : NO NBP value for " file)
+                 print "0003"
+                 exit 1
+            }
+
             exit_value=0
             exit 0
-        }
-        else {
-            myprint("ERROR : NO LU value for " file)
-            print "0002"
-            exit 1
-        }
-
-        exit_value=0
-        exit 0
+        }
+        else {
+            myprint("ERROR : NO LU value for " file)
+            print "0002"
+            print "0003"
+            exit 1
+        }
     }
     else {
-        myprint("ERROR : NO CO2 value for " file)
-        print "0001"
-        print "0002"
-        exit 1
-    }
-    
+         myprint("ERROR : NO CO2 value for " file)
+         print "0001"
+         print "0002"
+         print "0003"
+         exit 1
+       }
   }
   else {