- Timestamp:
- Jun 10, 2016, 2:15:33 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90
r2561 r2562 754 754 755 755 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_l_mixmin = (/ & 756 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_ter', &756 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_ter', & 757 757 "PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 9) /)), & 758 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_lic', &758 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_lic', & 759 759 "PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 9) /)), & 760 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_oce', &760 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_oce', & 761 761 "PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 9) /)), & 762 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_sic', &762 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_sic', & 763 763 "PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /) 764 764 765 765 TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_l_mix = (/ & 766 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_ter', &766 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_ter', & 767 767 "min PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 9) /)), & 768 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_lic', &768 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_lic', & 769 769 "min PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 9) /)), & 770 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_oce', &770 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_oce', & 771 771 "min PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 9) /)), & 772 ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_sic', &772 ctrl_out((/ 10, 10, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_sic', & 773 773 "min PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /) 774 774
Note: See TracChangeset
for help on using the changeset viewer.