Ignore:
Timestamp:
Mar 17, 2018, 9:58:45 AM (6 years ago)
Author:
Laurent Fairhead
Message:

Adding proper hybrid coordinates coefficients as per rhe CMIP6 data request

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phys_output_ctrlout_mod.F90

    r3250 r3284  
    2626    'io_lat', '', '', (/ ('once', i=1, 10) /))
    2727
    28 !!! Comosantes de la coordonnee sigma-hybride
     28!!! Composantes de la coordonnee sigma-hybride
    2929!!! Ap et Bp et interfaces
    3030  TYPE(ctrl_out), SAVE :: o_Ahyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
    31     'Ahyb', '', '', (/ ('once', i=1, 10) /))
     31    'Ahyb', 'Ahyb at level interface', '', (/ ('once', i=1, 10) /))
    3232  TYPE(ctrl_out), SAVE :: o_Bhyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
    33     'Bhyb', '', '', (/ ('once', i=1, 10) /))
    34   TYPE(ctrl_out), SAVE :: o_Ahyb_inter = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
    35     'Ahyb_inter', '', '', (/ ('once', i=1, 10) /))
    36   TYPE(ctrl_out), SAVE :: o_Bhyb_inter = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
    37     'Bhyb_inter', '', '', (/ ('once', i=1, 10) /))
     33    'Bhyb', 'Bhyb at level interface', '', (/ ('once', i=1, 10) /))
     34  TYPE(ctrl_out), SAVE :: o_Ahyb_bounds = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
     35    'Ahyb_bounds', '', '', (/ ('once', i=1, 10) /))
     36  TYPE(ctrl_out), SAVE :: o_Bhyb_bounds = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
     37    'Bhyb_bounds', '', '', (/ ('once', i=1, 10) /))
     38!!! Composantes de la coordonnee sigma-hybride  au milieu des couches
     39!!! Aps et Bps et interfaces
     40  TYPE(ctrl_out), SAVE :: o_Ahyb_mid = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
     41    'Ahyb_mid', 'Ahyb at the middle of the level', '', (/ ('once', i=1, 10) /))
     42  TYPE(ctrl_out), SAVE :: o_Bhyb_mid = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
     43    'Bhyb_mid', 'Bhyb at the middle of the level', '', (/ ('once', i=1, 10) /))
     44  TYPE(ctrl_out), SAVE :: o_Ahyb_mid_bounds = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
     45    'Ahyb_mid_bounds', '', '', (/ ('once', i=1, 10) /))
     46  TYPE(ctrl_out), SAVE :: o_Bhyb_mid_bounds = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
     47    'Bhyb_mid_bounds', '', '', (/ ('once', i=1, 10) /))
     48
    3849  TYPE(ctrl_out), SAVE :: o_Alt = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), &
    3950    'Alt', '', '', (/ ('', i=1, 10) /))
Note: See TracChangeset for help on using the changeset viewer.