Changeset 2993 for LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

Timestamp:

Sep 25, 2017, 11:41:28 AM (7 years ago)

Author:

oboucher

Message:

Adding tropospheric and stratospheric

File:

• LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

@@ -1234 +1234 @@
   TYPE(ctrl_out), SAVE :: o_t_tropopause = ctrl_out((/ 11, 11, 11, 11, 11, 11, 11, 11, 11, 1/), &
     't_tropopause', 'Tropopause temperature', 'K', (/ ('', i=1, 10) /))
+!--Added ThL
+  TYPE(ctrl_out), SAVE :: o_col_O3_strato = ctrl_out((/2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), &
+    'colO3_strat','Ozone stratospheric column', 'DU', (/('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_col_O3_tropo = ctrl_out((/2, 6, 10, 10, 10, 10, 11, 11, 11, 11/), &
+    'colO3_trop','Ozone tropospheric column', 'DU', (/('', i=1, 10) /))
+!--end add ThL
 
 #ifdef CPP_StratAer