Changeset 486 for codes/icosagcm/trunk/src/etat0_database.f90

Timestamp:

10/12/16 10:11:51 (8 years ago)

Author:

ymipsl

Message:

etat0 database : to avoid conflict with other id, suffix field read from input input file with _db.

YM

File:

• codes/icosagcm/trunk/src/etat0_database.f90 (modified) (4 diffs)

codes/icosagcm/trunk/src/etat0_database.f90

@@ -53 +53 @@
     INTEGER :: ind
 
-    CALL xios_read_field("relief",f_phis)
+    CALL xios_read_field("relief_db",f_phis)
     
     CALL writeField("relief_out",f_phis,once=.TRUE.)
@@ -86 +86 @@
     CALL allocate_field(f_ulat,  field_t, type_real,llm)
 
-    CALL xios_read_field("z",f_z)
-    CALL xios_read_field("ps",f_ps)
-    CALL xios_read_field("ts",f_ts)
+    CALL xios_read_field("z_db",f_z)
+    CALL xios_read_field("ps_db",f_ps)
+    CALL xios_read_field("ts_db",f_ts)
     CALL writeField("ps_out",f_ps)
 
@@ -107 +107 @@
     
 
-    CALL xios_read_field("temp",f_temp_reg)
+    CALL xios_read_field("temp_db",f_temp_reg)
     CALL vertical_remap(levels,f_temp_reg,f_ps,f_temp)
     CALL transfert_request(f_temp,req_i0) 
     CALL temperature2theta_rhodz(f_ps,f_temp,f_theta_rhodz)
 
-    CALL xios_read_field("u",f_ulon_reg)
+    CALL xios_read_field("u_db",f_ulon_reg)
     CALL vertical_remap(levels,f_ulon_reg,f_ps,f_ulon)
-    CALL xios_read_field("v",f_ulat_reg)
+    CALL xios_read_field("v_db",f_ulat_reg)
     CALL vertical_remap(levels,f_ulat_reg,f_ps,f_ulat)
     CALL transfert_request(f_ulat,req_i0) 
@@ -120 +120 @@
     CALL ulonlat2un(f_ulon, f_ulat,f_u)
 
-    CALL xios_read_field("q",f_q_reg)
+    CALL xios_read_field("q_db",f_q_reg)
     CALL vertical_remap(levels,f_q_reg,f_ps,f_q1)