Changeset 3474 for LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90
- Timestamp:
- Apr 15, 2019, 4:55:13 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90
r3453 r3474 24 24 'io_lat', '', '', (/ ('once', i=1, 10) /)) 25 25 26 !!! Com osantes de la coordonnee sigma-hybride26 !!! Composantes de la coordonnee sigma-hybride 27 27 !!! Ap et Bp et interfaces 28 28 TYPE(ctrl_out), SAVE :: o_Ahyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 29 'Ahyb', ' ', '', (/ ('once', i=1, 10) /))29 'Ahyb', 'Ahyb at level interface', '', (/ ('once', i=1, 10) /)) 30 30 TYPE(ctrl_out), SAVE :: o_Bhyb = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 31 'Bhyb', '', '', (/ ('once', i=1, 10) /)) 32 TYPE(ctrl_out), SAVE :: o_Ahyb_inter = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 33 'Ahyb_inter', '', '', (/ ('once', i=1, 10) /)) 34 TYPE(ctrl_out), SAVE :: o_Bhyb_inter = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 35 'Bhyb_inter', '', '', (/ ('once', i=1, 10) /)) 31 'Bhyb', 'Bhyb at level interface', '', (/ ('once', i=1, 10) /)) 32 TYPE(ctrl_out), SAVE :: o_Ahyb_bounds = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 33 'Ahyb_bounds', '', '', (/ ('once', i=1, 10) /)) 34 TYPE(ctrl_out), SAVE :: o_Bhyb_bounds = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 35 'Bhyb_bounds', '', '', (/ ('once', i=1, 10) /)) 36 !!! Composantes de la coordonnee sigma-hybride au milieu des couches 37 !!! Aps et Bps et interfaces 38 TYPE(ctrl_out), SAVE :: o_Ahyb_mid = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 39 'Ahyb_mid', 'Ahyb at the middle of the level', '', (/ ('once', i=1, 10) /)) 40 TYPE(ctrl_out), SAVE :: o_Bhyb_mid = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 41 'Bhyb_mid', 'Bhyb at the middle of the level', '', (/ ('once', i=1, 10) /)) 42 TYPE(ctrl_out), SAVE :: o_Ahyb_mid_bounds = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 43 'Ahyb_mid_bounds', '', '', (/ ('once', i=1, 10) /)) 44 TYPE(ctrl_out), SAVE :: o_Bhyb_mid_bounds = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 45 'Bhyb_mid_bounds', '', '', (/ ('once', i=1, 10) /)) 46 36 47 TYPE(ctrl_out), SAVE :: o_Alt = ctrl_out((/ 1, 1, 1, 1, 1, 1, 11, 11, 11, 11/), & 37 48 'Alt', '', '', (/ ('', i=1, 10) /))
Note: See TracChangeset
for help on using the changeset viewer.