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

Timestamp:

Oct 3, 2017, 8:18:41 AM (7 years ago)

Author:

Ehouarn Millour

Message:

Improved slab routines.
FC

File:

• LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

@@ -706 +706 @@
   TYPE(ctrl_out), SAVE :: o_tslab = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'tslab', 'Temperature ocean slab', 'K', (/ ('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_tslab1 = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11 /), &
+    'tslab1', 'Temperature ocean slab', 'K', (/ ('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_tslab2 = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11 /), &
+    'tslab2', 'Temperature ocean slab', 'K', (/ ('', i=1, 10) /))
   TYPE(ctrl_out), SAVE :: o_slab_tice = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'slab_tice', 'Temperature banquise slab', 'K', (/ ('', i=1, 10) /))
@@ -712 +716 @@
   TYPE(ctrl_out), SAVE :: o_slab_hdiff = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'slab_hdiff', 'Horizontal diffusion', 'W/m2', (/ ('', i=1, 10) /))
+  TYPE(ctrl_out), SAVE :: o_slab_gm = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11 /), &
+    'slab_gm', 'GM eddy advection', 'W/m2', (/ ('', i=1, 10) /))
   TYPE(ctrl_out), SAVE :: o_slab_ekman = ctrl_out((/ 1, 1, 10, 10, 10, 10, 11, 11, 11, 11/), &
     'slab_ekman', 'Ekman heat transport', 'W/m2', (/ ('', i=1, 10) /))